Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 22:15:45 -04:00
Code Issues Releases Wiki Activity

should make it respond to "hi perlbot" now

Browse source
This commit is contained in:
ryan 2010-01-12 14:22:25 -05:00
parent 225d14fe3b
commit 9b2996b532
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Bot/BB3/Roles/IRC.pm
View file

@ -303,6 +303,12 @@ sub _said {
$said->{addressed} = 1; $said->{addressed} = 1;
$said->{addressed_as} = $1; $said->{addressed_as} = $1;
} }
elsif ($body =~ s/\s*\b($name_re)\s*$//)
{
$said->{body} = $body;
$said->{addressed} = 1;
$said->{addressed_as} = $1;
}
} }
#-------------------------- #--------------------------