Changeset da554da for perl/modules/IRC/lib/BarnOwl/Module

Timestamp:

Oct 18, 2009, 4:00:18 PM (15 years ago)

Author:

Alex Vandiver <alexmv@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

cc1a6d4

Parents:

f3678c3

git-author:

Alex Vandiver <alexmv@mit.edu> (10/15/09 14:29:41)

git-committer:

Alex Vandiver <alexmv@mit.edu> (10/18/09 16:00:18)

Message:

Add IRC server and channel listing to buddylist

File:

• 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");
 
 ################################################################################