use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";
%IRSSI =
(
    authors     => 'Jonas Berlin',
    name        => 'nolobby',
    description => 'Immediately leave #lobby if joined',
    license     => 'GNU GPL',
);


Irssi::signal_add "message join", sub
{
    my ($server, $channel, $nick, $address) = @_;
    if ($channel eq '#lobby') {
	$server->command("PART $channel autopart");
    }
};