[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.8 and 1.12

version 1.8, 2002/05/23 20:20:17 version 1.12, 2002/08/01 15:41:41
Line 7  print "<h1>OUTPUT is in the PDF FILE (se Line 7  print "<h1>OUTPUT is in the PDF FILE (se
 my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});  my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
 my $figfile = $texfile;  my $figfile = $texfile;
 $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;  $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
 print "GLYDI SUDY $figfile ENS";  my $duefile = $texfile;
   $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
   my $tblfile = $texfile;
   $tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/;
 if (-e $figfile) {  if (-e $figfile) {
     my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";      my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
     my @content_of_file = <$temporary_file>;      my @content_of_file = <$temporary_file>;
Line 16  if (-e $figfile) { Line 19  if (-e $figfile) {
     foreach $not_eps (@content_of_file) {      foreach $not_eps (@content_of_file) {
  if ($not_eps ne '') {   if ($not_eps ne '') {
     my $eps_f = $not_eps;      my $eps_f = $not_eps;
     $eps_f =~ s/\..*$/\.eps/;      $eps_f =~ s/\.[^.]*$/\.eps/i;
     $_ = $eps_f;      $_ = $eps_f;
     m/\/(\w+\.eps)/;              m/\/([^\/]+)$/;
     $eps_f = '/home/httpd/prtspool/'.$1;      $eps_f = '/home/httpd/prtspool/'.$1;
     my $image = Image::Magick->new;      my $image = Image::Magick->new;
     $not_eps =~ s/^\s+//;      $not_eps =~ s/^\s+//;
Line 65  $texdvi =~ s/\.tex/\.dvi/; Line 68  $texdvi =~ s/\.tex/\.dvi/;
 $texps =~ s/\.tex/\.ps/;  $texps =~ s/\.tex/\.ps/;
 my @garb = ($texlog,$texaux,$texdvi,$texps);  my @garb = ($texlog,$texaux,$texdvi,$texps);
 unlink @garb;  unlink @garb;
   unlink $duefile;
   unlink $tblfile;
 print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";  print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
 print "\n";  print "\n";
   
Removed from v.1.8  
changed lines
  Added in v.1.12

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>