Changeset 48f7d12


Ignore:
Timestamp:
Jun 5, 2009, 9:47:57 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
ac40fdf
Parents:
c00ab5f
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/05/09 21:32:52)
git-committer:
Nelson Elhage <nelhage@mit.edu> (06/05/09 21:47:57)
Message:
Get rid of cryptic numeric messages after IRC commands.

Remove the cryptic numeric codes that appear in the message area after
certain IRC commands.
File:
1 edited

Legend:

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

    rc00ab5f r48f7d12  
    375375    $conn->conn->disconnect;
    376376    delete $ircnets{$conn->alias};
     377    return;
    377378}
    378379
     
    387388        BarnOwl::start_edit_win("/msg -a " . $conn->alias . " $to", sub {process_msg($conn, $to, @_)});
    388389    }
     390    return;
    389391}
    390392
     
    415417       );
    416418    BarnOwl::queue_message($msg);
     419    return;
    417420}
    418421
     
    423426    $target ||= shift;
    424427    $conn->conn->mode($target, @_);
     428    return;
    425429}
    426430
     
    432436    push @{$channels{$chan}}, $conn;
    433437    $conn->conn->join($chan, @_);
     438    return;
    434439}
    435440
     
    440445    $channels{$chan} = [grep {$_ ne $conn} @{$channels{$chan} || []}];
    441446    $conn->conn->part($chan);
     447    return;
    442448}
    443449
     
    447453    my $nick = shift or die("Usage: $cmd <new nick>\n");
    448454    $conn->conn->nick($nick);
     455    return;
    449456}
    450457
     
    455462    $conn->names_tmp([]);
    456463    $conn->conn->names($chan);
     464    return;
    457465}
    458466
     
    462470    my $who = shift || die("Usage: $cmd <user>\n");
    463471    $conn->conn->whois($who);
     472    return;
    464473}
    465474
     
    468477    my $conn = shift;
    469478    $conn->conn->motd;
     479    return;
    470480}
    471481
     
    477487    }
    478488    BarnOwl::popless_ztext($message);
     489    return;
    479490}
    480491
     
    485496    BarnOwl::error("WHO $cmd $conn $who");
    486497    $conn->conn->who($who);
     498    return;
    487499}
    488500
     
    492504    my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n");
    493505    $conn->conn->stats($type, @_);
     506    return;
    494507}
    495508
     
    499512    my $chan = shift;
    500513    $conn->conn->topic($chan, @_ ? join(" ", @_) : undef);
     514    return;
    501515}
    502516
     
    505519    my $conn = shift;
    506520    $conn->conn->sl(join(" ", @_));
     521    return;
    507522}
    508523
Note: See TracChangeset for help on using the changeset viewer.