#!/usr/bin/perl

use strict;

my $serverbase;

while (<>) {
  my ($comment,$server,$port,$group);
  if ( ( $comment,$server,$port,$group) =
       /^.*=(.*)SERVER:(.*):(.*)GROUP:(.*)$/ ) {
    push @{$serverbase->{$group}}, [$comment,$server,$port,$group];
  }
}

foreach my $group (sort(keys(%{$serverbase}))) {
  print         "servername = SUB\n".
                "port = 1\n".
                "autoconnect = 0\n".
                "channel = \n".
                "password = \n".
                "comment = $group\n\n";
  foreach my $ircserveur (@{$serverbase->{$group}}) {
    my ($comment,$server,$port,$group)=@{$ircserveur};
    print       "servername = $server\n".
                "port = $port\n".
                "autoconnect = 0\n".
                "channel = \n".
                "password = \n".
                "comment = $comment\n\n";
  }
  print         "servername = ENDSUB\n".
                "port = 1\n".
                "autoconnect = 0\n".
                "channel = \n".
                "password = \n".
                "comment = \n\n";
}