Changeset 6286f26 for perl/modules/IRC/lib/BarnOwl/Module

Timestamp:

Jan 9, 2008, 2:23:31 AM (17 years ago)

Author:

Nelson Elhage <nelhage@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:

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:

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

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

@@ -65 +65 @@
     BarnOwl::new_command('irc-msg'     => \&cmd_msg);
     BarnOwl::new_command('irc-join' => \&cmd_join);
+    BarnOwl::new_command('irc-nick' => \&cmd_nick);
 }
 
@@ -168 +169 @@
 }
 
+sub cmd_nick {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    my $nick = shift or die("Usage: $cmd <new nick>");
+    $conn->nick($nick);
+}
+
 ################################################################################
 ########################### Utilities/Helpers ##################################