X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FFactoids%2FStatement.pl;h=9bfd6231f65f64efcc312afa2d382e848b448bc8;hb=a523737c588a01cf74076ae2a3c06a669389ddcb;hp=fe83ab3081972fdf8d53e3cbdbf725a538a22a20;hpb=ff2da5e408ead78b25464250c2a967f7849ae20e;p=infobot.git diff --git a/src/Factoids/Statement.pl b/src/Factoids/Statement.pl index fe83ab3..9bfd623 100644 --- a/src/Factoids/Statement.pl +++ b/src/Factoids/Statement.pl @@ -11,7 +11,6 @@ ## ## otherwise return ## - null for confused. -## - NOREPLY not to respond. ## if (&IsParam("useStrict")) { use strict; } @@ -23,7 +22,7 @@ sub doStatement { $in =~ s/^no([, ]+)//i; # 'no, '. # check if we need to be addressed and if we are - return $noreply unless ($learnok); + return unless ($learnok); my($urlType) = ""; @@ -43,10 +42,10 @@ sub doStatement { # acceptUrl. if (&IsParam("acceptUrl")) { if ($param{'acceptUrl'} eq 'REQUIRE') { # require url type. - return $noreply if ($urlType eq ""); + return if ($urlType eq ""); } elsif ($param{'acceptUrl'} eq 'REJECT') { &status("REJECTED URL entry") if (&IsParam("VERBOSITY")); - return $noreply unless ($urlType eq ""); + return unless ($urlType eq ""); } else { # OPTIONAL } @@ -66,7 +65,7 @@ sub doStatement { # break if either lhs or rhs is NULL. if ($lhs eq "" or $rhs eq "") { - return $noreply; + return; } # lets check if it failed. @@ -75,10 +74,10 @@ sub doStatement { &status("IGNORE statement: <$who> $message"); &performReply( &getRandom(keys %{$lang{'confused'}}) ); } - return $noreply; + return; } - return $noreply if (!$addressed and $lhs =~ /\s+/); + return if (!$addressed and $lhs =~ /\s+/); &status("statement: <$who> $message"); @@ -96,14 +95,14 @@ sub doStatement { if ($ord > 170 and $ord < 220) { &status("statement: illegal character '$_' $ord."); &performAddressedReply("i'm not going to learn illegal characters"); - return $noreply; + return; } } return &update($lhs, $mhs, $rhs); } - return ''; + return "CONTINUE"; } 1;