Changeset 3ad15ff for perl/modules/IRC/lib/BarnOwl/Module

Timestamp:

Jul 23, 2008, 8:18:30 PM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

38cfdb5d

Parents:

0398d55

Message:

IRC: Add :irc-topic support and on_topic/on_topicinfo callbacks.

Location:

perl/modules/IRC/lib/BarnOwl/Module

Files:

• IRC.pm (modified) (2 diffs)
• IRC/Connection.pm (modified) (2 diffs)

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

@@ -117 +117 @@
     BarnOwl::new_command('irc-who'        => \&cmd_who);
     BarnOwl::new_command('irc-stats'      => \&cmd_stats);
+    BarnOwl::new_command('irc-topic'      => \&cmd_topic);
 }
 
@@ -301 +302 @@
 }
 
+sub cmd_topic {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    $conn->conn->topic(@_);
+}
+
 ################################################################################
 ########################### Utilities/Helpers ##################################

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

@@ -65 +65 @@
     $self->conn->add_handler(nicknameinuse => sub { shift; $self->on_nickinuse(@_) });
     $self->conn->add_handler(cping     => sub { shift; $self->on_ping(@_) });
+    $self->conn->add_handler(topic     => sub { shift; $self->on_topic(@_) });
+    $self->conn->add_handler(topicinfo => sub { shift; $self->on_topicinfo(@_) });
 
     return $self;
@@ -193 +195 @@
 }
 
+sub on_topic {
+    my ($self, $evt) = @_;
+    my @args = $evt->args;
+    if (scalar @args > 1) {
+        BarnOwl::admin_message("IRC",
+                "Topic for $args[1] on " . $self->alias . " is $args[2]");
+    } else {
+        BarnOwl::admin_message("IRC",
+                "Topic changed to $args[0]");
+    }
+}
+
+sub on_topicinfo {
+    my ($self, $evt) = @_;
+    my @args = $evt->args;
+    BarnOwl::admin_message("IRC",
+        "Topic for $args[1] set by $args[2] at " . localtime($args[3]));
+}
+
 sub on_event {
     my ($self, $evt) = @_;