loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.4, 2002/03/06 20:43:47
+version 1.6, 2002/04/12 13:46:11
  Line 1
  #!/usr/bin/perl
+ use IO::File;
  print "Content-type: text/html\n\n";
  print "<body bgcolor=\"#FFFFFF\">\n";
  print "<h1>OUTPUT is in the PDF FILE below</h1>\n";
- my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
+ 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/^(.*)\/([^\/]+)$/;