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