1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
# Take mIRC's servers.ini and create a networks.ini suitable for Quassel.
use strict;
my $serverlist = {};
open SERVERS_INI, "<servers.ini" or die "Could not open servers.ini";
while(<SERVERS_INI>) {
my ($host, $portrange, $net) = /SERVER:(.+):(.+)GROUP:(.+)\r\n/;
if($host) {
foreach(split /,/, $portrange) {
s/(\d+)-\d+/$1/;
push @{$serverlist->{$net}}, { Host => $host, Port => $_};
}
}
}
close SERVERS_INI;
open NETWORKS_INI, ">networks.ini" or die "Could not open networks.ini for writing";
foreach(sort keys %$serverlist) {
print NETWORKS_INI "[$_]\n";
my @servers;
foreach(@{$serverlist->{$_}}) {
push @servers, "$_->{Host}:$_->{Port}";
}
print NETWORKS_INI "Servers=", join ',', @servers;
print NETWORKS_INI "\n\n";
}
close NETWORKS_INI;
print "Done.\n";
|
