/ my $currversionfile = '/home/httpd/lonTabs/mimetex-version'; my $newversionfile = '../cgi/mimeTeX/VERSION'; my $fh; if (-e $newversionfile) { if (open($fh, "<$newversionfile")) { my $newversion = <$fh>; close($fh); chomp($newversion); if ($newversion=~ /^\d+\.\d+$/) { if (-e $currversionfile) { if (open($fh, "<$currversionfile")) { my $currversion = <$fh>; close($fh); chomp($version); if ($currversion=~ /^\d+\.\d+$/) { if ($currversion ne $newversion) { unlink('/home/httpd/cgi/mimetexcache/*.gif'); print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n"; if (open($fh, ">$currversionfile")) { print $fh "$newversion"; close($fh); print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n"; } } } } } else { unlink('/home/httpd/cgi/mimetexcache/*.gif'); print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n"; if (open($fh, ">$currversionfile")) { print $fh "$newversion"; close($fh); print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n";` } } } } }