smf/smfwizard_service.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
   9 if (defined($in{'clearout'})) {
  10         if ($in{'clearout'} == 1) {
  11                 &wizard_clear_all_data($wizard);
  12                 }
  13         }
  14 &wizard_header($wizard, "smfwizard_service.cgi",
  15         "$text{'smfwizard_service_heading'}",
  16         &convert_links_in_text("$text{'smfwizard_service_description'}"),
  17         "images/smf.gif");
  18 &wizard_input("smfwizard_service.cgi", "$text{'smfwizard_service_name'}",
  19         "service_name", 60, ".+", "$text{'smfwizard_service_name_error'}");
  20 &wizard_input("smfwizard_service.cgi", "$text{'smfwizard_service_version'}",
  21         "service_version", 60, "\s*[0-9]+\s*",
  22         "$text{'smfwizard_service_version_error'}");
  23
  24 &wizard_footer($wizard, "smfwizard_service.cgi");
  25 # end wizard-specific info
  26
  27 &ui_print_footer("index.cgi", $text{'index'});
  28