use strict;
use warnings;
use Irssi;

$SIG{__WARN__} = sub {
  chomp( $_[0] );
  Irssi::print "$IRSSI{name} %rwarning%n: $_[0]", MSGLEVEL_CLIENTERROR;
};

# global initialisations
{
  our $VERSION = "0.01";
  our %IRSSI = (
    name        => "",
    description => "",
    url         => "http://explodingferret.com/linux/.pl",
    authors     => "ferret",
    contact     => "ferret(tA)explodingferret(moCtoD), ferret on irc.freenode.net",
    licence     => "Public Domain",
    changed     => "2008-04-01",
    changes     => "",
    modules     => "",
    commands    => "",
  );
}

sub debug_print {
  Irssi::print( "$IRSSI{name} %RDEBUG%n: $_[0]" );
}

# script goes here :o

Irssi::print "$IRSSI{name} version $VERSION loaded";