Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

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";
+  } 
+}