Viewing file:  index_run.cgi (1.07 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# index_run.cgi
# Allows running of a new command
require './proc-lib.pl';
if (!$access{'run'}) {
&redirect("index_tree.cgi");
}
use Config;
&ui_print_header(undef, $text{'index_title'}, "", "run", !$no_module_config, 1);
&ReadParse();
&index_links("run");
print &ui_form_start("run.cgi", "post");
print &ui_table_start(undef, undef, 2);
# Command to run
print &ui_table_row(&hlink($text{'run_command'}, "cmd"),
&ui_textbox("cmd", undef, 60)." ".
&ui_submit($text{'run_submit'}));
# Foreground mode
print &ui_table_row(&hlink($text{'run_mode'}, "mode"),
&ui_radio("mode", 0, [ [ 1, $text{'run_bg'} ],
[ 0, $text{'run_fg'} ] ]));
# Run as user
if (&supports_users()) {
if ($< == 0) {
print &ui_table_row(&hlink($text{'run_as'}, "runas"),
&ui_user_textbox("user", $default_run_user));
}
else {
print &ui_hidden("user", $remote_user),"\n";
}
}
# Input to command
print &ui_table_row(&hlink($text{'run_input'}, "input"),
&ui_textarea("input", undef, 5, 60));
print &ui_table_end();
print &ui_form_end();
&ui_print_footer("/", $text{'index'});
|