loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2001/10/02 14:10:40	version 1.3, 2001/12/07 23:16:22
Line 12 my $path_file = $1.'/';	Line 12 my $path_file = $1.'/';
$name_file =~ s/\.tex/\.dvi/;	$name_file =~ s/\.tex/\.dvi/;
my $new_name_file = $name_file;	my $new_name_file = $name_file;
$new_name_file =~ s/\.dvi/\.ps/;	$new_name_file =~ s/\.dvi/\.ps/;
my $pro_fun = "dvips -o $new_name_file";	my $comma = "dvips -o $new_name_file";
system("$pro_fun $name_file");	system("$comma $name_file");
my $name_file = $new_name_file;	$_ = $new_name_file;
$name_file =~ s/\.ps/\.pdf/;	m/^(.*)\./;
system("ps2pdf $new_name_file $name_file");	my $tempo_file = $1.'temporar.ps';
	my $name_file = $1.'.pdf';
	$comma = "psnup -2 -s1.0 $new_name_file";
	system("$comma $tempo_file");
	system("ps2pdf $tempo_file $name_file");


#print "<a href=\"http://bistromath.lite.msu.edu/$name_file\">Your PDF document</a>\n";	print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
print "\n";	print "\n";