#!/usr/bin/perl
# Random Image Server
# (c) 1997, "Unix Is My Mommy" productions, clay@shirky.com
srand; # initialize randomizer
$number_of_gifs = 3; # set number of images
opendir(IMAGES, "images/"); # open directory where images are stored
for ( readdir( IMAGES )) { # make an array, @Images, with the gifs in it
push @Images, $_ if /\.gif$/;
}
for ($i=1; $i <= $number_of_gifs; $i++) { # pull out $number_of_gifs
$image[$i] = splice( @Images, rand(@Images), 1 )
}
print "Content-type: text/html\n\n"; # print HTML header
# print the page, writing $image[1] for the first image, $image[2]
# for the second image, and so on
print qq#
ADVENT MOMENTS
these tiny moments were originally commisioned by word
----art director: Marina Zurkow---- designer: Tenney McClane----
#;
exit;
