#!/usr/local/bin/perl # Run by cron at 7:50 to archive (in web space) the current blitz mpeg # and to generate a new html index file. Outputs html. # -Drake (dld@chem.psu.edu) require 'ctime.pl'; chdir '/home/children/html/howitzer'; @file = ("Blitz-0", "Blitz-1","Blitz-2","Blitz-3","Blitz-4", "Blitz-5","Blitz-6", "Blitz-7"); unlink("$file[$#file].mpg","$file[$#file].gif","$file[$#file].txt","$file[$#file]Ann.txt"); for ($i=$#file;$i>0;$i--) { rename($file[$i-1] . '.mpg',"$file[$i].mpg"); rename($file[$i-1] . '.gif',"$file[$i].gif"); rename($file[$i-1] . '.txt',"$file[$i].txt"); rename($file[$i-1] . 'Ann.txt',"$file[$i]Ann.txt"); } if (-s 'Blitz.mpg') { system('cp -p Blitz.mpg Blitz-0.mpg'); } if (-s 'Blitz.gif') { system('cp -p Blitz.gif Blitz-0.gif'); } if (-s 'Blitz.txt') { system('cp -p Blitz.txt Blitz-0.txt'); } if (-s 'Blitz.txt') { system('cp -p BlitzAnn.txt Blitz-0Ann.txt'); } print "
\n"; print "