Changeset 6286f26 for perl


Ignore:
Timestamp:
Jan 9, 2008, 2:23:31 AM (13 years ago)
Author:
Nelson Elhage <nelhage@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:
6858d2d, 61abb18
Parents:
380b1ab
git-author:
Nelson Elhage <nelhage@mit.edu> (01/09/08 02:22:05)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/09/08 02:23:31)
Message:
Implement irc-nick
File:
1 edited

Legend:

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

    r380b1ab r6286f26  
    6565    BarnOwl::new_command('irc-msg'     => \&cmd_msg);
    6666    BarnOwl::new_command('irc-join' => \&cmd_join);
     67    BarnOwl::new_command('irc-nick' => \&cmd_nick);
    6768}
    6869
     
    168169}
    169170
     171sub cmd_nick {
     172    my $cmd = shift;
     173    my $conn = get_connection(\@_);
     174    my $nick = shift or die("Usage: $cmd <new nick>");
     175    $conn->nick($nick);
     176}
     177
    170178################################################################################
    171179########################### Utilities/Helpers ##################################
Note: See TracChangeset for help on using the changeset viewer.