irssi-proxy script

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

use Irssi;
use Data::Dumper;
$VERSION = '1.00';
%IRSSI = (
    authors     => 'Alex Schumann',
    contact     => 'rubin@afternet.org',
    name        => 'away-on-disconnect',
    description => 'If you use irssi-proxy, ' .
                   'this script will set you' .
                   'away on IRC when you disconnect.',
    license     => 'GPL',
);


sub event_disconnected {
   my ($data, $host, $server) = @_;
   Irssi::print Dumper($server);
   $server->command("Away Disconnected From IRC");
}


Irssi::signal_add("proxy client disconnected", "event_disconnected");
Irssi::print("Loaded!");