#!/usr/local/bin/perl
require "/home/todd/toddweb.env";
require "$PAGEHOMEDIR/weblib.lib";
$path="$PAGEHOMEDIR/www/pictures";
$dir="";
($dir)=($ENV{PATH_INFO}=~m#/([^/]+)#);
opendir(GIFS,"$path/$dir");
@bg=grep(!/^\./,readdir(GIFS));
closedir(GIFS);
$bg=$bg[(time%($#bg+1))];
print "Pragma: no-cache\n";
&htmlopen("image/gif=");
open(GIF,"$path/$dir/$bg");
while(read(GIF,$buf,1024)){print $buf;}
close(GIF);
#$BODYENHANCE="background=/$HTMLPATH/pictures/background/$bg bgcolor=#ffffff";
#@img=('trconn.gif','trant.gif','trbanner.gif','nwo.gif','toddisGdd.gif',
				#'tri1a.gif','trlive.gif','trcdi.gif');
#$img=$img[(time%($#img+1))];