#!/usr/bin/perl
use IO::File;
use Image::Magick;
print "Content-type: text/html\n\n";
print "\n";
my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
#do we have figures?
if (-e $figfile) {
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
my @content_of_file = <$temporary_file>;
close $temporary_file;
my $noteps;
foreach $not_eps (@content_of_file) {
if ($not_eps ne '') {
my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;
$_ = $eps_f;
m/\/([^\/]+)$/;
$eps_f = '/home/httpd/prtspool/'.$1;
my $image = Image::Magick->new;
$not_eps =~ s/^\s+//;
$not_eps =~ s/\s+$//;
$status = $image->Read($not_eps);
if ($status) {print " $status ";}
$image->Set(page => '+100+200');
$status = $image->Write($eps_f);
if ($status) {print " $status ";}
}
}
unlink $figfile;
}
#print "$texfile\n"; #name of the tex file for debugging only
$texfile =~ m/^(.*)\/([^\/]+)$/;
my $name_file = $2;
my $path_file = $1.'/';
chdir $path_file;
system("latex $name_file 1>/dev/null 2>/dev/null");
#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");
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.5w,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";
}
}