#!/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)) {

			# If default domain is set, refresh navigation to it
			my $refresh;
			if ($in{'defdom'}) {
				$refresh = "&refresh=$in{'defhost'}";
				}
			&redirect("wizard.cgi?step=".($in{'step'}+1)."$refresh");
			}
		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;