bin/old/genqrc

   1 #! /usr/bin/perl
   2
   3 use strict;
   4
   5 sub parseDir;
   6
   7 print
   8 "<!DOCTYPE RCC><RCC version=\"1.0\">
   9 <qresource>\n";
  10
  11 parseDir(@ARGV);
  12
  13 print
  14 "</qresource>
  15 </RCC>\n";
  16
  17 sub parseDir {
  18         foreach (@_) {
  19                 if (-d) {
  20                         parseDir(<$_/*>);
  21                 } elsif (/png|gif|jpe?g|bmp/i) {
  22                         print "\t<file>$_</file>\n";
  23                 }
  24         }
  25 }
  26