Oops, must reply to status in round 1. Make the Told handlers slightly happier about replying early.

This commit is contained in:
ian%hixie.ch 2004-02-06 12:03:37 +00:00
parent d15e10e1a5
commit a465568412

View File

@ -105,7 +105,6 @@ sub unload {
sub Told { sub Told {
my $self = shift; my $self = shift;
my ($event, $message) = @_; my ($event, $message) = @_;
return 10 unless $event->{level} >= 10; # make this module a very low priority
if ($message =~ /^\s*status[?\s]*$/osi) { if ($message =~ /^\s*status[?\s]*$/osi) {
my $sum = $self->countFactoids(); my $sum = $self->countFactoids();
my $questions = $self->{'questions'} == 1 ? "$self->{'questions'} question" : "$self->{'questions'} questions"; my $questions = $self->{'questions'} == 1 ? "$self->{'questions'} question" : "$self->{'questions'} questions";
@ -122,6 +121,9 @@ sub Told {
$self->ReceivedReply($event, $3, $2, $1, $4); $self->ReceivedReply($event, $3, $2, $1, $4);
} elsif ($message =~ /^\s*literal\s+(.+?)\s*$/) { } elsif ($message =~ /^\s*literal\s+(.+?)\s*$/) {
$self->Literal($event, $1); $self->Literal($event, $1);
} elsif ($event->{level} < 10) {
# make this module a very low priority
return 10;
} elsif (not $self->DoFactoidCheck($event, $message, 1)) { } elsif (not $self->DoFactoidCheck($event, $message, 1)) {
return $self->SUPER::Told(@_); return $self->SUPER::Told(@_);
} }