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');