#!/bin/perl
print "Content-type: image/gif\n\n";
$default = "/e1.gif";
open(F,"chgif.cnt");
while(<F>){
        $count = $_;
}
close(F);
open(F,"chgif.dat");
$i=0;
while(<F>){
        if($i<$count){
                $pic =$_;
        }
        $i+=1;

}
close(F);
if($pic =~ /END/){
        $pic=$default;
        $count = 0;
}
open(F,">chgif.cnt");
print F $count+1;
#print $count+1;
close(F);
$loc = "/usr/local/etc/httpd/htdocs$pic";
open(F,$loc);
open(F,"/usr/local/etc/httpd/htdocs/prointel$pic");
while(<F>){
        print $_;
}
close(F);
