#!/usr/bin/env perl

@dirs = `find * -maxdepth 1 -type d | egrep -r -v '(gallerie|demo_3|bassg)'`;
print @dirs;

for $dir (@dirs) {
	chomp($dir);

	open(GAL, ">gallery-$dir.html");
	open(TPL, "gallery-b.tpl");
	while(<TPL>) {
		print GAL;
	}

	@files = `find $dir -type f -name "*.2.jpg"`;

#	print GAL "@files\n";
	for (@files) {
		chomp;
		s!\.2.jpg!!;
		$raw = $_;
		$thumb = $raw;
		$thumb =~ s!/!/tn_!;

#format: <a href="example-images/20110813_184411.jpg"><img src="example-images/thumbs/20110813_184411.jpg"/></a>
		print GAL <<END;
<a href="$raw.jpg"><img src="$thumb.gif"/></a>
END
	}
	print GAL <<END;
</div>
</body>
</html>
END
}