# 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\.]+$/) {