Changeset 23946

Timestamp:

11/17/08 19:52:10 (5 years ago)

Author:

daisuke

Message:

Peek URL

Location:

lang/perl/Morris/trunk/lib/Morris

Files:

• Connection.pm (modified) (2 diffs)
• Plugin/Channel/PeekURL.pm (added)

lang/perl/Morris/trunk/lib/Morris/Connection.pm

@@ -280 +280 @@
 }
 
-sub irc_privmsg
-{
+sub irc_privmsg {
     my ($self, $args) = @_;
 
@@ -289 +288 @@
 }
 
+sub irc_notice {
+    my ($self, $args) = @_;
+
+    my $irc = $self->irc;
+
+    $irc->yield( notice => $args->{channel} => $args->{message} );
+}
+
 1;