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, 13 insertions, 0 deletions

diff --git a/ksirc/puke/convert_commands.pl b/ksirc/puke/convert_commands.pl
new file mode 100755
index 00000000..98ad7e35
--- /dev/null
+++ b/ksirc/puke/convert_commands.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+open(CMD, "cat commands.h *-cmd.h|");
+open(CMDP, ">commands-perl.pl");
+while(<CMD>){
+  if(/#define (\S+) (.+)/){
+     print CMDP "\$${1} = $2;\n";
+     print CMDP "\$PUKE_NAME2NUM\{'$1'\} = $2;\n";
+     print CMDP "\$PUKE_NUM2NAME\{'$2'\} = '$1';\n";
+   }
+}
+
+print CMDP "\n1;\n";