Changeset 5ff830a


Ignore:
Timestamp:
Jan 18, 2008, 8:58:53 AM (13 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Makefile.in

    r2bdfed9 r5ff830a  
    1111CC=@CC@
    1212LIBS=@LIBS@ -L./libfaim -lfaim
    13 CFLAGS=@CFLAGS@ -I. -I./libfaim -DDATADIR=\"${datadir}\" -DOWL_SVN_REVNO=`./svkversion`
     13CFLAGS=@CFLAGS@ -I. -I./libfaim -DDATADIR=\"${datadir}\" -DOWL_SVN_REVNO=$(shell ./svkversion)
    1414LDFLAGS=@LDFLAGS@
    1515XSUBPPDIR=@XSUBPPDIR@
  • 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',
  • perlwrap.pm

    rf2d72128 r5ff830a  
    847847#    return format_zephyr($m);
    848848#  }
    849   if ( $m->is_login ) {
     849  if ( $m->is_loginout ) {
    850850    return format_login($m);
    851851  }
Note: See TracChangeset for help on using the changeset viewer.