--- loncom/interface/printout.pl 2001/10/02 14:10:40 1.1 +++ loncom/interface/printout.pl 2002/04/12 13:46:11 1.6 @@ -1,8 +1,29 @@ #!/usr/bin/perl +use IO::File; print "Content-type: text/html\n\n"; print "\n"; -print "

EXAMPLE

\n"; -my $texfile = $ENV{'QUERY_STRING'}; +print "

OUTPUT is in the PDF FILE below

\n"; +my ($texfile,$laystyle,$needconvert) = split(/&/,$ENV{'QUERY_STRING'}); +if ($needconvert) { + my $temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n"; + my @content_of_file = <$temporary_file>; + my $content_file_string = join(' ',@content_of_file); + my $b_noteps = index($content_file_string,'\needepsconversion{',0); + while ($b_noteps != -1) { + my $e_noteps = index($content_file_string,'}',$b_noteps); + my $notepslist = substr($content_file_string,$b_noteps+19,$e_noteps-$b_noteps-19); + my $newnotepslist = $notepslist; + $newnotepslist =~ s/\..*$/\.eps/; + $_ = $newnotepslist; + m/\/(\w+\.eps)/; + $newnotepslist = $1; + $newnotepslist = '/home/httpd/prtspool/'.$1; + system("convert gif:$notepslist eps:$newnotepslist" ); + $b_noteps = index($content_file_string,'\needepsconversion{',$e_noteps); + } + close $temporary_file; +} +print "$texfile\n"; $_ = $texfile; m/^(.*)\/([^\/]+)$/; my $name_file = $2; @@ -12,21 +33,27 @@ my $path_file = $1.'/'; $name_file =~ s/\.tex/\.dvi/; my $new_name_file = $name_file; $new_name_file =~ s/\.dvi/\.ps/; -my $pro_fun = "dvips -o $new_name_file"; - system("$pro_fun $name_file"); -my $name_file = $new_name_file; - $name_file =~ s/\.ps/\.pdf/; - system("ps2pdf $new_name_file $name_file"); +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"); +} -#print "Your PDF document\n"; + + +print "Your PDF document\n"; print "\n"; -# my $ere; -# foreach $ere (%ENV) { -# print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"); -# } - +