Changeset 3b4ba7d for perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

Timestamp:

Dec 15, 2009, 12:03:05 AM (15 years ago)

Author:

Alex Vandiver <alexmv@mit.edu>

Branches:

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

Children:

cd12307

Parents:

62c91c1

git-author:

Alex Vandiver <alexmv@mit.edu> (12/12/09 00:25:49)

git-committer:

Alex Vandiver <alexmv@mit.edu> (12/15/09 00:03:05)

Message:

Reconnect and re-join channels on IRC disconnect

File:

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

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

@@ -30 +30 @@
 our %ircnets;
 our %channels;
+our %reconnect;
 
 sub startup {
@@ -378 +379 @@
 
     if ($conn->conn->connected) {
-        BarnOwl::admin_message("IRC", "Connected to $alias as $nick");
-        $ircnets{$alias} = $conn;
-        my $fd = $conn->getSocket()->fileno();
-        BarnOwl::add_io_dispatch($fd, 'r', \&OwlProcess);
-        $conn->{FD} = $fd;
+        $conn->connected("Connected to $alias as $nick");
     } else {
         die("IRC::Connection->connect failed: $!");
@@ -394 +391 @@
     my $conn = shift;
     $conn->conn->disconnect;
-    delete $ircnets{$conn->alias};
     return;
 }