1 files changed, 19 insertions, 0 deletions
diff --git a/ksirc/KSOpenkSirc/convert-mIRC b/ksirc/KSOpenkSirc/convert-mIRC
new file mode 100755
index 00000000..85550dd3
--- /dev/null
+++ b/ksirc/KSOpenkSirc/convert-mIRC
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+while ($line = <STDIN>) {
+  if ($line =~ /.*=(Random .*)SERVER:(.*):(.*)GROUP:.*/) {
+    $service = 'Random';
+    $servername = $1;
+    $server = $2;
+    $ports = $3;
+    print "$service\:$servername\:$server\:$ports\:\n";
+  }
+  elsif ($line =~ /.*=(.*): (.*)SERVER:(.*):(.*)GROUP:.*/) {
+    $service = $1;
+    $servername = $2;
+    $server = $3;
+    $ports = $4;
+   
+    print "$service\:$servername\:$server\:$ports\:\n";
+  } 
+}