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

Diff for /loncom/interface/printout.pl between versions 1.17 and 1.20

version 1.17, 2002/08/14 19:33:14 version 1.20, 2002/08/23 20:02:22
Line 3  use IO::File; Line 3  use IO::File;
 use Image::Magick;  use Image::Magick;
  print "Content-type: text/html\n\n";   print "Content-type: text/html\n\n";
  print "<body bgcolor=\"#FFFFFF\">\n";   print "<body bgcolor=\"#FFFFFF\">\n";
   my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});    my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'});
   my $figfile = $texfile;    my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;    $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
   my $duefile = $texfile;    my $duefile = $texfile;
Line 29  use Image::Magick; Line 29  use Image::Magick;
       $image->Set(page => '+100+200');         $image->Set(page => '+100+200'); 
       $status = $image->Write($eps_f);            $status = $image->Write($eps_f);    
       if ($status) {print "  $status  ";}        if ($status) {print "  $status  ";}
                 #check is eps exist in prtspool
                 if(not -e $eps_f) {
     for (my $i=0;$i<10000;$i++) {
         if (-e $eps_f.'.'.$i) {
     rename $eps_f.'.'.$i, $eps_f;
     last;
         }
     }
         }  
   }    }
       }        }
       unlink $figfile;        unlink $figfile;
Line 79  use Image::Magick; Line 88  use Image::Magick;
       $comma = "psnup -2 -s1.0 $new_name_file";        $comma = "psnup -2 -s1.0 $new_name_file";
       system("$comma $tempo_file");         system("$comma $tempo_file"); 
       system("ps2pdf $tempo_file $name_file");        system("ps2pdf $tempo_file $name_file");
   } elsif ($laystyle eq 'book') {    } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
         $comma = 'pstops -pletter "2:0+1(0.5w,0)"';
         system("$comma $new_name_file $tempo_file");
         system("ps2pdf $tempo_file $name_file");
     } else {
       system("ps2pdf $new_name_file $name_file");        system("ps2pdf $new_name_file $name_file");
   }        }    
   my $texlog = $texfile;    my $texlog = $texfile;
Line 91  use Image::Magick; Line 104  use Image::Magick;
   $texdvi =~ s/\.tex/\.dvi/;    $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 $duefile;
   print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";    print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";
   print "\n";    print "\n";
Removed from v.1.17  
changed lines
  Added in v.1.20

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