version 1.37, 2003/09/01 03:30:57
|
version 1.38, 2003/10/16 15:30:43
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
use File::Path; |
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
Line 48 use Image::Magick;
|
Line 49 use Image::Magick;
|
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$_ = $eps_f; |
$_ = $eps_f; |
m/\/([^\/]+)$/; |
m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
|
my $path=$eps_f; |
|
$path=~s/\/([^\/]+)\.eps$//; |
|
File::Path::mkpath($path,0,0777); |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
Line 69 use Image::Magick;
|
Line 73 use Image::Magick;
|
} |
} |
} |
} |
} |
} |
unlink $figfile; |
|
} |
} |
#print "$texfile\n"; #name of the tex file for debugging only |
#print "$texfile\n"; #name of the tex file for debugging only |
if (-e $texfile) { |
if (-e $texfile) { |