|
version 1.10, 2002/07/30 14:11:17
|
version 1.13, 2002/08/01 18:09:27
|
|
Line 9 my $figfile = $texfile;
|
Line 9 my $figfile = $texfile;
|
| $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
| my $duefile = $texfile; |
my $duefile = $texfile; |
| $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
| my $tblfile = $texfile; |
|
| $tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/; |
|
| if (-e $figfile) { |
if (-e $figfile) { |
| my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
| my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
|
Line 19 if (-e $figfile) {
|
Line 17 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+//; |
|
Line 69 $texps =~ s/\.tex/\.ps/;
|
Line 67 $texps =~ s/\.tex/\.ps/;
|
| my @garb = ($texlog,$texaux,$texdvi,$texps); |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
| unlink @garb; |
unlink @garb; |
| unlink $duefile; |
unlink $duefile; |
| unlink $tblfile; |
|
| print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n"; |
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n"; |
| print "\n"; |
print "\n"; |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to printout.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface