## doStatement --
##
## decide if $in is a statement, and if so,
-## - update the dbm
+## - update the db
## - return feedback statement
##
## otherwise return
## - null for confused.
##
-if (&IsParam("useStrict")) { use strict; }
+# use strict; # TODO
sub doStatement {
my($in) = @_;
# check if we need to be addressed and if we are
return unless ($learnok);
- my($urlType) = "";
+ my($urlType) = '';
# prefix www with http:// and ftp with ftp://
$in =~ s/ www\./ http:\/\/www\./ig;
$in =~ s/ ftp\./ ftp:\/\/ftp\./ig;
- $urlType = "about" if ($in =~ /\babout:/i);
+ $urlType = 'about' if ($in =~ /\babout:/i);
$urlType = 'afp' if ($in =~ /\bafp:/);
$urlType = 'file' if ($in =~ /\bfile:/);
$urlType = 'palace' if ($in =~ /\bpalace:/);
}
# acceptUrl.
- if (&IsParam("acceptUrl")) {
+ if (&IsParam('acceptUrl')) {
if ($param{'acceptUrl'} eq 'REQUIRE') { # require url type.
- return if ($urlType eq "");
+ return if ($urlType eq '');
} elsif ($param{'acceptUrl'} eq 'REJECT') {
- &status("REJECTED URL entry") if (&IsParam("VERBOSITY"));
- return unless ($urlType eq "");
+ &status("REJECTED URL entry") if (&IsParam('VERBOSITY'));
+ return unless ($urlType eq '');
} else {
# OPTIONAL
}
my($lhs, $mhs, $rhs) = ($`, $&, $');
# allows factoid arguments to be updated. -lear.
- $lhs =~ s/^(CMD: )?(.*)/$1||"" . lc $2/e;
+ $lhs =~ s/^(cmd: )?(.*)/$1||'' . lc $2/e;
# discard article.
$lhs =~ s/^(the|da|an?)\s+//i;
$rhs =~ s/^\s+|\s+$//g;
# break if either lhs or rhs is NULL.
- if ($lhs eq "" or $rhs eq "") {
+ if ($lhs eq '' or $rhs eq '') {
return "NOT-A-STATEMENT";
}
return;
}
- return if (!$addressed and $lhs =~ /\s+/);
+ # uncomment to prevent HUNGRY learning of rhs with whitespace
+ #return if (!$addressed and $lhs =~ /\s+/);
+ &::DEBUG("doStatement: $in:$lhs:$mhs:$rhs");
&status("statement: <$who> $message");
- # change "#*#" back to "*" because of '\' sar to '#blah#'.
+ # change "#*#" back to '*' because of '\' sar to '#blah#'.
$lhs =~ s/\#(\S+)\#/$1/g;
$rhs =~ s/\#(\S+)\#/$1/g;
# verify the update statement whether there are any weird
# characters.
- ### this chan be simplified.
+ ### this can be simplified.
foreach (split //, $lhs.$rhs) {
my $ord = ord $_;
if ($ord > 170 and $ord < 220) {
return if (&update($lhs, $mhs, $rhs));
}
- return "CONTINUE";
+ return 'CONTINUE';
}
1;
+
+# vim:ts=4:sw=4:expandtab:tw=80