Changeset da554dacc0fe3e67c020250564135f598780682f

Timestamp:

10/18/09 16:00:18 (5 weeks ago)

Author:

Alex Vandiver <alexmv@mit.edu>

git-author:

Alex Vandiver <alexmv@mit.edu> / 2009-10-15T14:29:41Z-0400

Parents:

f3678c324b8086ca07cd0baaa425a0aa99a75524

Children:

cc1a6d41c20d85ff1ef77c4f918f98a62291088f

git-committer:

Alex Vandiver <alexmv@mit.edu> / 2009-10-18T16:00:18Z-0400

Message:

Add IRC server and channel listing to buddylist

Files:

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

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

@@ -79 +79 @@
 }
 
+sub buddylist {
+    my $list = "";
+
+    for my $net (sort keys %ircnets) {
+        my $conn = $ircnets{$net};
+        my ($nick, $server) = ($conn->nick, $conn->server);
+        $list .= BarnOwl::Style::boldify("IRC channels for $net ($nick\@$server)\n");
+
+        for my $chan (keys %channels) {
+            next unless grep $_ eq $conn, @{$channels{$chan}};
+            $list .= "  $chan\n";
+        }
+        $list .= "\n";
+    }
+
+    return $list;
+}
+
 #sub mainloop_hook {
 #    return unless defined $irc;
@@ -306 +324 @@
 $BarnOwl::Hooks::shutdown->add('BarnOwl::Module::IRC::shutdown');
 $BarnOwl::Hooks::getQuickstart->add('BarnOwl::Module::IRC::quickstart');
+$BarnOwl::Hooks::getBuddyList->add("BarnOwl::Module::IRC::buddylist");
 
 ################################################################################