Viewing file:  wizard.cgi (1.94 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show the multi-step post-install wizard
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'wizard_ecannot'});
&ReadParse();
if ($in{'cancel'}) {
# Give up on the whole wizard
$config{'wizard_run'} = 1;
&save_module_config();
&redirect("");
return;
}
@wizard_steps = &get_wizard_steps();
$step = $wizard_steps[$in{'step'} || 0];
if ($in{'parse'} || $in{'mypass'}) {
# Call the parse function for this step, which may return an error.
# If so, re-display the page .. otherwise, re-direct
$pfunc = "wizard_parse_".$step;
if (defined(&$pfunc)) {
$err = &$pfunc(\%in);
&webmin_log("wizard", undef, $step);
}
if (!$err) {
# Worked, show next step, if there is one
if ($in{'step'}+1 < scalar(@wizard_steps)) {
&redirect("wizard.cgi?step=".($in{'step'}+1));
}
else {
$config{'wizard_run'} = 1;
&save_module_config();
&redirect("");
}
return;
}
}
elsif ($in{'prev'}) {
# Go back to previous page
&redirect("wizard.cgi?step=".($in{'step'}-1));
return;
}
&ui_print_header($text{'wizard_title_'.$step}, $text{'wizard_title'}, "");
print &ui_form_start("wizard.cgi", "post");
print &ui_hidden("step", $in{'step'});
if ($err) {
print &ui_alert_box($err, 'warn');
}
print &ui_table_start(undef, "width=100%", 2);
# Show step-specific inputs
$ffunc = "wizard_show_".$step;
&$ffunc();
print &ui_table_end();
if ($wizard_steps[$in{'step'}] eq 'done') {
$cmsg = $text{'wizard_end'};
$ctags = "style=\"font-weight: bold\"";
}
else {
$cmsg = $text{'wizard_cancel'};
}
if ($wizard_steps[$in{'step'}] eq 'alldone') {
$cmsg = undef;
$nmsg = $text{'wizard_finish'};
$mtags = "style=\"font-weight: bold\"";
}
else {
$nmsg = $text{'wizard_next'};
}
print &ui_form_end([
[ "prev", $text{'wizard_prev'}, undef, !$in{'step'} ],
undef,
$cmsg ? [ "cancel", $cmsg, undef, undef, $ctags ] : undef,
undef,
[ "parse", $nmsg, undef, undef, $mtags ],
], "100%");
1;
|