version 1.20, 2002/08/23 20:02:22
|
version 1.21, 2002/09/18 18:42:57
|
Line 3 use IO::File;
|
Line 3 use IO::File;
|
use Image::Magick; |
use Image::Magick; |
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'}); |
my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); |
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
my $duefile = $texfile; |
my $duefile = $texfile; |
Line 89 use Image::Magick;
|
Line 89 use Image::Magick;
|
system("$comma $tempo_file"); |
system("$comma $tempo_file"); |
system("ps2pdf $tempo_file $name_file"); |
system("ps2pdf $tempo_file $name_file"); |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
$comma = 'pstops -pletter "2:0+1(0.5w,0)"'; |
$comma = 'pstops -pletter "2:0+1(0.48w,0)"'; |
system("$comma $new_name_file $tempo_file"); |
system("$comma $new_name_file $tempo_file"); |
system("ps2pdf $tempo_file $name_file"); |
system("ps2pdf $tempo_file $name_file"); |
} else { |
} else { |
Line 104 use Image::Magick;
|
Line 104 use Image::Magick;
|
$texdvi =~ s/\.tex/\.dvi/; |
$texdvi =~ s/\.tex/\.dvi/; |
$texps =~ s/\.tex/\.ps/; |
$texps =~ s/\.tex/\.ps/; |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
my @garb = ($texlog,$texaux,$texdvi,$texps); |
#unlink @garb; |
unlink @garb; |
unlink $duefile; |
unlink $duefile; |
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>"; |
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>"; |
print "\n"; |
print "\n"; |