loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2001/12/07 23:16:22	version 1.4, 2002/03/06 20:43:47
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
print "<body bgcolor=\"#FFFFFF\">\n";	print "<body bgcolor=\"#FFFFFF\">\n";
print "<h1>EXAMPLE</h1>\n";	print "<h1>OUTPUT is in the PDF FILE below</h1>\n";
my $texfile = $ENV{'QUERY_STRING'};	my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});

	print "$texfile\n";
$_ = $texfile;	$_ = $texfile;
m/^(.*)\/([^\/]+)$/;	m/^(.*)\/([^\/]+)$/;
my $name_file = $2;	my $name_file = $2;
Line 18 my $comma = "dvips -o $new_name_file";	Line 20 my $comma = "dvips -o $new_name_file";
m/^(.*)\./;	m/^(.*)\./;
my $tempo_file = $1.'temporar.ps';	my $tempo_file = $1.'temporar.ps';
my $name_file = $1.'.pdf';	my $name_file = $1.'.pdf';
$comma = "psnup -2 -s1.0 $new_name_file";	if ($laystyle eq 'album') {
system("$comma $tempo_file");	$comma = "psnup -2 -s1.0 $new_name_file";
system("ps2pdf $tempo_file $name_file");	system("$comma $tempo_file");
	system("ps2pdf $tempo_file $name_file");
	} elsif ($laystyle eq 'book') {
	system("ps2pdf $new_name_file $name_file");
	}




print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";	print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
Line 29 print "\n";	Line 37 print "\n";



# my $ere;
# foreach $ere (%ENV) {
# print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n");
# }