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