2018-03-12 03:46:05 -07:00
#!/usr/bin/perl
use strict;
use warnings;
use UI::Dialog;
use Term::ReadKey;
use Term::ANSIScreen qw(cls);
2019-08-11 20:47:43 -07:00
use POSIX qw(strftime);
use Number::Bytes::Human qw(format_bytes parse_bytes);
2018-03-12 03:46:05 -07:00
2018-03-12 05:22:13 -07:00
my $FileEditor = "/bin/nano";
2020-06-03 21:21:44 -07:00
my $InitDName = "/home/mtowner/bin/minetest";
2020-05-29 15:01:56 -07:00
my $MINETESTDIR = "/home/mtowner/minetest";
my $MINEHOME = "/home/mtowner";
my $BackupCommand = "/home/mtowner/MineBackup/minebackup.pl";
2020-06-16 22:55:34 -07:00
my $UpdateCommand = "/usr/bin/git pull";
2018-08-16 16:34:02 -07:00
my $PagerCommand = "/usr/bin/less";
2020-05-29 15:01:56 -07:00
my $Logfile = "/home/mtowner/minetest/debug.txt";
my $PlayersDir = "/home/mtowner/minetest/worlds/world/players";
2020-06-16 22:55:34 -07:00
my $MMCDir = "/home/mtowner/MinetestManagementConsole";
my $BackupToolDir = "/home/mtowner/MineBackup";
my $StartupDir = "/home/mtowner/MinetestStartup";
2020-05-29 15:01:56 -07:00
my $MinetestConf = "/home/mtowner/minetest/minetest.conf";
my $MinetestWorld = "/home/mtowner/minetest/worlds/world/world.mt";
my $BACKUP_DIR = "/home/mtowner/backups";
2019-08-11 20:47:43 -07:00
my $RestoreCommand = "tar xvzf";
2019-08-11 21:35:54 -07:00
my $DEBUG_MODE = "off";
2020-05-29 15:01:56 -07:00
my $NewsFile = "/home/mtowner/minetest/worlds/world/news.txt";
2020-06-18 21:46:14 -07:00
my $BinDir = "/home/mtowner/bin";
2018-03-12 03:46:05 -07:00
2022-05-09 23:27:49 -07:00
my $ModDir = "/home/mtowner/minetest/mods";
my $KillAllString = "/home/mtowner/minetest/bin/minetestserver";
my $ServerProcess = "minetestserver";
my $ServerStartString = "/home/mtowner/minetest/bin/startminetest";
2022-06-02 00:09:06 -07:00
my $DfCommand = "df -h /dev/sda";
my $DuCommand = "du -h /home/mtowner/|tail -1";
my $FilesToRemove = "$MINETESTDIR/debug.txt $MINETESTDIR/MinetestScreen.log";
my $CrontabCommand = "crontab -e";
2022-07-20 19:28:53 -07:00
my $BuildCommand = "make";
2022-07-20 20:32:10 -07:00
my $WhoCommand = "/usr/bin/w";
my $LastCommand = "/usr/bin/last";
my $TopCommand = "/usr/bin/top";
2022-05-09 23:27:49 -07:00
2018-03-12 03:46:05 -07:00
###################################################
# No changes below here
###################################################
2018-08-17 01:13:29 -07:00
my $MySettings = "$ENV{'HOME'}/.mmcrc";
2022-07-20 19:28:53 -07:00
my $MMC_ver = "1.14.0";
2018-03-12 03:46:05 -07:00
my $Record = "false"; # Are results saved?
my $TempDir = "/tmp";
my $RobotName = "";
my $BotVersion = "";
my $UserName = "";
my $ServerStatus = "foo";
2019-08-11 20:47:43 -07:00
if ($ENV{'EDITOR'})
{
$FileEditor = $ENV{'EDITOR'};
}
2019-08-11 21:35:54 -07:00
my $menuselection = "";
sub PrintDebugCommand
{
if ($DEBUG_MODE eq "off")
{
return;
}
my $PassedString = shift;
print "About to run:\n$PassedString\n";
print "Press Enter To Run This:";
my $entered = <STDIN>;
}
2018-03-12 03:46:05 -07:00
my $d = new UI::Dialog ( backtitle => "Minetest Management Console v$MMC_ver", height => 20, width => 65, listheight => 5,
order => [ 'ascii', 'cdialog', 'xdialog' ]);
my $windowtitle = "Welcome to the Minetest Management Console!";
my $enjoyedtitle = "We hope you enjoyed MMC!";
my $introtext =
"This is the Minetest Management Console, a utility for Minetest operators
to manage their servers from a text GUI rather than the command line.";
$d->msgbox( title => $windowtitle, text => $introtext );
if (($d->state() eq "ESC") || ($d->state() eq "CANCEL"))
{
exit 0;
}
2018-08-17 01:13:29 -07:00
# Check for config file
if (-f $MySettings)
{
# Read in settings
open (my $FH, "<", $MySettings) or die "Could not read default file '$MySettings' $!";
while (<$FH>)
{
2018-08-17 01:24:04 -07:00
chop();
2018-08-17 01:13:29 -07:00
my ($Command, $Setting) = split(/=/, $_);
if ($Command eq "fileeditor")
{
$FileEditor = $Setting;
}
if ($Command eq "initdname")
{
$InitDName = $Setting;
}
if ($Command eq "minetestdir")
{
$MINETESTDIR = $Setting;
}
if ($Command eq "backupcommand")
{
$BackupCommand = $Setting;
}
2020-06-16 22:55:34 -07:00
if ($Command eq "updatecommand")
{
$UpdateCommand = $Setting;
}
2018-08-17 01:13:29 -07:00
if ($Command eq "pagercommand")
{
$PagerCommand = $Setting;
}
if ($Command eq "logfile")
{
2018-08-17 01:24:04 -07:00
$Logfile = $Setting;
2018-08-17 01:13:29 -07:00
}
if ($Command eq "playerdir")
{
$PlayersDir = $Setting;
}
2020-06-16 22:55:34 -07:00
if ($Command eq "mmcdir")
{
$MMCDir = $Setting;
}
if ($Command eq "startupdir")
{
$StartupDir = $Setting;
}
2018-08-18 21:53:01 -07:00
if ($Command eq "minetestconf")
{
$MinetestConf = $Setting;
}
2018-08-26 20:20:38 -07:00
if ($Command eq "minetestworld")
{
$MinetestWorld = $Setting;
}
2020-02-22 02:17:19 -08:00
if ($Command eq "newsfile")
{
$NewsFile = $Setting;
}
2019-08-11 20:47:43 -07:00
if ($Command eq "debugmode")
{
$DEBUG_MODE = $Setting;
}
if ($Command eq "backupdir")
{
$BACKUP_DIR = $Setting;
}
2020-06-18 21:46:14 -07:00
if ($Command eq "bindir")
{
$BinDir = $Setting;
}
2020-06-16 22:55:34 -07:00
if ($Command eq "backuptooldir")
{
$BackupToolDir = $Setting;
}
2019-08-11 20:47:43 -07:00
if ($Command eq "restorecommand")
{
$RestoreCommand = $Setting;
}
2019-08-11 21:35:54 -07:00
if ($Command eq "minehome")
{
$MINEHOME = $Setting;
}
2018-08-17 01:13:29 -07:00
}
close($FH);
}
else
{
# Store defaults
open (my $FH, ">", $MySettings) or die "Could not create default file '$MySettings' $!";
2019-08-11 20:47:43 -07:00
print $FH "fileeditor=$FileEditor\n";
print $FH "initdname=$InitDName\n";
print $FH "minetestdir=$MINETESTDIR\n";
print $FH "backupcommand=$BackupCommand\n";
2020-06-16 22:55:34 -07:00
print $FH "updatecommand=$UpdateCommand\n";
2019-08-11 20:47:43 -07:00
print $FH "pagercommand=$PagerCommand\n";
2019-08-11 21:35:54 -07:00
print $FH "logfile=$Logfile\n";
2019-08-11 20:47:43 -07:00
print $FH "playerdir=$PlayersDir\n";
2020-06-16 22:55:34 -07:00
print $FH "mmcdir=$MMCDir\n";
print $FH "startupdir=$StartupDir\n";
2019-08-11 20:47:43 -07:00
print $FH "minetestconf=$MINETESTDIR/minetest.conf\n";
print $FH "minetestworld=$MINETESTDIR/worlds/world/world.mt\n";
2020-02-22 02:17:19 -08:00
print $FH "newsfile=$MINETESTDIR/worlds/world/news.txt\n";
2019-08-11 20:47:43 -07:00
print $FH "debugmode=$DEBUG_MODE\n";
print $FH "backupdir=$BACKUP_DIR\n";
2020-06-18 21:46:14 -07:00
print $FH "bindir=$BinDir\n";
2020-06-16 22:55:34 -07:00
print $FH "backuptooldir=$BackupToolDir\n";
2019-08-11 20:47:43 -07:00
print $FH "restorecommand=$RestoreCommand\n";
2019-08-11 21:35:54 -07:00
print $FH "minehome=$MINEHOME\n";
2018-08-17 01:13:29 -07:00
close($FH);
}
2018-03-12 03:46:05 -07:00
sub CheckServerStatus
{
2022-05-09 23:27:49 -07:00
my $running=`ps ax|grep $ServerProcess|grep -v grep`;
2018-03-12 03:46:05 -07:00
if ($running ne "")
{
$ServerStatus = "Running";
}
else
{
$ServerStatus = "Stopped";
}
}
2019-08-11 20:47:43 -07:00
sub BackupToolsMenu
{
my $WantRespawn="ON";
CheckServerStatus();
if (-f "$MINETESTDIR/nostart")
{
$WantRespawn="OFF";
}
$menuselection = $d->menu( title => "Backup Tools Menu", text => "Server is $ServerStatus and respawn is $WantRespawn - Select one:",
list => [ '1', 'Run Backup',
'2', 'Restore Backup',
'q', 'Main Menu' ] );
}
2020-06-16 22:55:34 -07:00
sub UpdateToolsMenu
{
my $WantRespawn="ON";
CheckServerStatus();
if (-f "$MINETESTDIR/nostart")
{
$WantRespawn="OFF";
}
2020-06-20 05:01:03 -07:00
$menuselection = $d->menu( title => "Update Tools Menu", text => "Server is $ServerStatus and respawn is $WantRespawn - Select one:",
2020-06-16 22:55:34 -07:00
list => [ '1', 'Update MMC',
'2', 'Update Backup',
'3', 'Update Startup',
'q', 'Main Menu' ] );
}
2019-08-11 20:47:43 -07:00
sub GetWhichBackup
{
my $UsedFile = 0;
opendir(DIR, $BACKUP_DIR) or die $!;
my @file_list;
while ( my $file = readdir(DIR))
{
# We only want files
next unless (-f "$BACKUP_DIR/$file");
# Use a regular expression to find files ending in .tgz
next unless ($file =~ m/\.tgz$/);
push @file_list, "$BACKUP_DIR/$file";
}
closedir(DIR);
#print scalar @file_list;
system("clear");
print "Backup\tBackup Date\t\tSize\n";
for my $file (sort
{
my @a_stat = stat($a);
my @b_stat = stat($b);
$b_stat[8] <=> $a_stat[8];
} @file_list ) {
$UsedFile++;
my @stat = stat ("$file");
my $size = format_bytes($stat[7], bs => 1000);
print "$UsedFile\t" . strftime("%m/%d/%Y %H:%M:%S", localtime($stat[8])) . "\t$size ($file)\n";
};
#Ask user which one
while(-1)
{
2019-08-11 21:35:54 -07:00
print "Restore which backup? (1-5) or \"quit\": ";
2019-08-11 20:47:43 -07:00
my $Chosen = <STDIN>;
chop ($Chosen);
if ((lc($Chosen) eq "q") || (lc($Chosen) eq "quit") || ($Chosen eq ""))
{
return "";
}
my $IntChosen = int($Chosen);
if (($IntChosen >= 1) && ($IntChosen <= 5))
{
return $Chosen;
}
}
}
sub DoRestore
{
my $WhichBackup = "";
# Get which backup they want
$WhichBackup = GetWhichBackup();
if ($WhichBackup eq "")
{
print "No backup selected\n";
return;
}
print "Using backup $WhichBackup...\n";
# Turn off respawn
PrintDebugCommand("touch $MINETESTDIR/nostart");
system("touch $MINETESTDIR/nostart");
# Kill the server process
2019-08-11 21:35:54 -07:00
print "Killing Minetest process, please wait...\n";
2022-05-09 23:27:49 -07:00
system("killall $ServerStartString");
2019-08-11 21:35:54 -07:00
sleep(5);
2019-08-11 20:47:43 -07:00
# Create new folder
print "Creating new folder, please wait...";
2019-08-11 21:35:54 -07:00
PrintDebugCommand("mkdir $MINEHOME-new");
system("mkdir $MINEHOME-new");
PrintDebugCommand("touch $MINEHOME-new/nostart");
system("touch $MINEHOME-new/nostart");
2019-08-11 20:47:43 -07:00
# Swap folders
print "Swapping folders, please wait...";
2019-08-11 21:35:54 -07:00
PrintDebugCommand("mv $MINEHOME/minetest $MINEHOME/minetest-keep");
system("mv $MINEHOME/minetest $MINEHOME/minetest-keep");
PrintDebugCommand("mv $MINEHOME/minetest-new $MINEHOME/minetest");
system("mv $MINEHOME-new $MINETESTDIR");
PrintDebugCommand("rm -r $MINEHOME/minetest-keep");
system("rm -r $MINEHOME/minetest-keep");
2019-08-11 20:47:43 -07:00
# Do the restore
2019-08-11 21:35:54 -07:00
chdir ($MINEHOME);
PrintDebugCommand("$RestoreCommand $BACKUP_DIR/minebackup-$WhichBackup.tgz");
system("$RestoreCommand $BACKUP_DIR/minebackup-$WhichBackup.tgz");
2019-08-11 20:47:43 -07:00
unlink("$MINETESTDIR/nostart");
}
sub BackupTools
{
while (-1)
{
BackupToolsMenu();
if (($menuselection eq "CANCEL") || ($menuselection eq "ESC") || ($menuselection eq "") || ($menuselection eq "q") || ($menuselection eq "Q"))
{
return;
}
elsif ($menuselection eq "1")
{
# Run a backup
PrintDebugCommand("$BackupCommand");
system("$BackupCommand");
2022-07-20 20:32:10 -07:00
print "--- Press Enter To Continue ---";
2019-08-11 20:47:43 -07:00
my $entered = <STDIN>;
}
elsif ($menuselection eq "2")
{
# Do a restore
DoRestore();
2022-07-20 20:32:10 -07:00
print "--- Press Enter To Continue ---";
2019-08-11 20:47:43 -07:00
my $entered = <STDIN>;
}
}
}
2022-07-20 19:28:53 -07:00
sub RebuildServer
{
chdir($MINETESTDIR);
system("clear");
system($BuildCommand);
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
sub UpdateServer
{
chdir($MINETESTDIR);
system("clear");
system($UpdateCommand);
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
sub UpdateMods
{
chdir($ModDir);
system("clear");
print "Updating your mods\n";
print "==================\n";
my $ModPrompt = "";
my $entered = "";
# system($UpdateCommand);
opendir(DIR, $ModDir) or die "Could not open $ModDir\n";
# Loop for each directory
while (my $filename = readdir(DIR))
{
if (($filename eq ".") || ($filename eq ".."))
{
# Skip over "." and ".."
next;
}
#print "$filename\n" if -d $filename;
if (-d $filename)
{
print "Current mod: $filename:\n";
print "Update this mod (yes/no/quit):";
$ModPrompt = <STDIN>;
chop($ModPrompt);
if (($ModPrompt eq "quit") || ($ModPrompt eq "q"))
{
last;
}
if (($ModPrompt eq "no") || ($ModPrompt eq "n"))
{
next;
}
# chdir("$ModDir/$filename");
system("git pull");
# print "--- Press Enter To Continue ---";
# my $entered = <STDIN>;
}
}
closedir(DIR);
print "--- Press Enter To Continue ---";
$entered = <STDIN>;
}
sub UpdateGame
{
chdir("$MINETESTDIR/game/minetest_game");
system("clear");
system($UpdateCommand);
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
sub ServerToolsMenu
{
my $WantRespawn="ON";
CheckServerStatus();
if (-f "$MINETESTDIR/nostart")
{
$WantRespawn="OFF";
}
$menuselection = $d->menu( title => "Server Tools Menu", text => "Server is $ServerStatus and respawn is $WantRespawn - Select one:",
list => [ '1', 'Run Backup First',
'2', 'Get Updates',
'3', 'Rebuild Server',
'4', 'Update Game',
'5', 'Update Mods',
'q', 'Main Menu' ] );
}
sub ServerTools
{
while (-1)
{
ServerToolsMenu();
if (($menuselection eq "CANCEL") || ($menuselection eq "ESC") || ($menuselection eq "") || ($menuselection eq "q") || ($menuselection eq "Q"))
{
return;
}
elsif ($menuselection eq "1")
{
# Run a backup
system("clear");
PrintDebugCommand("$BackupCommand");
system("$BackupCommand");
2022-07-20 20:32:10 -07:00
print "--- Press Enter To Continue ---";
2022-07-20 19:28:53 -07:00
my $entered = <STDIN>;
}
elsif ($menuselection eq "2")
{
# Pull Updates
PrintDebugCommand("$UpdateCommand");
UpdateServer();
}
elsif ($menuselection eq "3")
{
# Rebuild Server
PrintDebugCommand("$BuildCommand");
RebuildServer();
}
elsif ($menuselection eq "4")
{
# Rebuild Server
PrintDebugCommand("Updating Game");
UpdateGame();
}
elsif ($menuselection eq "5")
{
# Rebuild Server
PrintDebugCommand("Updating Mods");
UpdateMods();
}
}
}
2022-07-20 20:32:10 -07:00
sub ServerStatusMenu
{
my $WantRespawn="ON";
CheckServerStatus();
if (-f "$MINETESTDIR/nostart")
{
$WantRespawn="OFF";
}
$menuselection = $d->menu( title => "Server Status Menu", text => "Server is $ServerStatus and respawn is $WantRespawn - Select one:",
list => [ '1', 'Free Space',
'2', 'Current Version',
'3', 'Shell Users',
'4', 'Last Shell Logins',
'5', 'Running Processes',
'q', 'Main Menu' ] );
}
sub ServerStatusTools
{
while (-1)
{
ServerStatusMenu();
if (($menuselection eq "CANCEL") || ($menuselection eq "ESC") || ($menuselection eq "") || ($menuselection eq "q") || ($menuselection eq "Q"))
{
return;
}
elsif ($menuselection eq "1")
{
# Space Usage
system("clear");
SpaceUsage();
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
elsif ($menuselection eq "2")
{
# Get Version
system("clear");
system("$MINETESTDIR/bin/$ServerProcess --version");
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
elsif ($menuselection eq "3")
{
# Who's Online
system("clear");
system("$WhoCommand");
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
elsif ($menuselection eq "4")
{
# Last Logins
system("clear");
system("$LastCommand");
print "--- Press Enter To Continue ---";
my $entered = <STDIN>;
}
elsif ($menuselection eq "5")
{
# Top Processes
system("clear");
print "--- To exit this command press \"q\" ---";
my $entered = <STDIN>;
system("$TopCommand");
}
}
}
2022-07-20 19:28:53 -07:00
2020-06-16 22:55:34 -07:00
sub DoUpdate
{
my $DesiredDir = $_[0];
# Update desired utility
chdir ($DesiredDir);
PrintDebugCommand("Running $UpdateCommand in $DesiredDir\n");
system("$UpdateCommand");
2022-07-20 20:32:10 -07:00
print "--- Press Enter To Continue ---";
2020-06-16 22:55:34 -07:00
my $entered = <STDIN>;
}
sub UpdateTools
{
while (-1)
{
UpdateToolsMenu();
if (($menuselection eq "CANCEL") || ($menuselection eq "ESC") || ($menuselection eq "") || ($menuselection eq "q") || ($menuselection eq "Q"))
{
return;
}
elsif ($menuselection eq "1")
{
# Update MMC
DoUpdate($MMCDir);
}
elsif ($menuselection eq "2")
{
# Update BackupToolDir
DoUpdate($BackupToolDir);
}
elsif ($menuselection eq "3")
{
# Update Startup
DoUpdate($StartupDir);
2020-06-18 21:46:14 -07:00
system("cp $StartupDir/minetest $BinDir");
system("cp $StartupDir/startrelay $BinDir");
system("cp $StartupDir/startminetest $MINETESTDIR");
2020-06-16 22:55:34 -07:00
}
}
}
2019-08-11 20:47:43 -07:00
2022-05-09 23:27:49 -07:00
sub InstallMod
{
system("clear");
print "Enter the URL for the mod: ";
my $modurl = <>;
chomp($modurl);
if ($modurl eq "")
{
# Input was blank
print "No URL Specified - aborting\n";
sleep 5;
return;
}
# Try and validate URL
if( lc(substr($modurl, 0, 4)) ne "http")
{
# Doesn;t start with http
print "URL doesn't start with http - aborting\n";
sleep 5;
return;
}
if( lc(substr($modurl, -4)) ne ".git")
{
# Doesn;t end in .git
print "URL doesn't end with .git - aborting\n";
sleep 5;
return;
}
print "URL looks good - trying to clone\n";
chdir($ModDir);
system("git clone $modurl");
print "Were any errors reported? (N/y):";
my $input = <>;
chomp($input);
if (lc($input) eq "y")
{
print "Clone failed, please check URL or correct the issue and try again\n";
sleep 5;
return;
}
system("echo \"-----\n\" >> $MinetestWorld");
if ($? != 0)
{
print "Could not append to file '$MinetestWorld' - check perms: $!";
sleep 5;
return;
}
print "Killing Server Process\n";
system("killall $KillAllString");
print "Process killed...";
print "Waiting for server to restart\n";
my $count = 0;
while ($count < 120)
{
$count += 5;
print "$count ";
sleep 5;
}
print "Checking for new mod in world.mt\n";
my $file = $MinetestWorld;
my $SeenStart = 0;
open(FH, $file) or die("Unable to open file $file for reading");
open(FH2, ">/tmp/newfile") or die("Unable to open file $file for writing");
while(my $String = <FH>)
{
if ($_)
{
chop();
}
if($String =~ /-----/)
{
$SeenStart = -1;
print "Saw Marker\n";
next;
}
if ($SeenStart)
{
my $NewString = $String =~ s/= false/= true/r;
print(FH2 $NewString);
}
else
{
print(FH2 $String);
}
}
close(FH);
close(FH2);
system("cp /tmp/newfile $file");
print "Killing Server Process\n";
system("killall $KillAllString");
print "Process killed...";
print "Waiting for server to restart\n";
my $count = 0;
while ($count < 120)
{
$count += 5;
print "$count ";
sleep 5;
}
print "\nInstall prooess completed\n";
sleep 5;
}
2022-06-02 00:09:06 -07:00
sub RemoveFiles
{
for (split ' ', $FilesToRemove)
{
if (-f $_)
{
unlink($_);
}
}
}
sub SpaceUsage
{
system("clear");
print "System Space:\n";
print "==================\n";
system("$DfCommand");
print "\nSpace Used by You:\n";
print "==================\n";
system("$DuCommand");
print "\nDo you want to remove logs and other expendable items? (N/y): ";
my $input = <>;
chomp($input);
$input = lc($input);
if (($input eq "y") || ($input eq "yes"))
{
RemoveFiles();
print "Possible files removed...\n";
sleep 5;
return;
}
print "Leaving temporary files alone\n";
}
2018-03-12 03:46:05 -07:00
sub MainMenu
{
2018-03-12 04:28:30 -07:00
my $WantRespawn="ON";
2018-03-12 03:46:05 -07:00
CheckServerStatus();
2018-03-12 04:28:30 -07:00
if (-f "$MINETESTDIR/nostart")
{
$WantRespawn="OFF";
}
$menuselection = $d->menu( title => "Main Menu", text => "Server is $ServerStatus and respawn is $WantRespawn - Select one:",
2020-12-21 12:36:27 -08:00
list => [ '1', 'Start Watchdog',
'2', 'Stop Watchdog',
2018-03-12 03:46:05 -07:00
'3', 'Server Console',
2018-03-12 04:28:30 -07:00
'4', 'Turn Off Respawn',
'5', 'Turn Respawn On',
2018-03-12 05:22:13 -07:00
'6', 'Edit World Cfg',
2018-03-19 02:56:51 -07:00
'7', 'Edit minetest.conf',
2019-08-11 20:47:43 -07:00
'8', 'Backup / Restore',
2018-08-16 16:34:02 -07:00
'9', 'View Log',
2019-11-18 23:26:06 -08:00
'10', 'Online Players',
2018-08-21 15:49:26 -07:00
'11', 'Edit Settings',
2019-04-20 18:39:41 -07:00
'12', 'Restart Server',
2020-02-22 02:17:19 -08:00
'13', 'Edit News.txt',
2020-06-16 22:55:34 -07:00
'14', 'Update Utils',
2022-05-09 23:27:49 -07:00
'15', 'Install Mod',
2022-07-20 20:32:10 -07:00
'16', 'Server Status',
2022-06-02 00:09:06 -07:00
'17', 'Scheduled Tasks',
2022-07-20 20:32:10 -07:00
'18', 'Server Tasks',
2018-03-12 03:46:05 -07:00
'q', 'Quit MMC' ] );
}
while (-1)
{
MainMenu();
if (($menuselection eq "CANCEL") || ($menuselection eq "ESC") || ($menuselection eq "") || ($menuselection eq "q") || ($menuselection eq "Q"))
{
$d->msgbox( title => $enjoyedtitle, text => "Thanks for using MMC..." );
exit 0;
}
if ($menuselection eq "1")
{
2020-03-10 23:44:32 -07:00
if ($d->yesno( text => "Confirm starting the server", text => "Are you sure you want to start the server? You should likely use option #12 instead..." ))
{
PrintDebugCommand("$InitDName start");
system("$InitDName start");
sleep(10);
}
2018-03-12 03:46:05 -07:00
}
elsif ($menuselection eq "2")
{
2018-03-12 04:03:21 -07:00
if ($d->yesno( text => "Confirm stopping the server", text => "Are you sure you want to shut down the server?" ))
{
system("$InitDName stop");
2018-03-12 04:06:47 -07:00
sleep(5);
2022-05-09 23:27:49 -07:00
system("killall $ServerStartString");
2018-03-12 04:03:21 -07:00
}
2018-03-12 03:46:05 -07:00
}
elsif ($menuselection eq "3")
{
2018-03-12 05:03:03 -07:00
$d->msgbox( text => "To exit the minetest console and return to MMC press CTRL-A CTRL-D" );
2020-02-20 23:18:13 -08:00
system("screen -r Minetest");
2018-03-12 03:46:05 -07:00
}
elsif ($menuselection eq "4")
{
2018-03-12 04:28:30 -07:00
# Turn off respawn
system("touch $MINETESTDIR/nostart");
2018-03-12 03:46:05 -07:00
}
elsif ($menuselection eq "5")
{
2018-03-12 04:28:30 -07:00
# Turn respawn back on
if (-f "$MINETESTDIR/nostart")
{
unlink("$MINETESTDIR/nostart");
}
2018-03-12 03:46:05 -07:00
}
2018-03-12 05:22:13 -07:00
elsif ($menuselection eq "6")
{
# Edit world.mt file
2018-08-26 20:20:38 -07:00
system("$FileEditor $MinetestWorld");
2018-03-12 05:22:13 -07:00
}
2018-03-19 02:56:51 -07:00
elsif ($menuselection eq "7")
{
# Edit minetest.conf file
2018-08-18 21:53:01 -07:00
system("$FileEditor $MinetestConf");
2018-03-19 02:56:51 -07:00
}
2018-07-12 21:37:39 -07:00
elsif ($menuselection eq "8")
{
2019-08-11 20:47:43 -07:00
# Backup Menu
BackupTools();
2018-08-16 16:34:02 -07:00
}
elsif ($menuselection eq "9")
{
# View log file
system("$PagerCommand $Logfile");
}
elsif ($menuselection eq "10")
{
2019-11-18 23:26:06 -08:00
# View online players
2018-08-16 16:34:02 -07:00
system("clear");
system("ls $PlayersDir");
2022-07-20 20:32:10 -07:00
print "--- Press Enter To Continue ---";
2018-08-16 16:34:02 -07:00
my $entered = <STDIN>;
2018-07-12 21:37:39 -07:00
}
2018-08-21 15:49:26 -07:00
elsif ($menuselection eq "11")
{
# Edit minetest.conf file
system("$FileEditor $MySettings");
}
2019-01-01 20:57:13 -08:00
elsif ($menuselection eq "12")
{
# Reset server process
print "Killing Server Process\n";
2022-05-09 23:27:49 -07:00
system("killall $KillAllString");
2019-01-01 20:57:13 -08:00
print "Process killed...";
sleep(5);
}
2020-02-22 02:17:19 -08:00
elsif ($menuselection eq "13")
{
# Edit news.txt file
system("$FileEditor $NewsFile");
}
2020-06-16 22:55:34 -07:00
elsif ($menuselection eq "14")
{
# Update Menu
UpdateTools();
}
2022-05-09 23:27:49 -07:00
elsif ($menuselection eq "15")
{
# Install Mod
InstallMod();
}
2022-06-02 00:09:06 -07:00
elsif ($menuselection eq "16")
{
2022-07-20 20:32:10 -07:00
# Server Status Tools
ServerStatusTools();
2022-06-02 00:09:06 -07:00
}
elsif ($menuselection eq "17")
{
# Space Usage
system("$CrontabCommand");
}
2022-07-20 20:32:10 -07:00
elsif ($menuselection eq "18")
2022-07-20 19:28:53 -07:00
{
# Server Tools
ServerTools();
}
2018-03-12 03:46:05 -07:00
}
exit 0;
