version 1.111, 2006/10/30 11:40:49
|
version 1.114, 2006/12/04 21:44:42
|
Line 205 print "<a href=\"$backref\"><b>Return</b
|
Line 205 print "<a href=\"$backref\"><b>Return</b
|
foreach my $not_eps (@content_of_file) { |
foreach my $not_eps (@content_of_file) { |
chomp($not_eps); |
chomp($not_eps); |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
# print "Converting $not_eps"; # Debugging. |
# print "Converting $not_eps"; # Debugging. |
my $status_statement='EPS picture for '.$not_eps; |
my $status_statement='EPS picture for '.$not_eps; |
# print "$status_statement\n"; |
# print "$status_statement\n"; |
$not_eps=~s|\/\.\/|\/|g; |
$not_eps=~s|\/\.\/|\/|g; |
Line 227 print "<a href=\"$backref\"><b>Return</b
|
Line 227 print "<a href=\"$backref\"><b>Return</b
|
# We really just need to copy it from where it was to prtspool |
# We really just need to copy it from where it was to prtspool |
# but with the spaces substituted to _'s. |
# but with the spaces substituted to _'s. |
# |
# |
my ($path, $nsname, $sext) = fileparse($eps_f, qr/\.(ps|eps)/i); |
my ($nsname,$path, $sext) = &fileparse($eps_f, qr/\.(ps|eps)/i); |
if ($sext =~/ps$/i) { |
if ($sext =~/ps$/i) { |
File::Path::mkpath($path,0,0777); |
# print "$not_eps is a postscript file. copy to $path\n"; |
$not_eps =~ s/^\s+//; |
&File::Path::mkpath($path,0,0777); |
$not_eps =~ s/\s+$//; |
#print("Made path: $path"); |
$not_eps =~ s/ /\__/g; |
#$not_eps =~ s/^\s+//; |
File::Copy("$not_eps", "$eps_f"); |
#$not_eps =~ s/\s+$//; |
|
#$not_eps =~ s/ /\__/g; |
|
#print("Copying $not_eps to $eps_f\n"); |
|
copy("$not_eps", "$eps_f"); |
|
# print "Copy complete\n"; |
} else { |
} else { |
|
|
$eps_f .= '.eps'; # Just append the eps ext. |
$eps_f .= '.eps'; # Just append the eps ext. |
my $path=$eps_f; |
my $path=$eps_f; |
$path =~ s/\/([^\/]+)\.eps$//; |
$path =~ s/\/([^\/]+)\.eps$//; |
# print "Final file path: $path "; # Debugging |
# print "Final file path: $path "; # Debugging |
File::Path::mkpath($path,0,0777); |
&File::Path::mkpath($path,0,0777); |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/ /\\ /g; |
$not_eps =~ s/ /\\ /g; |