proc/index_run.cgi

   1 #!/usr/local/bin/perl
   2 # index_run.cgi
   3 # Allows running of a new command
   4
   5 require './proc-lib.pl';
   6 if (!$access{'run'}) {
   7         &redirect("index_tree.cgi");
   8         }
   9 use Config;
  10 &ui_print_header(undef, $text{'index_title'}, "", "run", !$no_module_config, 1);
  11 &ReadParse();
  12 &index_links("run");
  13
  14 print &ui_form_start("run.cgi", "post");
  15 print &ui_table_start(undef, undef, 2);
  16
  17 # Command to run
  18 print &ui_table_row(&hlink($text{'run_command'}, "cmd"),
  19         &ui_textbox("cmd", undef, 60)." ".
  20         &ui_submit($text{'run_submit'}));
  21
  22 # Foreground mode
  23 print &ui_table_row(&hlink($text{'run_mode'}, "mode"),
  24         &ui_radio("mode", 0, [ [ 1, $text{'run_bg'} ],
  25                                [ 0, $text{'run_fg'} ] ]));
  26
  27 # Run as user
  28 if (&supports_users()) {
  29         if ($< == 0) {
  30                 print &ui_table_row(&hlink($text{'run_as'}, "runas"),
  31                         &ui_user_textbox("user", $default_run_user));
  32                 }
  33         else {
  34                 print &ui_hidden("user", $remote_user),"\n";
  35                 }
  36         }
  37
  38 # Input to command
  39 print &ui_table_row(&hlink($text{'run_input'}, "input"),
  40         &ui_textarea("input", undef, 5, 60));
  41 print &ui_table_end();
  42 print &ui_form_end();
  43
  44 &ui_print_footer("/", $text{'index'});