--- loncom/interface/printout.pl 2002/08/12 18:07:20 1.15
+++ loncom/interface/printout.pl 2002/09/18 18:42:57 1.21
@@ -3,7 +3,7 @@ use IO::File;
use Image::Magick;
print "Content-type: text/html\n\n";
print "\n";
- my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
+ my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;
@@ -29,6 +29,15 @@ use Image::Magick;
$image->Set(page => '+100+200');
$status = $image->Write($eps_f);
if ($status) {print " $status ";}
+ #check is eps exist in prtspool
+ if(not -e $eps_f) {
+ for (my $i=0;$i<10000;$i++) {
+ if (-e $eps_f.'.'.$i) {
+ rename $eps_f.'.'.$i, $eps_f;
+ last;
+ }
+ }
+ }
}
}
unlink $figfile;
@@ -39,69 +48,73 @@ use Image::Magick;
my $path_file = $1.'/';
chdir $path_file;
system("latex $name_file 1>/dev/null 2>/dev/null");
- $name_file =~ s/\.tex/\.dvi/;
- if (-e $name_file) {
- #if dvi file exist = LaTeX successfully parsed tex file
- print "OUTPUT is in the PDF FILE (see link below)
\n";
+ #Do we have a latex error in the log file?
+ my $logfilename = $texfile;
+ $logfilename =~ s/\.tex$/\.log/;
+ my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";
+ my @content_of_file = <$temporary_file>;
+ close $temporary_file;
+ my $body_log_file = join(' ',@content_of_file);
+ if ($body_log_file=~m/!\s+Emergency stop/) {
+ #LaTeX failed to parse tex file
+ print "LaTeX could not successfully parse your tex file.
";
+ print "It probably has errors in it.
";
+ print "Here are the error messages in the LaTeX log file";
+ my $sygnal = 0;
+ for (my $i=0;$i<=$#content_of_file;$i++) {
+ if ($content_of_file[$i]=~m/^!/) {
+ $sygnal = 1;
+ }
+ if ($content_of_file[$i]=~m/Here is how much of/) {
+ $sygnal = 0;
+ }
+ if ($sygnal) {
+ print "$content_of_file[$i]
";
+ }
+ }
+ } else {
+ #LaTeX successfully parsed tex file
+ $name_file =~ s/\.tex/\.dvi/;
my $new_name_file = $name_file;
$new_name_file =~ s/\.dvi/\.ps/;
my $comma = "dvips -o $new_name_file";
system("$comma $name_file");
- $_ = $new_name_file;
- m/^(.*)\./;
- my $tempo_file = $1.'temporar.ps';
- my $name_file = $1.'.pdf';
- if ($laystyle eq 'album') {
- $comma = "psnup -2 -s1.0 $new_name_file";
- system("$comma $tempo_file");
- system("ps2pdf $tempo_file $name_file");
- } elsif ($laystyle eq 'book') {
- system("ps2pdf $new_name_file $name_file");
- }
- my $texlog = $texfile;
- my $texaux = $texfile;
- my $texdvi = $texfile;
- my $texps = $texfile;
- $texlog =~ s/\.tex/\.log/;
- $texaux =~ s/\.tex/\.aux/;
- $texdvi =~ s/\.tex/\.dvi/;
- $texps =~ s/\.tex/\.ps/;
- my @garb = ($texlog,$texaux,$texdvi,$texps);
- unlink @garb;
- unlink $duefile;
- print "Your PDF document";
- print "\n";
- } else {
- print "LaTeX could not successfully parse your tex file.
";
- print "It probably has errors in it.
";
- my $logfilename = $texfile;
- $logfilename =~ s/\.tex$/\.log/;
- if (-e $logfilename) {
- #if dvi file does not exist = LaTeX failed to parse tex file
- print "Her are the error messages in the LaTeX log file";
- my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";
- my @content_of_file = <$temporary_file>;
- close $temporary_file;
- my $sygnal = 0;
- for (my $i=0;$i<=$#content_of_file;$i++) {
- if ($content_of_file[$i]=~m/^!/) {
- $sygnal = 1;
- }
- if ($content_of_file[$i]=~m/Here is how much of/) {
- $sygnal = 0;
- }
- if ($sygnal) {
- print "$content_of_file[$i]
";
- }
-
- }
-# my $content_file_string = join(' ',@content_of_file);
-
-# print "$content_file_string\n";
+ if (-e $new_name_file) {
+ print "OUTPUT is in the PDF FILE (see link below)
\n";
+ $new_name_file =~ m/^(.*)\./;
+ my $tempo_file = $1.'temporar.ps';
+ my $name_file = $1.'.pdf';
+ if ($laystyle eq 'album') {
+ $comma = "psnup -2 -s1.0 $new_name_file";
+ system("$comma $tempo_file");
+ system("ps2pdf $tempo_file $name_file");
+ } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
+ $comma = 'pstops -pletter "2:0+1(0.48w,0)"';
+ system("$comma $new_name_file $tempo_file");
+ system("ps2pdf $tempo_file $name_file");
+ } else {
+ system("ps2pdf $new_name_file $name_file");
+ }
+ my $texlog = $texfile;
+ my $texaux = $texfile;
+ my $texdvi = $texfile;
+ my $texps = $texfile;
+ $texlog =~ s/\.tex/\.log/;
+ $texaux =~ s/\.tex/\.aux/;
+ $texdvi =~ s/\.tex/\.dvi/;
+ $texps =~ s/\.tex/\.ps/;
+ my @garb = ($texlog,$texaux,$texdvi,$texps);
+ unlink @garb;
+ unlink $duefile;
+ print "Your PDF document";
+ print "\n";
}
}
+
+
+