#!/usr/bin/perl

opendir DIR,".";
while( $curent = readdir DIR ) {
	if( grep(/^\./,$curent) ) {
		next;
	}

	if( !-d $curent ) {
		next;
	}

	if( -d "$curent/thumbnails" ) {
		print "Processing $curent\n";
		`(cd $curent ; ../createindex.pl)`;
	}
}
closedir DIR;