#!/usr/bin/perl
# Show a field for running a console command
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './minecraft-lib.pl';
our (%in, %text, %config);
&ReadParse();
my @history = &get_command_history();
$in{'command'} ||= $in{'old'};
if ($in{'command'}) {
# Run the given command
&send_server_command($in{'command'});
@history = &unique($in{'command'}, @history);
while(@history > $config{'history_size'}) {
pop(@history);
}
&save_command_history(\@history);
}
&PrintHeader();
print "\n";
print &ui_form_start("command.cgi", "post");
my @grid = ( "$text{'console_run'}",
&ui_textbox("command", undef, 80)." ".
&ui_submit($text{'console_ok'}) );
if (@history) {
push(@grid, "$text{'console_old'}",
&ui_select("old", undef, \@history)." ".
&ui_button($text{'console_edit'}, undef, 0,
"onClick='form.command.value = form.old.value'"));
}
print &ui_grid_table(\@grid, 2);
print &ui_form_end();
print "\n";