my simple irssi config loader

load.pl

my @parm;

sub init {
    my ($data, $server, $witem) = @_;

    @parm = split(/ +/, $data);

    $server->command("nick $parm[0]");
    $server->command("msg nickserv identify $parm[1]");
    $server->command("join #archlinux-tr");
    $server->command("join #pyistanbul");
    $server->command("join ##mass");
    $server->command("join ##javaee");
    $server->command("join #linguistics");
    $server->command("join #linguistics");
}

Irssi::command_bind('myload', 'init');

sub server_ready {
}

Irssi::signal_add("server incoming", "server_ready")