#!/usr/bin/perl chdir "/html/kent"; # first, figure out which file to replace: # get a list of image files, sorted in inverse age order @flist = `ls -tr qc?.jpg`; # find out which run this is $iter = `cat qc.iter`; $iter++; if( $iter > $#flist ) { $iter = 0; } open IFL, ">qc.iter" || die("couldn't open qc.iter file"); print IFL $iter; # overwrite the file with the appropriate relative age system("cp /g/kent/qcam/t.jpg $flist[$iter]"); # second, dump out a web page with the appropriate stuff # standard header open HFL, ">qcx.html" || die("couldn't create new html file"); print HFL "\n\n"; print HFL "quickcam history\n"; print HFL "\n"; print HFL "\n"; print HFL "\n"; print HFL "
\n"; print HFL "

songbird view history, with random numbers

\n"; print HFL "Live View
\n"; print HFL "(hex and decimal digits derived from md5 checksum of the image file)
\n"; print HFL "
\n"; print HFL " \n
"; # now the variable stuff print HFL "\n"; @flist = `ls -lt --full-tim qc?.jpg`; foreach $i (0..$#flist) { ($date,$name) = $flist[$i] =~ /\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+(\S+\s+\S+\s+\S+\s+\S+\s+\S+)\s+(\S+)/; $n0 = `md5 <$name`; @n = $n0 =~ /^(....)(....)(....)(....)(....)(....)(....)(....)/; print HFL "\n\n"; } print HFL "
\n"; print HFL "
"; print HFL "		\n"; print HFL "$date
\n"; print HFL "
\n";
    foreach $j (0,2,4,6) {
        printf HFL "$n[$j] $n[$j+1] || %05d %05d\n",
            hex($n[$j]),hex($n[$j+1]);
    }
    print HFL "\n";
    print HFL "
\n"; # finally, print the trailing html print HFL "\n"; print HFL ""; print HFL "[Songbird]\n\n"; close HFL; # OK all is done -- overwrite the live html system("cp qcx.html qc.html");