merge bin from shada

[dotfiles.git] / bin / old / genqrc

diff --git a/bin/old/genqrc b/bin/old/genqrc
new file mode 100755 (executable)
index 0000000..fda294c
--- /dev/null
+++ b/bin/old/genqrc
@@ -0,0 +1,26 @@
+#! /usr/bin/perl
+
+use strict;
+
+sub parseDir;
+
+print
+"<!DOCTYPE RCC><RCC version=\"1.0\">
+<qresource>\n";
+
+parseDir(@ARGV);
+
+print
+"</qresource>
+</RCC>\n";
+
+sub parseDir {
+       foreach (@_) {
+               if (-d) {
+                       parseDir(<$_/*>);
+               } elsif (/png|gif|jpe?g|bmp/i) {
+                       print "\t<file>$_</file>\n";
+               }
+       }
+}
+