Changeset 09bd74c for perl/modules/IRC/lib

Timestamp:

Apr 3, 2011, 3:06:01 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

59425a3

Parents:

249bbbe

git-author:

Nelson Elhage <nelhage@mit.edu> (02/26/11 20:32:10)

git-committer:

Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:01)

Message:

Implement sending and receiving CTCP ACTIONs

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (5 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -17 +17 @@
 
 use AnyEvent::IRC::Client;
-use AnyEvent::IRC::Util qw(split_prefix prefix_nick);
+use AnyEvent::IRC::Util qw(split_prefix prefix_nick encode_ctcp);
 
 use base qw(Class::Accessor);
@@ -92 +92 @@
                         irc_403       => on("nosuch"),
                         nick_change   => on("nick"),
+                        ctcp_action   => on("ctcp_action"),
                         'irc_*' => sub { BarnOwl::debug("IRC: " . $_[1]->{command}) });
 
@@ -106 +107 @@
     my $self = shift;
     return $self->conn->socket;
+}
+
+sub me {
+    my ($self, $to, $msg) = @_;
+    $self->conn->send_msg('privmsg', $to,
+                          encode_ctcp(['ACTION', $msg]))
 }
 
@@ -130 +137 @@
     my ($self, $recipient, $evt) = @_;
     my $body = strip_irc_formatting($evt->{params}->[1]);
-
+    $self->handle_message($recipient, $evt, $body);
+}
+
+sub on_ctcp_action {
+    my ($self, $src, $target, $msg) = @_;
+    my $body = strip_irc_formatting($msg);
+    my $evt = {
+        params => [$src],
+        type   => 'privmsg',
+        prefix => $src
+       };
+    $self->handle_message($target, $evt, "* $body");
+}
+
+sub handle_message {
+    my ($self, $recipient, $evt, $body) = @_;
     my $msg = $self->new_message($evt,
         direction   => 'in',
@@ -147 +169 @@
 }
 
+
 sub on_admin_msg {
     my ($self, $evt) = @_;