Changeset 5ff830a for perl/modules


Ignore:
Timestamp:
Jan 18, 2008, 8:58:53 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:
10e3963
Parents:
eebef19
Message:
* minor changes to IRC
* run ./svkversion only once rather than at every cc
* fix one-line style to format logouts, not just logins
Location:
perl/modules/IRC/lib/BarnOwl/Module
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    rba2ca66 r5ff830a  
    162162       );
    163163
    164     $ircnets{$alias} = $conn;
     164    if ($conn->connected) {
     165        BarnOwl::admin_message("IRC", "Connected to $alias as $nick");
     166        $ircnets{$alias} = $conn;
     167    } else {
     168        die("IRC::Connection->connect failed: $!");
     169    }
     170
    165171    return;
    166172}
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    rba2ca66 r5ff830a  
    4646    $self->connected(0);
    4747
     48    $self->conn->add_handler(376 => sub { shift; $self->on_connect(@_) });
    4849    $self->conn->add_default_handler(sub { shift; $self->on_event(@_) });
    4950    $self->conn->add_handler(['msg', 'notice', 'public', 'caction'],
    5051            sub { shift; $self->on_msg(@_) });
    5152    $self->conn->add_handler(['welcome', 'yourhost', 'created',
    52             'luserclient', 'luserop', 'luserchannels', 'luserme'],
     53            'luserclient', 'luserop', 'luserchannels', 'luserme',
     54            'notice', 'error'],
    5355            sub { shift; $self->on_admin_msg(@_) });
    5456    $self->conn->add_handler(['myinfo', 'map', 'n_local', 'n_global',
Note: See TracChangeset for help on using the changeset viewer.