version 1.3, 2002/07/19 16:56:23
|
version 1.4, 2002/08/19 21:40:55
|
Line 38 if (not (-d $dirprefix . "png/"))
|
Line 38 if (not (-d $dirprefix . "png/"))
|
mkdir $dirprefix . "gif/", 0755; |
mkdir $dirprefix . "gif/", 0755; |
mkdir $dirprefix . "eps/", 0755; |
mkdir $dirprefix . "eps/", 0755; |
|
|
|
my $convert = `which convert`; |
|
if ($convert eq '') |
|
{ |
|
open LOG, ">> WARNINGS"; |
|
print LOG "**** ERROR **** ImageMagick is not installed. You must install ImageMagick to use LON-CAPA. Please see your installation instructions.\n"; |
|
print "**** ERROR **** ImageMagick is not installed. You must install ImageMagick to use LON-CAPA. Please see your installation instructions.\n"; |
|
exit; |
|
} |
|
|
foreach my $file (glob($dirprefix . "png/*.png")) |
foreach my $file (glob($dirprefix . "png/*.png")) |
{ |
{ |
my $filename = substr($file, rindex($file, "/") + 1); |
my $filename = substr($file, rindex($file, "/") + 1); |