smf/smfwizard_dependent.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_dependent.cgi",
   9         "$text{'smfwizard_dependent_heading'}",
  10         &convert_links_in_text("$text{'smfwizard_dependent_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_dependent.cgi", "$text{'smfwizard_sinst_name'}",
  20         "sinst", \@sinst_list, ".+", "$text{'smfwizard_sinst_error'}");
  21 &wizard_input("smfwizard_dependent.cgi", "$text{'smfwizard_dependent_name'}",
  22         "dependent_name", 60, ".+",
  23         "$text{'smfwizard_dependent_name_error'}");
  24 &wizard_select("smfwizard_dependent.cgi", "$text{'smfwizard_dependent_type'}",
  25         "dependent_type", \@dep_types, ".+",
  26         "$text{'smfwizard_dependent_type_error'}");
  27 &wizard_select("smfwizard_dependent.cgi",
  28         "$text{'smfwizard_dependent_grouping'}", "dependent_grouping",
  29         \@grouping_values, ".+",
  30         "$text{'smfwizard_dependent_grouping_error'}");
  31 &wizard_select("smfwizard_dependent.cgi",
  32         "$text{'smfwizard_dependent_restart_on'}", "dependent_restart_on",
  33         \@restart_on_values, ".+",
  34         "$text{'smfwizard_dependent_restart_on_error'}");
  35 &wizard_input("smfwizard_dependent.cgi",
  36         "$text{'smfwizard_dependent_fmri'}", "dependent_fmri",
  37         60, ".+", "$text{'smfwizard_dependent_fmri_error'}");
  38 print "<tr $cb><td>";
  39 &print_svc_chooser("dependent_fmri", 0, "$text{'svc_chooser_titleboth'}",
  40         "both", "0");
  41 &print_path_chooser("dependent_fmri", 0, "$text{'path_chooser_title'}",
  42         "0");
  43 print "</td></tr>";
  44 &wizard_select("smfwizard_dependent.cgi",
  45         "$text{'smfwizard_dependent_stability'}", "dependent_stability",
  46         \@stability_values, ".+",
  47         "$text{'smfwizard_dependent_stability_error'}");
  48
  49 &wizard_footer($wizard, "smfwizard_dependent.cgi");
  50 # end wizard-specific info
  51
  52 &ui_print_footer("index.cgi", $text{'index'});