X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/04fed8e4657d28df3ca947ea34c2a5d8f9ccc02f..61d7dd11d4a450a64f2817ee4db0ec7fa5880b42:/bin/old/genqrc?ds=sidebyside

diff --git a/bin/old/genqrc b/bin/old/genqrc
new file mode 100755
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";
+		}
+	}
+}
+