#!/usr/bin/perl -w
my $baseurl = "http://photos.bazza.com";
use LWP::Simple;
use Cwd;
my $dir = cwd();
$dir =~ s#/var/www/bazza/photos/##g;
$dir =~ s/originals//g;

mkdir("../thumbnails");
system("chmod g+w ../thumbnails");
foreach(<*>) {
#  next if($_ =~ /jpg/);
  $foo = lc($_);
  rename $_ => $foo;
  get("$baseurl/index.cgi/thumb/$dir$foo");
}