#!/usr/bin/perl
#
#   updated.cgi
#

# Print out a content-type for HTTP/1.0 compatibility
#print "Content-type: text/html\n\n";

$counter = 0;
$mark = 0;

if ($ARGV[0] eq "") { goto ENDWHILE; }

while ($counter !=15) {

	$counter++;
	
	$status = `find /u4/home/OutridersKarana/public_html/kunark -name $ARGV[0] -mtime $counter`;
		
	#print "$counter, $ARGV[0], $status \n";
	
	if ($status ne "") {
		# Image Updated
		print "Content-type: image/jpeg\n\n";
		open (updateimage,"/u4/home/OutridersKarana/public_html/gif/updated.gif");
		while ($out = <updateimage>) {
		   print $out;
		}
		$mark = 1;
		goto ENDWHILE;
		close (updateimage);
	}
}

ENDWHILE:

if ($mark == 0) {
		# Image Updated
		print "Content-type: image/gif\n\n";
		open (updateimage,"/u2/www/docs/tapr/gif/blank.gif");
		while ($out = <updateimage>) {
		   print $out;
		}
		close (updateimage);

	}
# ------------------------------------------------------------