loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2001/10/09 21:26:39	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=\"http://bistromath.lite.msu.edu/prtspool/$name_file\">Your PDF document</a>\n";
	print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
print "\n";	print "\n";




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