Changeset bc0d7bc for perl/modules

Timestamp:

Jan 10, 2008, 12:32:44 AM (17 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

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

Children:

b10f340

Parents:

2fb58e4

Message:

A (broken) attempt at handling motds and other IRC admin messages

Export owl_function_beep() to Perl, and ring the bell on receiving a message
containing your nick (on that network)

File:

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

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

@@ -16 +16 @@
 
 use base qw(Net::IRC::Connection Class::Accessor Exporter);
-__PACKAGE__->mk_accessors(qw(alias channels));
+__PACKAGE__->mk_accessors(qw(alias channels motd));
 our @EXPORT_OK = qw(&is_private);
 
@@ -29 +29 @@
     $self->alias($alias);
     $self->channels([]);
+    $self->motd("");
     bless($self, $class);
 
@@ -34 +35 @@
     $self->add_global_handler(['msg', 'notice', 'public', 'caction'],
             sub { goto &on_msg });
+    $self->add_global_handler(['welcome', 'yourhost', 'created',
+            'luserclient', 'luserop', 'luserchannels', 'luserme'],
+            sub { goto &on_admin_msg });
+    $self->add_global_handler(['myinfo', 'map', 'n_local', 'n_global',
+            'luserconns'],
+            sub { });
+    $self->add_handler(375 => sub { goto &on_motdstart });
+    $self->add_handler(372 => sub { goto &on_motd });
+    $self->add_handler(376 => sub { goto &on_endofmotd });
     $self->add_global_handler(cping => sub { goto &on_ping });
     $self->add_global_handler(join  => sub { goto &on_join });
@@ -69 +79 @@
     my ($recipient) = $evt->to;
     my $body = strip_irc_formatting([$evt->args]->[0]);
+    my $nick = $self->nick;
+    BarnOwl::beep() if $body =~ /\b\Q$nick\E\b/;
     $body = BarnOwl::Style::boldify($evt->nick.' '.$body) if $evt->type eq 'caction';
     my $msg = $self->new_message($evt,
@@ -89 +101 @@
     my ($self, $evt) = @_;
     $self->ctcp_reply($evt->nick, join (' ', ($evt->args)));
+}
+
+sub on_admin_msg {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message("IRC",
+            BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '
+                . $evt->alias) . "\n"
+            . strip_irc_formatting(join '\n', cdr $evt->args));
+}
+
+sub on_motdstart {
+    my ($self, $evt) = @_;
+    $self->motd(join "\n", cdr $evt->args);
+}
+
+sub on_motd {
+    my ($self, $evt) = @_;
+    $self->motd(join "\n", $self->motd, cdr $evt->args);
+}
+
+sub on_endofmotd {
+    my ($self, $evt) = @_;
+    $self->motd(join "\n", $self->motd, cdr $evt->args);
+    BarnOwl::admin_message("IRC",
+            BarnOwl::Style::boldify('MOTD for ' . $evt->alias) . "\n"
+            . strip_irc_formatting($self->motd));
 }
 
@@ -138 +176 @@
 }
 
+sub cdr {
+    shift;
+    return @_;
+}
+
 1;