mirror of
https://github.com/webmin/webmin.git
synced 2026-02-17 12:12:17 +00:00
101 lines
2.8 KiB
Perl
101 lines
2.8 KiB
Perl
#!/usr/local/bin/perl
|
|
# Create or delete a world
|
|
|
|
use strict;
|
|
use warnings;
|
|
require './minecraft-lib.pl';
|
|
our (%in, %text, %config);
|
|
if ($ENV{'CONTENT_TYPE'} =~ /boundary=/) {
|
|
&ReadParseMime();
|
|
}
|
|
else {
|
|
&ReadParse();
|
|
}
|
|
my @worlds = &list_worlds();
|
|
my $conf = &get_minecraft_config();
|
|
my $def = &find_value("level-name", $conf);
|
|
&error_setup($in{'new'} ? $text{'world_err1'} : $text{'world_err2'});
|
|
|
|
if ($in{'new'}) {
|
|
# Validate new world inputs
|
|
$in{'name'} =~ /^[a-z0-9\.\_\-]+$/i || &error($text{'world_ename'});
|
|
my ($clash) = grep { $_->{'name'} eq $in{'name'} } @worlds;
|
|
$clash && &error($text{'world_eclash'});
|
|
my $dir = "$config{'minecraft_dir'}/$in{'name'}";
|
|
-e $dir && &error($text{'world_eclash2'});
|
|
|
|
# Create world directory
|
|
if ($in{'src'} == 0) {
|
|
# Empty world
|
|
# XXX .dat file?
|
|
&make_dir_logged($dir, 0755);
|
|
}
|
|
elsif ($in{'src'} == 1) {
|
|
# Clone existing world
|
|
if (&is_minecraft_server_running() &&
|
|
$def eq $in{'world'}) {
|
|
# Flush state to disk
|
|
&execute_minecraft_command("save-all");
|
|
&execute_minecraft_command("save-off");
|
|
}
|
|
©_source_dest("$config{'minecraft_dir'}/$in{'world'}",
|
|
$dir);
|
|
if (&is_minecraft_server_running() &&
|
|
$def eq $in{'world'}) {
|
|
# Re-enable world writes
|
|
&execute_minecraft_command("save-on");
|
|
}
|
|
}
|
|
elsif ($in{'src'} == 2) {
|
|
# From uploaded file
|
|
$in{'upload'} || &error($text{'world_eupload'});
|
|
my $temp = &transname();
|
|
my $fh = "ZIP";
|
|
&open_tempfile($fh, ">$temp", 0, 1);
|
|
&print_tempfile($fh, $in{'upload'});
|
|
&close_tempfile($fh);
|
|
my $out = &backquote_command("file ".$temp);
|
|
$out =~ /Zip\s+archive/i || &error($text{'world_ezip'});
|
|
my $tempdir = &transname();
|
|
&make_dir($tempdir, 0755);
|
|
$out = &backquote_command("cd $tempdir && unzip $temp");
|
|
$? && &error(&text('world_eunzip', $out));
|
|
my $dat = "$tempdir/level.dat";
|
|
if (!-r $dat) {
|
|
($dat) = glob("$tempdir/*/level.dat");
|
|
}
|
|
-r $dat && $dat =~ /^(.*)\/level.dat$/ ||
|
|
&error($text{'world_edat'});
|
|
my $copysrc = $1;
|
|
print STDERR "dat=$dat copysrc=$copysrc\n";
|
|
©_source_dest($copysrc, $dir);
|
|
}
|
|
&redirect("list_worlds.cgi");
|
|
}
|
|
elsif ($in{'delete'} && $in{'confirm'}) {
|
|
# Delete the world
|
|
$in{'name'} || &error("Missing world name");
|
|
my $dir = "$config{'minecraft_dir'}/$in{'name'}";
|
|
&unlink_logged($dir);
|
|
&redirect("list_worlds.cgi");
|
|
}
|
|
elsif ($in{'delete'}) {
|
|
# Ask first before deleting
|
|
$in{'name'} || &error("Missing world name");
|
|
$def eq $in{'name'} && &error($text{'world_einuse'});
|
|
&ui_print_header(undef, $text{'world_edit'}, "");
|
|
|
|
print &ui_confirmation_form(
|
|
"save_world.cgi",
|
|
&text('world_rusure', "<tt>$in{'name'}</tt>"),
|
|
[ [ "name", $in{'name'} ],
|
|
[ "delete", 1 ] ],
|
|
[ [ "confirm", $text{'world_confirm'} ] ],
|
|
);
|
|
|
|
&ui_print_footer("list_worlds.cgi", $text{'worlds_return'});
|
|
}
|
|
else {
|
|
&error("No button clicked");
|
|
}
|