smf/smfwizard_exec.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './smf-lib.pl';
   4 &ReadParse();
   5 &ui_print_header(undef, $text{'smfwizard_title'}, "");
   6
   7 # wizard-specific info here
   8 &wizard_header($wizard, "smfwizard_exec.cgi",
   9         "$text{'smfwizard_exec_heading'}",
  10         &convert_links_in_text("$text{'smfwizard_exec_description'}"),
  11         "images/smf.gif");
  12
  13 @sinst_list = ("service");
  14 # add existing instances to list...
  15 @existing_insts = &wizard_get_data_values("smfwizard_instance.cgi",
  16         "instance_name");
  17 @sinst_list= (@sinst_list, @existing_insts);
  18
  19 &wizard_select("smfwizard_exec.cgi", "$text{'smfwizard_sinst_name'}",
  20         "sinst", \@sinst_list, ".+", "$text{'smfwizard_sinst_error'}");
  21 &wizard_input("smfwizard_exec.cgi", "$text{'smfwizard_exec_name'}",
  22         "exec_name", 60, ".+",
  23         "$text{'smfwizard_exec_name_error'}");
  24 &wizard_input("smfwizard_exec.cgi", "$text{'smfwizard_exec_timeout'}",
  25         "exec_timeout", 20, "[0-9]+",
  26         "$text{'smfwizard_exec_timeout_error'}");
  27 &wizard_input("smfwizard_exec.cgi",
  28         "$text{'smfwizard_exec_exec'}", "exec_exec",
  29         60, ".+", "$text{'smfwizard_exec_exec_error'}");
  30 &wizard_input("smfwizard_exec.cgi",
  31         "$text{'smfwizard_exec_user'}", "exec_user",
  32         60, ".*", "$text{'smfwizard_exec_user_error'}");
  33 &wizard_input("smfwizard_exec.cgi",
  34         "$text{'smfwizard_exec_group'}", "exec_group",
  35         60, ".*", "$text{'smfwizard_exec_group_error'}");
  36 &wizard_input("smfwizard_exec.cgi",
  37         "$text{'smfwizard_exec_privileges'}", "exec_privileges",
  38         60, ".*", "$text{'smfwizard_exec_privileges_error'}");
  39
  40 &wizard_footer($wizard, "smfwizard_exec.cgi");
  41 # end wizard-specific info
  42
  43 &ui_print_footer("index.cgi", $text{'index'});