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

Diff for /loncom/interface/printout.pl between versions 1.35 and 1.36

version 1.35, 2003/08/28 13:58:35 version 1.36, 2003/08/28 20:37:26
Line 4  use Image::Magick; Line 4  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,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});    my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
     my $advans_role=0;
     if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;}
   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 87  use Image::Magick; Line 89  use Image::Magick;
       if ($sygnal) {        if ($sygnal) {
   print "$content_of_file[$i]<br />";    print "$content_of_file[$i]<br />";
       }          }  
   }     }
             if ($advans_role) {  
               print "<b><big>The link to ";                print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;                $logfilename=~s/\/home\/httpd//;
       print "<a href=\"$logfilename\">Your log file </a></big></b>";        print "<a href=\"$logfilename\">Your log file </a></big></b>";
Line 105  use Image::Magick; Line 108  use Image::Magick;
       $texfile=~s/\/home\/httpd//;        $texfile=~s/\/home\/httpd//;
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";        print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
       print "\n";        print "\n";
     }
   
       } elsif ($body_log_file=~m/<inserted text>/) {        } elsif ($body_log_file=~m/<inserted text>/) {
   my $whereitbegins = index $body_log_file,'<inserted text>';    my $whereitbegins = index $body_log_file,'<inserted text>';
Line 150  use Image::Magick; Line 154  use Image::Magick;
 #  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 "<br /><br />";        if ($advans_role) {  
               print "<b><big>The link to ";    print "<br /><br />";
               $logfilename=~s/\/home\/httpd//;    print "<b><big>The link to ";
       print "<a href=\"$logfilename\">Your log file </a></big></b>";    $logfilename=~s/\/home\/httpd//;
       print "\n";    print "<a href=\"$logfilename\">Your log file </a></big></b>";
               #link tooriginal LaTeX file (included according Michael Hamlin desire)    print "\n";
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";    #link tooriginal LaTeX file (included according Michael Hamlin desire)
       my @tex_content_of_file = <$tex_temporary_file>;    my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";
       close $tex_temporary_file;     my @tex_content_of_file = <$tex_temporary_file>;
       my $body_tex_file = join(' ',@tex_content_of_file);    close $tex_temporary_file; 
       $texfile =~ s/\.tex$/aaaaa\.html/;    my $body_tex_file = join(' ',@tex_content_of_file);
       $tex_temporary_file = IO::File->new('>'.$texfile);     $texfile =~ s/\.tex$/aaaaa\.html/;
       print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n";    $tex_temporary_file = IO::File->new('>'.$texfile); 
       print "<br /><br />";    print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n";
       print "<b><big>The link to ";    print "<br /><br />";
       $texfile=~s/\/home\/httpd//;    print "<b><big>The link to ";
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";    $texfile=~s/\/home\/httpd//;
       print "\n";    print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
     print "\n";
         }
   }    }
       } else {        } else {
   #LaTeX successfully parsed tex file     #LaTeX successfully parsed tex file 
Removed from v.1.35  
changed lines
  Added in v.1.36

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