gistfile1.pl

use vars qw($VERSION %IRSSI);
use Irssi qw(command_bind);
 
my $VERSION = '1.00';
my %IRSSI =
(
    authors => 'Zach Walton',
    contact => 'zacwalt@gmail.com',
    name        => 'birdsummoner',
    description => 'Summon jonEbird back to #linux',
    license => 'GPL'
);
 
sub parse() {
    my ($server, $channel, $nick, $address, $reason) = @_;
    if ($nick =~ /jonebird/si && $reason =~ /CGI:IRC\s\(EOF\)/s) {
        $server->command("MSG $channel !summon jonebird get back in here! :)");
    }
    Irssi::signal_continue(@_);
};
 
sub print_welcome() {
    Irssi::active_win()->print("Summoning jonEbird on exit!", MSGLEVEL_CRAP);
};
 
print_welcome();
 
Irssi::signal_add_first("message part", "parse");