network_setup

#!/usr/bin/perl
use strict;

use Irssi;

foreach my $server (Irssi::servers) {
    my ($address, $port) = ($server->{address}, $server->{port});

    my ($domain) = $address =~ /\.(.+?)\..+$/;
    my $network = lc ($server->isupport("NETWORK")) ? $server->isupport("NETWORK") : $domain;
    my $network = lc $network;
    
    Irssi::command("/ircnet add $network");
    Irssi::command("/server add -auto -network $network $address $port");

    foreach my $channel ($server->channels) {
        if ($channel->{key}) {
                Irssi::command("/channel add -auto $channel->{name} $network $channel->{key}");
        }
        else {
                Irssi::command("/channel add -auto $channel->{name} $network");
        }

    }
}