version 1.113, 2006/11/13 11:18:46
|
version 1.114, 2006/12/04 21:44:42
|
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 ($nsname,$path, $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) { |
# print "$not_eps is a postscript file. copy to $path\n"; |
# print "$not_eps is a postscript file. copy to $path\n"; |
File::Path::mkpath($path,0,0777); |
&File::Path::mkpath($path,0,0777); |
print "Made path: $path"; |
#print("Made path: $path"); |
# $not_eps =~ s/^\s+//; |
#$not_eps =~ s/^\s+//; |
# $not_eps =~ s/\s+$//; |
#$not_eps =~ s/\s+$//; |
# $not_eps =~ s/ /\__/g; |
#$not_eps =~ s/ /\__/g; |
print "Copying $not_eps to $eps_f\n"; |
#print("Copying $not_eps to $eps_f\n"); |
copy("$not_eps", "$eps_f"); |
copy("$not_eps", "$eps_f"); |
# print "Copy complete\n"; |
# print "Copy complete\n"; |
} else { |
} else { |
Line 244 print "<a href=\"$backref\"><b>Return</b
|
Line 244 print "<a href=\"$backref\"><b>Return</b
|
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; |