use strict; use Irssi; use vars qw($VERSION %IRSSI); $VERSION = "1.0"; %IRSSI = ( authors => "Jilles Tjoelker", contact => "jilles\@stack.nl", name => "findbadchans", description=> "Find channels preventing channel sync", license => "BSD (revised)", ); sub cmd_findbadchans { my ($text, $server, $item) = @_; my $chan; my $count = 0; foreach $chan ($server->channels) { if (!$chan->{joined}) { Irssi::print("bad channel ".$chan->{name}); $count++; } } Irssi::print("$count bad channels found"); } Irssi::command_bind('findbadchans', 'cmd_findbadchans');