Changeset 41ade7f

Timestamp:

Apr 3, 2011, 3:06:02 PM (13 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

b9a642a

Parents:

0b0e460

git-author:

Nelson Elhage <nelhage@mit.edu> (03/10/11 11:30:56)

git-committer:

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

Message:

Try to improve disconnection behavior

File:

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

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

@@ -65 +65 @@
                         disconnect => on("disconnect"),
                         publicmsg  => on("msg"),
-                        privatemsg => on("msg"));
+                        privatemsg => on("msg"),
+                        irc_error  => on("error"));
     for my $m (qw(welcome yourhost created
                   luserclient luserop luserchannels luserme
@@ -93 +94 @@
                         nick_change   => on("nick"),
                         ctcp_action   => on("ctcp_action"),
-                        'irc_*' => sub { BarnOwl::debug("IRC: " . $_[1]->{command}) });
+                        'irc_*' => sub { BarnOwl::debug("IRC: " . $_[1]->{command} .
+                                                        join(" ", @{$_[1]->{params}})) });
 
     return $self;
@@ -256 +258 @@
 sub on_disconnect {
     my ($self, $why) = @_;
-    $self->disconnect;
     BarnOwl::admin_message('IRC',
                            "[" . $self->alias . "] Disconnected from server");
+    $self->disconnect;
     if ($why && $why =~ m{error in connection}) {
         $self->schedule_reconnect;
     }
+}
+
+sub on_error {
+    my ($self, $evt) = @_;
+    BarnOwl::admin_message('IRC',
+                           "[" . $self->alias . "] " .
+                           "Error: " . join(" ", @{$evt->{params}}));
 }