Allow ! before seen

diff --git a/lib/POE/Component/IRC/Plugin/Seen.pm b/lib/POE/Component/IRC/Plugin/Seen.pm
index 86a0984071f58c512445a2294cd6a14332714e5a..cc2f76defd9488cabf7938e0423cbc921ad714b6 100644 (file)
--- a/lib/POE/Component/IRC/Plugin/Seen.pm
+++ b/lib/POE/Component/IRC/Plugin/Seen.pm
@@ -60,7 +60,7 @@ sub S_public {
        my $nick = parse_user $$rfullname;
        my $mynick = $irc->nick_name;
 
-       seen $self, $irc, $1, $$rchannels->[0], $nick if $$rmessage =~ /^(?:$mynick [,:])?\s*seen\s+([^ ]+)/x;
+       seen $self, $irc, $1, $$rchannels->[0], $nick if $$rmessage =~ /^(?:$mynick [,:])?\s*!?seen\s+([^ ]+)/x;
        log_event $self, $nick => "on $$rchannels->[0] saying $$rmessage"
 }
 
@@ -83,7 +83,7 @@ sub S_msg {
        my ($self, $irc, $rfullname, $rtargets, $rmessage) = @_;
        my $nick = parse_user $$rfullname;
 
-       seen $self, $irc, $$rmessage, $$rtargets->[0], $nick if $$rmessage =~ /^seen\s+([^ ]+)/
+       seen $self, $irc, $$rmessage, $$rtargets->[0], $nick if $$rmessage =~ /^\s*!?seen\s+([^ ]+)/
 }
 
 1;

diff --git a/t/POE-Component-IRC-Plugin-Seen.t b/t/POE-Component-IRC-Plugin-Seen.t
index 5d97e322c619ed51797a20f955d9e5573d998bb1..fdf55aebc6d041bf934b5116b868652ca9021649 100644 (file)
--- a/t/POE-Component-IRC-Plugin-Seen.t
+++ b/t/POE-Component-IRC-Plugin-Seen.t
@@ -28,16 +28,16 @@ sub runtest{
 }
 
 runtest 'something', undef, 'initialize';
-runtest 'bot: seen mgv', 'I last saw mgv now on #chan saying something', 'public';
+runtest 'seen mgv', 'I last saw mgv now on #chan saying something', 'public';
 
 $self->S_ctcp_action($mockirc, $rmgv, \$channels, \'sleeping');
-runtest 'bot: seen mgv', 'I last saw mgv now on #chan doing: * sleeping', 'ctcp_action';
+runtest '!seen mgv', 'I last saw mgv now on #chan doing: * sleeping', 'ctcp_action';
 
 $self->S_join($mockirc, $rmgv, \'#chan');
 runtest 'bot: seen mgv', 'I last saw mgv now joining #chan', 'join';
 
 $self->S_part($mockirc, $rmgv, \'#chan', \'');
-runtest 'bot: seen mgv', 'I last saw mgv now parting #chan', 'part without message';
+runtest 'bot: !seen mgv', 'I last saw mgv now parting #chan', 'part without message';
 
 $self->S_part($mockirc, $rmgv, \'#chan', \'buh-bye');
 runtest 'bot: seen mgv', "I last saw mgv now parting #chan with message 'buh-bye'", 'part with message';