You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
135 lines
3.1 KiB
Perl
135 lines
3.1 KiB
Perl
# infobot :: Kevin Lenzo (c) 1997
|
|
|
|
##
|
|
## doQuestion --
|
|
##
|
|
## decide if $in is a query, and if so, return its value.
|
|
## otherwise return null.
|
|
##
|
|
|
|
sub doQuestion {
|
|
local ($msgType, $qmsg, $msgFilter) = @_;
|
|
chomp $qmsg;
|
|
|
|
$finalQMark = $qmsg =~ s/\?+\s*$//;
|
|
|
|
$questionWord = ""; # this is shared for a reason
|
|
$input_message_length = length($qmsg);
|
|
|
|
my($locWho) = $who;
|
|
|
|
$locWho =~ tr/A-Z/a-z/;
|
|
$locWho =~ s/^=//;
|
|
|
|
my ($origIn) = $qmsg;
|
|
$finalQMark += $qmsg =~ s/\?\s*$//;
|
|
|
|
# convert to canonical reference form
|
|
$qmsg = &normquery($qmsg);
|
|
$qmsg = &switchPerson($qmsg);
|
|
|
|
# where is x at?
|
|
$qmsg =~ s/\s+at\s*(\?*)$/$1/;
|
|
|
|
$qmsg = " $qmsg ";
|
|
|
|
my $qregex = join '|', @qWord;
|
|
|
|
# what's whats => what is; who'?s => who is, etc
|
|
$qmsg =~ s/ ($qregex)\'?s / $1 is /i;
|
|
if ($qmsg =~ s/\s+($qregex)\s+//i) { # check for question word
|
|
$questionWord = lc($1);
|
|
}
|
|
|
|
$qmsg =~ s/^\s+//;
|
|
$qmsg =~ s/\s+$//;
|
|
|
|
if (($questionWord eq "") && ($finalQMark > 0)
|
|
&& ($addressed or $continuity)) {
|
|
$questionWord = "where";
|
|
}
|
|
|
|
# ok, here's where we try to actually get it
|
|
$answer = &getReply($msgType, $qmsg, $msgFilter);
|
|
|
|
return 'NOREPLY' if ($answer eq 'NOREPLY');
|
|
|
|
if (($param{'addressing'} eq 'REQUIRE') && not ($addressed or $continuity)) {
|
|
return 'NOREPLY';
|
|
}
|
|
|
|
if (not defined $answer) {
|
|
$answer = &math($qmsg); # clean up the argument syntax for this later
|
|
}
|
|
|
|
if ($questionWord ne "" or $finalQMark) {
|
|
# if it has not been explicitly marked as a question
|
|
if ($addressed && (not defined $answer)) {
|
|
# and we're addressed and so far the result is null
|
|
&status("notfound: <$who> $origIn :: $qmsg");
|
|
|
|
return 'NOREPLY' if $infobots{$nuh};
|
|
my $reply;
|
|
|
|
# generate some random i-don't-know reply.
|
|
if ($target ne $who and $target ne $talkchannel) {
|
|
$target = $who; # set the target back to the originator
|
|
$reply = "I don't know about '$qmsg'";
|
|
} else {
|
|
$reply = $dunno[int(rand(@dunno))];
|
|
}
|
|
|
|
if (rand() > 0.5) {
|
|
$reply = "$locWho: $reply";
|
|
} else {
|
|
$reply = "$reply, $locWho";
|
|
}
|
|
|
|
&askFriendlyBots($qmsg);
|
|
|
|
# and set the result
|
|
$answer = $reply;
|
|
} else {
|
|
# the item was found
|
|
if ($answer ne "") {
|
|
&status("match: $qmsg => $answer");
|
|
}
|
|
}
|
|
}
|
|
|
|
return $answer;
|
|
}
|
|
|
|
sub timeToString {
|
|
my $upTime = $_[0];
|
|
$upTime = (time()-$startTime);
|
|
my $upDays = int($upTime / (60*60*24));
|
|
my $upString = "";
|
|
if ($upDays > 0) {
|
|
$upString .= $upDays." day";
|
|
$upString .= "s" if ($upDays > 1);
|
|
$upString .=", ";
|
|
}
|
|
$upTime -= $upDays * 60*60*24;
|
|
my $upHours = int($upTime / (60*60));
|
|
if ($upHours > 0) {
|
|
$upString .= $upHours." hour";
|
|
$upString .= "s" if ($upHours > 1);
|
|
$upString .=", ";
|
|
}
|
|
$upTime -= $upHours *60*60;
|
|
my $upMinutes = int($upTime / 60);
|
|
if ($upMinutes > 0) {
|
|
$upString .= $upMinutes." minute";
|
|
$upString .= "s" if ($upMinutes > 1);
|
|
$upString .=", ";
|
|
}
|
|
$upTime -= $upMinutes * 60;
|
|
my $upSeconds = $upTime;
|
|
$upString .= $upSeconds." second";
|
|
$upString .= "s" if ($upSeconds != 1);
|
|
$upString;
|
|
}
|
|
|
|
1;
|