Author: dylan
Date: 2004-05-28 16:30:11 -0400 (Fri, 28 May 2004)
New Revision: 180
Modified:
trunk/haver-gtk/bin/haver-gtk.pl
Log:
commiting my changes.
Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl 2004-05-28 05:14:32 UTC (rev 179)
+++ trunk/haver-gtk/bin/haver-gtk.pl 2004-05-28 20:30:11 UTC (rev 180)
@@ -301,8 +301,23 @@
foreach my $c (qw(say msg me close users join part quit)) {
$cmd->register($c, handler => $session->postback("cmd_$c"));
}
-
-
+ $cmd->register('alias',
+ handler => sub {
+ my ($alias, $text) = @_;
+ print "Alias: $alias => $text\n";
+ $cmd->alias($alias => $text);
+ },
+ parser => sub {
+ my ($cmd, $arg) = @_;
+ $arg =~ s/^\s*(\w+)\s*//;
+ return ($1, $arg);
+ },
+ );
+ $cmd->register('unalias',
+ handler => sub {
+ $cmd->unalias($_[0]);
+ },
+ );
}
sub input {
