# infobot copyright (C) kevin lenzo 1997-98
#
-if (&IsParam("useStrict")) { use strict; }
+use strict;
+
+use vars qw($message);
my %digits = (
"first", "1",
&& ($locMsg !~ /^\s*[( )]+\s*$/)
&& ($locMsg =~ /\d+/)
) {
+ $locMsg =~ s/([0-9]+\.[0-9]+(\.[0-9]+)+)/"$1"/g;
$locMsg = eval($locMsg);
if (defined $locMsg and $locMsg =~ /^[-+\de\.]+$/) {
$locMsg = "";
}
- if (defined $logMsg and $locMsg ne $message) {
+ if (defined $locMsg and $locMsg ne $message) {
+ # success.
return $locMsg;
} else {
+ # no match.
return '';
}
}