projects
/
poe-component-irc-plugin-seen.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow ! before seen
[poe-component-irc-plugin-seen.git]
/
lib
/
POE
/
Component
/
IRC
/
Plugin
/
Seen.pm
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;
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"
}
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;
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;
}
1;
This page took
0.009562 seconds
and
4
git commands to generate.