mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
29 lines
858 B
Perl
Executable File
29 lines
858 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require './smf-lib.pl';
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'smfwizard_title'}, "");
|
|
|
|
# wizard-specific info here!
|
|
|
|
if (defined($in{'clearout'})) {
|
|
if ($in{'clearout'} == 1) {
|
|
&wizard_clear_all_data($wizard);
|
|
}
|
|
}
|
|
&wizard_header($wizard, "smfwizard_service.cgi",
|
|
"$text{'smfwizard_service_heading'}",
|
|
&convert_links_in_text("$text{'smfwizard_service_description'}"),
|
|
"images/smf.gif");
|
|
&wizard_input("smfwizard_service.cgi", "$text{'smfwizard_service_name'}",
|
|
"service_name", 60, ".+", "$text{'smfwizard_service_name_error'}");
|
|
&wizard_input("smfwizard_service.cgi", "$text{'smfwizard_service_version'}",
|
|
"service_version", 60, "\s*[0-9]+\s*",
|
|
"$text{'smfwizard_service_version_error'}");
|
|
|
|
&wizard_footer($wizard, "smfwizard_service.cgi");
|
|
# end wizard-specific info
|
|
|
|
&ui_print_footer("index.cgi", $text{'index'});
|
|
|