#!/usr/bin/perl

# randomimages.cgi

$url = "http://www.rabble.co.uk/apps/randomimages/";
$dir = "/home/rabble/public_html/apps/randomimages/";

opendir(DIR,"$dir") || die "Can't open image directory\n";
@images = grep(!/^\./, readdir(DIR));
closedir(DIR);

srand(time ^ $$);
$number = rand(@images);
print "Location: $url$images[$number]\n\n";

exit;