X-Git-Url: http://git.ieval.ro/?p=poe-component-irc-plugin-seen.git;a=blobdiff_plain;f=lib%2FPOE%2FComponent%2FIRC%2FPlugin%2FSeen.pm;h=cc2f76defd9488cabf7938e0423cbc921ad714b6;hp=86a0984071f58c512445a2294cd6a14332714e5a;hb=3b40dfa4a2dcb643aadafffdff3410b95a695417;hpb=693d7171c03ad1393ef4bca7a6dce4a9ea6c478d

diff --git a/lib/POE/Component/IRC/Plugin/Seen.pm b/lib/POE/Component/IRC/Plugin/Seen.pm
index 86a0984..cc2f76d 100644
--- 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;