[value name=mv_submit set=""] [value name=agree set=""]
[comment]

    [scratch name=wizard interpolate=1]

[/comment]

MiniVend Configuration Wizard |
[scratch name=fail_message interpolate=1] [perl values] my $msg = q{}; for(%{$Safe{'values'}}) { next unless /^mv_error_(.*)/; my $name = $1; #my $value = delete $Safe{'values'}->{$_}; my $value = $Safe{'values'}->{$_}; next unless $value; $msg .= "\n$name: $value\n"; } sub redo_message { my($param,$word) = @_; if ($word =~ /diretory_write/i) { return " The directory you specify needs to be writable.\n"; } elsif ($word =~ /phone/i) { return " Is that really a phone number?\n"; } elsif ($word =~ /Mv_result/) { return " Check failed: $param"; } else { return " $param: $word\n" } } @msg = grep /\S/, split /\n/, $msg; $msg = ' '; for(@msg) { ($var, $val) = split /:\s*/, $_; $msg .= redo_message($var, $val); } $msg .= ' '; return $msg; [/perl]

Return to main menu