[814] in BarnOwl Developers
[D-O-H] r810 - / trunk/owl/perl/modules/IRC/lib/BarnOwl/Module
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:09:59 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Wed, 9 Jan 2008 02:23:32 -0500 (EST)
Author: nelhage
Date: 2008-01-09 02:23:31 -0500 (Wed, 09 Jan 2008)
New Revision: 810
Modified:
/
trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
Log:
r27179@lunatique: nelhage | 2008-01-09 02:22:05 -0500
Implement irc-nick
Property changes on:
___________________________________________________________________
Name: svk:merge
- 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:27177
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:22510
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636
+ 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:27179
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:22510
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636
Modified: trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
===================================================================
--- trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC.pm 2008-01-09 06:26:19 UTC (rev 809)
+++ trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC.pm 2008-01-09 07:23:31 UTC (rev 810)
@@ -64,6 +64,7 @@
BarnOwl::new_command('irc-disconnect' => \&cmd_disconnect);
BarnOwl::new_command('irc-msg' => \&cmd_msg);
BarnOwl::new_command('irc-join' => \&cmd_join);
+ BarnOwl::new_command('irc-nick' => \&cmd_nick);
}
$BarnOwl::Hooks::startup->add(\&startup);
@@ -167,6 +168,13 @@
$conn->join($chan);
}
+sub cmd_nick {
+ my $cmd = shift;
+ my $conn = get_connection(\@_);
+ my $nick = shift or die("Usage: $cmd <new nick>");
+ $conn->nick($nick);
+}
+
################################################################################
########################### Utilities/Helpers ##################################
################################################################################
