#! /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";
		}
	}
}