Changes in perl/modules/IRC/lib/BarnOwl/Module/IRC.pm [f094fc4:167044b]

File:

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

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

@@ -117 +117 @@
     BarnOwl::new_command('irc-who'        => \&cmd_who);
     BarnOwl::new_command('irc-stats'      => \&cmd_stats);
-}
-
-$BarnOwl::Hooks::startup->add(\&startup);
-$BarnOwl::Hooks::shutdown->add(\&shutdown);
-#$BarnOwl::Hooks::mainLoop->add(\&mainloop_hook);
+    BarnOwl::new_command('irc-topic'      => \&cmd_topic);
+}
+
+$BarnOwl::Hooks::startup->add('BarnOwl::Module::IRC::startup');
+$BarnOwl::Hooks::shutdown->add('BarnOwl::Module::IRC::shutdown');
 
 ################################################################################
@@ -262 +262 @@
     my $conn = get_connection(\@_);
     my $chan = get_channel(\@_) || die("Usage: $cmd <channel>\n");
+    $conn->names_tmp([]);
     $conn->conn->names($chan);
 }
@@ -299 +300 @@
     my $type = shift || die("Usage: $cmd <chiklmouy> [server] \n");
     $conn->conn->stats($type, @_);
+}
+
+sub cmd_topic {
+    my $cmd = shift;
+    my $conn = get_connection(\@_);
+    $conn->conn->topic(@_);
 }