[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]
|