version 1.10, 2002/07/30 14:11:17
|
version 1.12, 2002/08/01 15:41:41
|
Line 19 if (-e $figfile) {
|
Line 19 if (-e $figfile) {
|
foreach $not_eps (@content_of_file) { |
foreach $not_eps (@content_of_file) { |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
$eps_f =~ s/\..*$/\.eps/; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$_ = $eps_f; |
$_ = $eps_f; |
m/\/(\w+\.eps)/; |
m/\/([^\/]+)$/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |