version 1.1, 2008/12/18 22:30:24
|
version 1.2, 2008/12/27 01:21:48
|
Line 50 http://www.lon-capa.org/
|
Line 50 http://www.lon-capa.org/
|
chomp($version); |
chomp($version); |
if ($currversion=~ /^\d+\.\d+$/) { |
if ($currversion=~ /^\d+\.\d+$/) { |
if ($currversion ne $newversion) { |
if ($currversion ne $newversion) { |
unlink('/home/httpd/cgi/mimetexcache/*.gif'); |
&clear_mimetex_cache(); |
print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n"; |
|
if (open($fh, ">$currversionfile")) { |
if (open($fh, ">$currversionfile")) { |
print $fh "$newversion"; |
print $fh "$newversion"; |
close($fh); |
close($fh); |
Line 61 http://www.lon-capa.org/
|
Line 60 http://www.lon-capa.org/
|
} |
} |
} |
} |
} else { |
} else { |
unlink('/home/httpd/cgi/mimetexcache/*.gif'); |
&clear_mimetex_cache(); |
print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n"; |
|
if (open($fh, ">$currversionfile")) { |
if (open($fh, ">$currversionfile")) { |
print $fh "$newversion"; |
print $fh "$newversion"; |
close($fh); |
close($fh); |
print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n";` |
print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n"; |
} |
} |
} |
} |
} |
} |
} |
} |
|
} else { |
|
print "Couldn't find the mimetex version file: $newversionfile\n"; |
|
} |
|
|
|
sub clear_mimetex_cache { |
|
my $mimetexcache = '/home/httpd/cgi-bin/mimetexcache'; |
|
if (opendir(my $dir,$mimetexcache)) { |
|
my @gifs = grep(/^[^\/]+\.gif$/,readdir($dir)); |
|
if (@gifs > 0) { |
|
my $counter = 0; |
|
foreach my $gif (@gifs) { |
|
unlink("$mimetexcache/$gif"); |
|
$counter ++; |
|
} |
|
if ($counter) { |
|
print "$counter .gif file(s) cached by previous mimeTeX version have been removed from the mimetexcache directory\n"; |
|
} |
|
} |
|
closedir($dir); |
|
} else { |
|
print "An error occurred opening the directory: $mimetexcache\n"; |
|
} |
} |
} |
</perlscript> |
</perlscript> |
</file> |
</file> |