use strict;
use Irssi;
use Irssi::Irc;

use vars qw($VERSION %IRSSI);

# TODO:
#
# - support for more channels
#

$VERSION = "1.00";
%IRSSI = (
    authors     => 'DeSi',
    name        => 'NoJoin',
    description => 'Part a channel that you are forced to join',
    license     => 'Public Domain',
    changed     => 'Tue Apr 20 22:41:13 CEST 2004'
);

my $reason = "Please don't force me to join";
my $cn = "#mychannel";

sub event_join {
        my ($server, $data, $nick, $host) = @_;

        $data =~ s/^://;
        if ($data =~ /$cn/) {
                if ($nick =~ /$server->{nick}/) {
                        Irssi::print("Leavint $cn ...", MSGLEVEL_CRAP);
                        $server->command("part $data $reason");                                		}
        }
}

Irssi::signal_add_last('event join', 'event_join');