# Define Variables $basedir = "http://cafe-paradise.tripod.com/images/"; @images = ("1.jpg","2.jpg","3.jpg"); @urls = ("http://cafe-paradise.tripod.com/images/1.jpg", "http://cafe-paradise.tripod.com/images/2.jpg", "http://cafe-paradise.tripod.com/images/3.jpg"); @alt = ("","",""); ############################################################################## # Options $uselog = "0"; # 1 = YES; 0 = NO $logfile = "/path/to/log/file"; $date = `/usr/bin/date`; chop($date); $link_image = "0"; # 1 = YES; 0 = NO $align = "left"; $border = "0"; # Done ############################################################################## srand(time ^ $$); $num = rand(@images); # Pick a Random Number # Print Out Header With Random Filename and Base Directory print "Content-type: text/html\n\n"; if ($link_image eq '1' && $urls[$num] ne "") { print ""; } print "\"$alt[$num]\"";"; if ($link_image eq '1' && $urls[$num] ne "") { print ""; } print "\n"; # If You want a log, we add to it here. if ($uselog eq '1') { open(LOG, ">>$logfile"); print LOG "$images[$num] - $date - $ENV{'REMOTE_HOST'}\n"; close(LOG); }