Changeset da554da for perl/modules/IRC
- Timestamp:
- Oct 18, 2009, 4:00:18 PM (15 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r69c3878 rda554da 79 79 } 80 80 81 sub buddylist { 82 my $list = ""; 83 84 for my $net (sort keys %ircnets) { 85 my $conn = $ircnets{$net}; 86 my ($nick, $server) = ($conn->nick, $conn->server); 87 $list .= BarnOwl::Style::boldify("IRC channels for $net ($nick\@$server)\n"); 88 89 for my $chan (keys %channels) { 90 next unless grep $_ eq $conn, @{$channels{$chan}}; 91 $list .= " $chan\n"; 92 } 93 $list .= "\n"; 94 } 95 96 return $list; 97 } 98 81 99 #sub mainloop_hook { 82 100 # return unless defined $irc; … … 306 324 $BarnOwl::Hooks::shutdown->add('BarnOwl::Module::IRC::shutdown'); 307 325 $BarnOwl::Hooks::getQuickstart->add('BarnOwl::Module::IRC::quickstart'); 326 $BarnOwl::Hooks::getBuddyList->add("BarnOwl::Module::IRC::buddylist"); 308 327 309 328 ################################################################################
Note: See TracChangeset
for help on using the changeset viewer.