View File Name : wizard.pl
\n";
&wizard_form_input_footer();
}
sub wizard_select()
{
local ($pagename, $description, $name, $selection_arrayref, $validation_regexp,
$validation_err, $pageinst, $value, @array, $elt, $select);
($pagename, $description, $name, $selection_arrayref, $validation_regexp,
$validation_err) = @_;
$value = &wizard_form_input_header($pagename, $description, $name,
$validation_regexp, $validation_err);
print "
\n";
&wizard_form_input_footer();
}
# subfns used for wizard form inputs...
sub wizard_form_input_header()
{
local ($pagename, $description, $name, $validation_regexp,
$validation_err, $pageinst, $value);
($pagename, $description, $name, $validation_regexp, $validation_err) = @_;
$pageinst = &wizard_get_pageinst();
$value = &wizard_get_data_value($pagename, $pageinst, $name);
&wizard_validate_input($value, $validation_regexp, $validation_err);
print "
$description |
| \n";
return $value;
}
sub wizard_form_input_footer()
{
print " |
\n";
}
# Deals with page submission
#
# Parameters: ref_to_array_of_wizard_element_hashes, pagename, heading,
# description, imagename
#
sub wizard_process_submit()
{
local ($wizinfo, %wizard, $wizref, $pagename, $heading, $description, $image);
($wizinfo, $pagename, $heading, $description, $image) = @_;
%wizard = &read_in_wizard("$wizinfo");
$wizref = \%wizard;
$pageinst = &wizard_get_pageinst();
if (defined($in{'submit'})) {
$button_name = $in{'submit'};
} else {
&error("No button name passed to wizard_process_submit!");
}
if ($button_name eq "$text{'wizard_finish'}") {
# finish is the submit scripts problem!
return;
}
if (defined($in{'pagename'})) {
$pagename = $in{'pagename'};
} else {
&error("No page name passed to wizard_process_submit!");
}
if (defined($in{'pageinst'})) {
$pageinst = $in{'pageinst'};
} else {
&error("No page instance passed to wizard_process_submit!");
}
if ($button_name eq "$text{'wizard_back'}") {
# find previous page
$previous_pagename = $pagename;
$previous_pageinst = $pageinst;
$pagenum = &get_wizard_info_by_name($wizref, "pagenum",
$pagename);
if (($pageinst == 0) && ($pagenum > 0)) {
$previous_pagenum = $pagenum - 1;
$previous_pagename = &get_wizard_info_by_page($wizref,
"pagename", $previous_pagenum);
@num_pageinsts = &list_wizard_datafiles($previous_pagename);
if (@num_pageinsts > 0) {
$previous_pageinst = @num_pageinsts - 1;
}
} elsif ($pageinst > 0) {
$previous_pageinst = $pageinst - 1;
}
# validation needed? does data already exist for page?
$validate_option = "";
$previous_datafile = "$previous_pagename.$previous_pageinst";
@datafiles = &list_wizard_datafiles($previous_datafile);
if (@datafiles > 0) {
$validate_option = "&validate=1";
}
&redirect
("$previous_pagename?pageinst=$previous_pageinst$validate_option");
}
if ($button_name eq "$text{'wizard_next'}") {
# find next page
$next_pagename = $pagename;
$next_pageinst = $pageinst;
@num_pageinsts = &list_wizard_datafiles($pagename);
$lastinst = 0;
if (@num_pageinsts > 0) {
$lastinst = @num_pageinsts - 1;
}
if ($pageinst >= $lastinst) {
$pagenum = &get_wizard_info_by_name($wizref, "pagenum",
$pagename);
@num_pages = &get_wizard_info_by_name($wizref, "pages");
if ($pagenum < (@num_pages - 1)) {
$next_pagenum = $pagenum + 1;
$next_pagename = &get_wizard_info_by_page($wizref,
"pagename", $next_pagenum);
$next_pageinst = 0;
}
} else {
$next_pageinst = $pageinst + 1;
}
# validation needed? does data already exist for page?
$next_datafile = "$next_pagename.$next_pageinst";
@datafiles = &list_wizard_datafiles($next_datafile);
$validate_option= "";
if (@datafiles > 0) {
$validate_option = "&validate=1";
}
&redirect("$next_pagename?pageinst=$next_pageinst$validate_option");
}
if ($button_name eq "$text{'wizard_new'}") {
# for new, if we have less than full complement of instances,
# use the last unused instance, otherwise stay here
$next_pagename = $pagename;
$next_pageinst = $pageinst;
@num_pageinsts = &list_wizard_datafiles($pagename);
$max_inst = &get_wizard_info_by_name($wizref, "max_datafiles",
$pagename);
if (@num_pageinsts <= $max_inst) {
$next_pageinst = @num_pageinsts;
}
&redirect("$next_pagename?pageinst=$next_pageinst");
}
if ($button_name eq "$text{'wizard_remove'}") {
&wizard_clear_data($pagename, $pageinst);
&redirect("$pagename?pageinst=$pageinst");
}
if (($button_name eq "$text{'wizard_add'}") ||
($button_name eq "$text{'wizard_update'}")) {
# find next page
$next_pagename = $pagename;
$next_pageinst = $pageinst;
$max_inst = &get_wizard_info_by_name($wizref, "max_datafiles",
$pagename);
if ($pageinst < ($max_inst - 1)) {
# in this case, add can move to another instance
$next_pageinst = $pageinst + 1;
} else {
# in this case, add moves to next page if possible
$pagenum = &get_wizard_info_by_name($wizref, "pagenum",
$pagename);
@num_pages = &get_wizard_info_by_name($wizref, "pages");
if ($pagenum < (@num_pages - 1)) {
$next_pagenum = $pagenum + 1;
$next_pagename = &get_wizard_info_by_page($wizref,
"pagename", $next_pagenum);
$next_pageinst = 0;
}
}
# save data and reload validation stage (which includes automatic
# redirect if no validation errors occur)
&wizard_save_data($pagename, $pageinst);
$validation_success = 1;
&redirect("$pagename?pageinst=$pageinst&validate=1&next_pagename=$next_pagename&next_pageinst=$next_pageinst");
}
# Shouldn't be here!
&error("Invalid button name $button_name!");
}
# Return pageinst if defined, 0 otherwise.
#
# Parameters:
#
sub wizard_get_pageinst()
{
local ($pageinst);
if (defined($in{'pageinst'})) {
$pageinst = $in{'pageinst'};
} else {
$pageinst = 0;
}
return $pageinst;
}
# Redirect to next target pagename/pageinst are defined...
#
# Parameters:
#
sub wizard_redirect_next()
{
local ($pagename, $pageinst);
($pagename, $pageinst) = @_;
if ((defined($in{'next_pagename'})) && (defined($in{'next_pageinst'}))) {
# add validation success value to datafile
# add validation result to datafile - used to assess if we can finish
&wizard_save_validation_value($pagename, $pageinst);
# if validation succeeded, move on...
if ($validation_success == 1) {
print <
location.href = '$in{'next_pagename'}?pageinst=$in{'next_pageinst'}';
EOF
}
}
}
sub wizard_validate_input()
{
local ($value, $validation_regexp, $validation_err);
($value, $validation_regexp, $validation_err) = @_;
# do we do validation here?
if (defined($in{'validate'})) {
if ($in{'validate'} == 1) {
if ($value =~ /^$validation_regexp$/) {
# ok, so we can redirect
} else {
print "| \n";
print
"$validation_err";
print " |
\n";
# flag global var to indicate validation failed - no
# redirect will occur as a result...
$validation_success = 0;
}
}
}
}
# Give appropriate full path to datafile when given pagename/inst
#
# Parameters: pagename, pageinst
#
sub wizard_datafile_name()
{
local ($pagename, $pageinst);
($pagename, $pageinst) = @_;
return "$module_config_directory/${pagename}.${pageinst}.wizdata";
}
# Saves data to datafile for page/inst
#
# Parameters: pagename, pageinst
#
sub wizard_save_data()
{
local ($pagename, $pageinst, @inkeys, $datafile);
($pagename, $pageinst) = @_;
$datafile = &wizard_datafile_name($pagename, $pageinst);
# save webmin's "in" hash to file
@inkeys = keys(%in);
open(DATAFILE,">$datafile");
foreach $inkey (@inkeys) {
print DATAFILE "$inkey=$in{$inkey}\n";
}
close(DATAFILE);
}
sub wizard_save_validation_value()
{
local ($pagename, $pageinst, $datafile);
($pagename, $pageinst) = @_;
$datafile = &wizard_datafile_name($pagename, $pageinst);
open(DATAFILE,">>$datafile");
print DATAFILE "validation_success=$validation_success";
close(DATAFILE);
}
# Removes all datafiles for wizard
#
# Parameters: wizard_info
#
sub wizard_clear_all_data()
{
local ($wizinfo, %wizard, $wizref, @pages, $page, @allinsts, $inst);
$wizinfo = $_[0];
%wizard = &read_in_wizard("$wizinfo");
$wizref = \%wizard;
@pages = &get_wizard_info_by_name($wizref, "pages");
foreach $page (@pages) {
@allinsts = &list_wizard_datafiles("$page->{'pagename'}");
foreach $inst (@allinsts) {
unlink($inst);
}
}
}
# Removes datafile, moves those above down one instance
#
# Parameters: pagename, pageinst
#
sub wizard_clear_data()
{
local ($pagename, $pageinst, $datafile, @num_inst, $instnum);
($pagename, $pageinst) = @_;
$datafile = &wizard_datafile_name($pagename, $pageinst);
@num_inst = &list_wizard_datafiles($pagename);
unlink($datafile);
# move all instances above deleted instance down one to fill gap....
for ($instnum = $pageinst + 1; $instnum < @num_inst; $instnum++) {
$datafile_old = &wizard_datafile_name($pagename,
$instnum);
$datafile_new = &wizard_datafile_name($pagename,
$instnum -1);
rename($datafile_old, $datafile_new);
}
}
# Reads wizard data file into key-value hash
#
# Parameters: pagename, pageinst
#
sub wizard_get_data()
{
local ($pagename, $pageinst, $datafile, @data, $line, $key, $value, %hash);
($pagename, $pageinst) = @_;
$datafile = &wizard_datafile_name($pagename, $pageinst);
open(DATAFILE, "<".$datafile);
@data = ;
foreach $line (@data) {
if ($line =~ /^\s*\#/) {
next;
}
if ($line =~ /\s*([^=]+)=(.*)/) {
$key = $1;
$value = $2;
$hash{"$key"} = "$value";
}
}
return %hash;
}
# Gets data value for particular page/inst
#
# Parameters: pagename, pageinst, datakey
#
sub wizard_get_data_value()
{
local ($pagename, $pageinst, $datakey, %hash);
($pagename, $pageinst, $datakey) = @_;
%hash = &wizard_get_data($pagename, $pageinst);
return ($hash{"$datakey"});
}
# Gets data values for all page insts associated with a pagename
#
# Parameters: pagename, datakey
#
sub wizard_get_data_values()
{
local ($pagename, $datakey, @allinsts, $instfile, $pageinst, $value);
($pagename, $datakey) = @_;
# get all matching instance files...
@allinsts = &list_wizard_datafiles($pagename);
@values = ();
foreach $instfile (@allinsts) {
$instfile =~ /${pagename}\.([^\.]*)/;
$pageinst = $1;
$value = &wizard_get_data_value($pagename, $pageinst, $datakey);
push (@values, $value);
}
return @values;
}
# Read in wizard string, create internal representation (wizard hash).
#
# Parameters: wizard_string;
sub read_in_wizard()
{
local ($wizard_string, @wizard_array, $pagenum, %wizard, $wiz_elt);
$wizard_string = $_[0];
@wizard_array = split(/;/, $wizard_string);
$pagenum = 0;
foreach $wiz_elt (@wizard_array) {
if ($wiz_elt =~ /\s*page\s*=\s*([^,\s]*)\s*,\s*min\s*=\s*([^,\s]*)\s*,\s*max\s*=\s*(.+)/) {
# standard wizard element
$wizard{'pages'}->[$pagenum]->{'pagename'} = $1;
$wizard{'pages'}->[$pagenum]->{'min_datafiles'} = $2;
$wizard{'pages'}->[$pagenum]->{'max_datafiles'} = $3;
$wizard{'pages'}->[$pagenum]->{'pagenum'} = $pagenum;
$pagenum = $pagenum + 1;
} elsif ($wiz_elt =~ /\s*submit\s*=\s*(\S+)/) {
# submit cgi script name
$wizard{'submit'} = $1;
} else {
&error("Syntax error in wizard specification: $wiz_elt");
}
}
return %wizard;
}
sub get_wizard_info_by_name()
{
local ($wizref, $pagename, @wizard_pages, $page);
($wizref, $data, $pagename) = @_;
@wizard_pages = @{$wizref->{'pages'}};
if ($data eq "pages") {
return @wizard_pages;
} elsif ($data eq "submit") {
return $wizref->{$data};
}
foreach $page (@wizard_pages) {
if ($pagename eq "$page->{'pagename'}") {
return $page->{$data};
}
}
# not found
&error("Data $data not found for wizard. Pagename: $pagename");
}
sub get_wizard_info_by_page()
{
local ($wizref, $data, $pagenum);
($wizref, $data, $pagenum) = @_;
@wizard_pages = @{$wizref->{'pages'}};
return $wizard_pages[$pagenum]->{$data};
}
# list all files matching pattern and ending in .wizdata
#
# Parameters: filematch_pattern
#
sub list_wizard_datafiles()
{
local($filematch, $f,@filelist);
$filematch = $_[0];
opendir(DIR, $module_config_directory);
foreach $f (readdir(DIR)) {
if ($f =~ /^$filematch.*\.wizdata/) {
push(@filelist, "$module_config_directory/$f");
}
}
return @filelist;
}