smf/wizardtest.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './smf-lib.pl';
   4 &ReadParse();
   5 &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
   6         &help_search_link("smf", "man", "doc", "howto"));
   7
   8 # wizard-specific info here!
   9 $wizard = "page= wizardtest.cgi  , min =1,max=1;finish=done.cgi;";
  10 &wizard_header($wizard, "wizardtest.cgi", "heading", "description here",
  11         "images/smf.gif");
  12 &wizard_input("wizardtest.cgi", "Enter name here", "name", 60, ".+",
  13         "Must be non-null!");
  14 @bool = ("true", "false");
  15 &wizard_select("wizardtest.cgi", "Enabled?", "enabled", \@bool,
  16         ".+", "Must be non-null!");
  17 &wizard_textarea("wizardtest.cgi", "Enter info here", "area", 10, 40, ".*",
  18         "");
  19 &wizard_footer($wizard, "wizardtest.cgi");
  20
  21 # end wizard-specific info
  22 &ui_print_footer("/", $text{'index'});
  23