mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
105 lines
3.2 KiB
Perl
Executable File
105 lines
3.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Perform some action on a player
|
|
|
|
use strict;
|
|
use warnings;
|
|
require './minecraft-lib.pl';
|
|
our (%in, %text);
|
|
&ReadParse();
|
|
&error_setup($text{'conn_err'});
|
|
|
|
my $msg;
|
|
if ($in{'msg'}) {
|
|
# Send a message
|
|
$in{'text'} =~ /\S/ || &error($text{'conn_etext'});
|
|
&send_server_command("/say $in{'name'} $in{'text'}");
|
|
$msg = $text{'conn_msgdone'};
|
|
}
|
|
elsif ($in{'kill'}) {
|
|
# Kill this player
|
|
&send_server_command("/kill $in{'name'}");
|
|
$msg = $text{'conn_killdone'};
|
|
}
|
|
elsif ($in{'kick'}) {
|
|
# Disconnect this player
|
|
&send_server_command("/kick $in{'name'}");
|
|
$msg = $text{'conn_kickdone'};
|
|
}
|
|
elsif ($in{'give'}) {
|
|
# Give an item
|
|
$in{'id'} =~ /^\d+$/ || &error($text{'conn_eid'});
|
|
$in{'count'} =~ /^\d+$/ || &error($text{'conn_ecount'});
|
|
my ($i) = grep { $_->{'id'} eq $in{'id'} }
|
|
&list_minecraft_items();
|
|
my $out = &execute_minecraft_command(
|
|
"/give $in{'name'} $in{'id'} $in{'count'}");
|
|
$out =~ /Given.*\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_givedone', $i ? $i->{'name'} : $in{'id'},
|
|
$in{'count'});
|
|
}
|
|
elsif ($in{'spawn'}) {
|
|
# Change spawn point
|
|
$in{'spawnx'} =~ /^\-?([0-9]+)$/ || &error($text{'conn_ex'});
|
|
$in{'spawny'} =~ /^\-?([0-9]+)$/ || &error($text{'conn_ey'});
|
|
$in{'spawnz'} =~ /^\-?([0-9]+)$/ || &error($text{'conn_ez'});
|
|
my $out = &execute_minecraft_command(
|
|
"/spawnpoint $in{'name'} $in{'spawnx'} $in{'spawny'} $in{'spawnz'}");
|
|
$out =~ /Set\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_spawndone', $in{'spawnx'}, $in{'spawny'}, $in{'spawnz'});
|
|
}
|
|
elsif ($in{'tp'}) {
|
|
$in{'tpx'} =~ /^\~?\-?([0-9]+)$/ || &error($text{'conn_ex'});
|
|
$in{'tpy'} =~ /^\~?\-?([0-9]+)$/ || &error($text{'conn_ey'});
|
|
$in{'tpz'} =~ /^\~?\-?([0-9]+)$/ || &error($text{'conn_ez'});
|
|
my $out = &execute_minecraft_command(
|
|
"/tp $in{'name'} $in{'tpx'} $in{'tpy'} $in{'tpz'}");
|
|
$out =~ /Teleported\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_tpdone', $in{'tpx'}, $in{'tpy'}, $in{'tpz'});
|
|
}
|
|
elsif ($in{'tpp'}) {
|
|
my $out = &execute_minecraft_command(
|
|
"/tp $in{'name'} $in{'player'}");
|
|
$out =~ /Teleported\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_tppdone', $in{'player'});
|
|
}
|
|
elsif ($in{'ban'}) {
|
|
my $out = &execute_minecraft_command(
|
|
"/ban $in{'name'} $in{'reason'}");
|
|
$out =~ /Banned\s+player\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_bandone', $in{'name'});
|
|
}
|
|
elsif ($in{'pardon'}) {
|
|
my $out = &execute_minecraft_command(
|
|
"/pardon $in{'name'}");
|
|
$out =~ /Unbanned\s+player\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_pardondone');
|
|
}
|
|
elsif ($in{'op'}) {
|
|
my $out = &execute_minecraft_command(
|
|
"/op $in{'name'}");
|
|
$out =~ /Opped\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_opdone');
|
|
}
|
|
elsif ($in{'deop'}) {
|
|
my $out = &execute_minecraft_command(
|
|
"/deop $in{'name'}");
|
|
$out =~ /De-opped\s+\Q$in{'name'}\E/ ||
|
|
&error(&html_escape($out));
|
|
$msg = &text('conn_deopdone');
|
|
}
|
|
else {
|
|
# No button clicked!
|
|
&error($text{'conn_ebutton'});
|
|
}
|
|
&redirect("view_conn.cgi?name=".&urlize($in{'name'})."&msg=".
|
|
&urlize($msg));
|
|
|
|
|