version 1.40.2.1, 2004/02/12 22:50:35
|
version 1.40.2.2, 2004/03/04 05:21:34
|
Line 71 END
|
Line 71 END
|
my $noteps; |
my $noteps; |
foreach $not_eps (@content_of_file) { |
foreach $not_eps (@content_of_file) { |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
|
$not_eps=~s|\/\.\/|\/|g; |
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$_ = $eps_f; |
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { |
m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$eps_f; |
|
} else { |
|
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
|
$eps_f = '/home/httpd/prtspool/'.$1; |
|
} |
my $path=$eps_f; |
my $path=$eps_f; |
$path=~s/\/([^\/]+)\.eps$//; |
$path=~s/\/([^\/]+)\.eps$//; |
File::Path::mkpath($path,0,0777); |
File::Path::mkpath($path,0,0777); |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |