X-Git-Url: https://git.quassel-irc.org/?p=quassel.git;a=blobdiff_plain;f=scripts%2Fconvert_mirc_servers_ini.pl;fp=scripts%2Fconvert_mirc_servers_ini.pl;h=6909bb9dfc11679d9b4874eca28b80306ea77708;hp=0000000000000000000000000000000000000000;hb=7e2706c4e932a00b1b62315d42258d4738fb670f;hpb=bdcba50ecf3ade497da5e7c023cdaa654a91bc1e

diff --git a/scripts/convert_mirc_servers_ini.pl b/scripts/convert_mirc_servers_ini.pl
new file mode 100755
index 00000000..6909bb9d
--- /dev/null
+++ b/scripts/convert_mirc_servers_ini.pl
@@ -0,0 +1,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";