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

Diff for /loncom/interface/printout.pl between versions 1.42 and 1.77

version 1.42, 2004/02/03 00:02:15 version 1.77, 2005/05/02 21:57:44
Line 27 Line 27
 #  #
   
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
 use LONCAPA::loncgi();  use LONCAPA::loncgi;
 use File::Path;  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
   use Apache::lonhtmlcommon;
   use Apache::lonnet();
   use Apache::loncommon;
   use Apache::lonlocal;
   use Apache::lonmsg;
   use LONCAPA::Enrollment;
   
   use strict;
   
   #  Get the list of course coordinators authorized on this course:
   #Parameters:
   #    id   - Course id.
   #    dom  - Domain of course.
   #Returns:
   #   A (possibly empty) list of course coordinators.  Each course coordinator
   #   is given as user:domain
   #
   sub get_cc_list {
       my ($id, $dom) = @_;
       my @personel = &Apache::lonnet::getkeys('nohist_userroles', $dom, $id);
       my @coordinators;
       foreach my $person (@personel) {
    my @info = split(/:/, $person);
    my $role = $info[0];
    my $user = $info[1];
    my $udom = $info[2];
    if ($role eq 'cc') {
       my $isactive = &LONCAPA::Enrollment::check_user_status($udom, $user, $dom, $id, 'cc');
       if ($isactive eq 'ok') {
    push @coordinators, $user.':'.$udom;
       }
    }
       }
       return (@coordinators);
   }
   #
   #   Determine if a user is operating as a student for this course/domain.
   #
   #
   #Parameters:
   #   course  - The course id.
   #   cdom    - The course domain.
   #
   #Implicit:
   #    $env{request.role} contains the role under which this user operated this
   #                       this request.
   sub is_student {
       my ($course, $cdom) = @_;
       my $active_role = $env{'request.role'};
       my @role_fields = split(/\//, $active_role); 
   
   
       if ( ($role_fields[0] eq 'st.') && ($role_fields[1] eq $cdom) &&
    ($role_fields[2] eq $course)) {
    return 1;
       } else {
    return 0;
       }
   
   
   }
   
   #
   #   Debugging:  Dump the environment for debugging.
   #
   sub dumpenv  {
       print "<br>-------------------<br>";
       foreach my $key (sort (keys %env)) {
    print "<br>$key -> $env{$key}";
       }
       print "<br>-------------------<br>";
   }
   
   #
   #   This sub sends a message to the appropriate person if there was an error
   #   rendering the latex  At present, there's only one case to consider:
   #   a student printing inside a course results in messages to the course coordinator.
   #Parmaeters:
   #    identifier -  The unique identifier of this cgi request.
   #    logfile    -  The contents of the log file (included in the message).
   #    texfile    -  reference to an array containing the LaTeX input file
   #                  (included in the message).
   #Implicit inputs:
   #   From the environment:
   #       cgi.$identifier.user     - User doing the printing.
   #       cgi.$identifier.domain   - Domain the user is logged in on with printing.
   #       cgi.$identifier.courseid - Id of the course (if this is a course).
   #       cgi.$identifier.coursedom- Domain in which course was constituted.
   #       cgi.$identifier.resources - List of resource URL's for which the print
   #                                  was attempted.
   # 
   sub send_error_mail {
       my ($identifier,$logfile, $texfile) = @_;
       my $user     = $env{"cgi.$identifier.user"};
       my $domain   = $env{"cgi.$identifier.domain"};
       my $courseid = $env{"cgi.$identifier.courseid"};
       my $coursedom= $env{"cgi.$identifier.coursedom"};
       my $resources= $env{"cgi.$identifier.resources"};
   
      # &dumpenv();
   
   
   
       #  Only continue if there is a user, domain, courseid, course domain
       #  and resources:
   
       if(defined($user)       && defined($domain) && defined($courseid) &&
          defined($coursedom)  && defined($resources) ){
      
    my @cclist = &get_cc_list($courseid, $coursedom);
   
    #  Only mail if the conditions are ripe for it:
    #  The user is a student in the course:
    #
   
    if (&is_student( $courseid, $coursedom)) {
       # build the subject and message body:
       print "sending message to course coordinators.<br>";
       
       my $subject  = "Print failed for $user".'@'.$domain;
       my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
       $message    .= "  User was attempting to print: \n";
       $message    .= "       $resources\n";
       $message    .= "--------------------LaTeX logfile:------------ \n";
       $message    .= $logfile;
       $message    .= "-----------------LaTeX source file: ------------\n";
       
       foreach my $line (@$texfile) {
    $message .= "$line\n";
       }
       foreach my $dest (@cclist) {
    my @destinfo = split(/:/,$dest);
    my $user = $destinfo[0];
    my $dom  = $destinfo[1];
   
    &Apache::lonmsg::user_normal_msg($user, $dom,
    $subject, $message);
   
    # No point in looking at the return status as there's no good
    # error action I can think of right now (log maybe?).
       }
    }
       }
   }
   
   $|=1;
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
     print <<END;      print <<END;
 Content-type: text/html  Content-type: text/html
Line 45  Your cookie information is incorrect. Line 190  Your cookie information is incorrect.
 END  END
     return;      return;
 }  }
    &Apache::lonlocal::get_language_handle();
  print "Content-type: text/html\n\n";   &Apache::loncommon::content_type(undef,'text/html');
  print "<body bgcolor=\"#FFFFFF\">\n";   my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');
    print $bodytag;
   
   my $identifier = $ENV{'QUERY_STRING'};    my $identifier = $ENV{'QUERY_STRING'};
   my $texfile = $ENV{'cgi.'.$identifier.'.file'};    my $texfile = $env{'cgi.'.$identifier.'.file'};
   my $laystyle = $ENV{'cgi.'.$identifier.'.layout'};    my $laystyle = $env{'cgi.'.$identifier.'.layout'};
   my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'};    my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};
   my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'};    my $paper = $env{'cgi.'.$identifier.'.paper'};
   my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};    my $selectionmade = $env{'cgi.'.$identifier.'.selection'};
   my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};    my $tableofcontents = $env{'cgi.'.$identifier.'tableofcontents'};
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};    my $tableofindex = $env{'cgi.'.$identifier.'tableofindex'};
     my $advanced_role = $env{'cgi.'.$identifier.'role'};
     my $number_of_files = $env{'cgi.'.$identifier.'numberoffiles'}+1;
     my $student_names = $env{'cgi.'.$identifier.'studentnames'};
     my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'backref'});
   
   
     my $adv = $env{'request.role.adv'};
     
     my @names_pack=();
     if ($student_names=~/_END_/) {  
         @names_pack=split(/_ENDPERSON_/,$student_names);
     }
   
   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;
   $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;    $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
   #do we have figures?    #do we have figures?
     # print "Figure file: $figfile\n";
   if (-e $figfile) {    if (-e $figfile) {
         # print "$figfile exists\n";
       my %done_conversion;        my %done_conversion;
       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 fig file $figfile for reading: $!\n";
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;          close $temporary_file;  
       my $noteps;        my $noteps;
       foreach $not_eps (@content_of_file) {        my %prog_state;
         if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80');  }
         foreach my $not_eps (@content_of_file) {
     chomp($not_eps);
   if ($not_eps ne '') {    if ($not_eps ne '') {
         # print "Converting $not_eps"; # Debugging.
                 my $status_statement='EPS picture for '.$not_eps;
         # print "$status_statement\n";
       $not_eps=~s|\/\.\/|\/|g;        $not_eps=~s|\/\.\/|\/|g;
       my $eps_f = $not_eps;        my $eps_f = $not_eps;
       $eps_f =~ s/\.[^.]*$/\.eps/i;        $eps_f =~ s/\.[^.]*$/\.eps/i;
       if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {        if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
                   $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;                    $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
   $eps_f = '/home/httpd/prtspool/'.$eps_f;    $eps_f = '/home/httpd/prtspool/'.$eps_f;
       } else {        } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) {
   $eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;    $eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/;
   $eps_f = '/home/httpd/prtspool/'.$1;    $eps_f = '/home/httpd/prtspool/'.$1;
         } elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) {
     $eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
     $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
       }        }
         $eps_f  =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX.
       my $path=$eps_f;        my $path=$eps_f;
       $path=~s/\/([^\/]+)\.eps$//;        $path =~ s/\/([^\/]+)\.eps$//;
         # print "Final file path: $path "; # Debugging
       File::Path::mkpath($path,0,0777);        File::Path::mkpath($path,0,0777);
       my $image = Image::Magick->new;  
       $not_eps =~ s/^\s+//;        $not_eps =~ s/^\s+//;
       $not_eps =~ s/\s+$//;        $not_eps =~ s/\s+$//;
       if ( exists($done_conversion{$not_eps})) {        $not_eps =~ s/ /\\ /g;
   next;        if ( exists($done_conversion{$not_eps})) { next; }
         if ($adv) {
     my $prettyname=$not_eps;
     $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|;
     $prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|;
     &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname);
       }        }
       $done_conversion{$not_eps}=1;        $done_conversion{$not_eps}=1;
       $status = $image->Read($not_eps);        # print "Converting $not_eps -> $eps_f"; # Debugging
       if ($status) {print "  $status  ";}        system("convert $not_eps $eps_f");
       $image->Set(page => '+100+200');   
       $status = $image->Write($eps_f);      
       if ($status) {print "  $status  ";}  
               #check is eps exist in prtspool                #check is eps exist in prtspool
               if(not -e $eps_f) {                if(not -e $eps_f) {
   for (my $i=0;$i<10000;$i++) {    for (my $i=0;$i<10000;$i++) {
Line 107  END Line 279  END
       }          }  
   }    }
       }        }
         if ($adv) { 
     &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); 
         }
         unlink($figfile);
     }
     #print "$texfile\n"; #name of the tex file for debugging only   
     my @texfile=($texfile);
     if ($number_of_files>1) {
         @texfile=();
         for (my $i=1;$i<=$number_of_files;$i++) {
     my $new_texfile=$texfile;
     $new_texfile=~s/\.tex/_$i\.tex/;
     push @texfile,$new_texfile;
         } 
   }    }
   #print "$texfile\n"; #name of the tex file for debugging only  
   my $ind=-1;
   my %prog_state;
   print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />";
   if ($adv) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); }
   print "<br />";
   foreach $texfile (@texfile) {
     my $status_statement='';
     my $link_text='download PDF';
     $ind++;
     my @stud_info=split(/_END_/,$names_pack[$ind]);
     my @tempo_array=split(/:/,$stud_info[0]);
     my $name;
     if ($tempo_array[3]) {
         $name=$tempo_array[3];
     } else {
         $name=$tempo_array[0].'@'.$tempo_array[1];
     }
     $link_text='<b>'.$name.'</b>';
     $status_statement.=$name;
     if ($#stud_info>0) {
         @tempo_array=split(/:/,$stud_info[-1]);
         if ($tempo_array[3]) {
     $name=$tempo_array[3];
         } else {
     $name=$tempo_array[0].'@'.$tempo_array[1];
         }
         $link_text.=' - <b>'.$name.'</b>';
         $status_statement.=' -  '.$name;
     } 
     if ($adv) { &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Creating PDF for '.$status_statement); }
   if (-e $texfile) {    if (-e $texfile) {
       $texfile =~ m/^(.*)\/([^\/]+)$/;         $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;        my $name_file = $2;
       my $path_file = $1.'/';        my $path_file = $1.'/';
       chdir $path_file;        chdir $path_file;
       system("latex $name_file 1>/dev/null 2>/dev/null");        my $dvi_file= $name_file; $dvi_file =~ s/\.tex/\.dvi/;
         &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
    "for $status_statement now LaTeXing file",
    \%prog_state,$dvi_file);
       if ($tableofcontents eq 'yes') {        if ($tableofcontents eq 'yes') {
   system("latex $name_file 1>/dev/null 2>/dev/null");        &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
    "for $status_statement now LaTeXing file for table of contents",
    \%prog_state,$dvi_file);
       } #to create table of contents        } #to create table of contents
       my $idxname=$name_file;        my $idxname=$name_file;
       $idxname=~s/\.tex$/\.idx/;        $idxname=~s/\.tex$/\.idx/;
       if ($tableofindex eq 'yes') {        if ($tableofindex eq 'yes') {
   system("makeindex $idxname");    &busy_wait_command("makeindex $idxname",
   system("latex $name_file 1>/dev/null 2>/dev/null");       "making index file",
        \%prog_state,$idxname);
     &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
        "for $status_statement now LaTeXing file for index section",
        \%prog_state,$dvi_file);
       } #to create index        } #to create index
       #Do we have a latex error in the log file?        #Do we have a latex error in the log file?
       my $logfilename = $texfile;        my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/;
       $logfilename =~ s/\.tex$/\.log/;        my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename for reading: $!\n";
       my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";  
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;         close $temporary_file; 
       my $body_log_file = join(' ',@content_of_file);        my $body_log_file = join(' ',@content_of_file);
Line 141  END Line 365  END
   my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';    my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
   my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';    my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
   if ($whereitbegins!=-1 and $whereitends!=-1) {    if ($whereitbegins!=-1 and $whereitends!=-1) {
       print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";         print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";
   }    }
   print "Here are the error messages in the LaTeX log file</br><br />";    print "Here are the error messages in the LaTeX log file</br><br /><pre>";
   my $sygnal = 0;    my $sygnal = 0;
   for (my $i=0;$i<=$#content_of_file;$i++) {    for (my $i=0;$i<=$#content_of_file;$i++) {
       if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {        if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
Line 153  END Line 377  END
   $sygnal = 0;    $sygnal = 0;
       }         } 
       if ($sygnal) {        if ($sygnal) {
   print "$content_of_file[$i]<br />";    print "$content_of_file[$i]";
       }          }  
   }    }
           if ($advans_role) {      print "</pre>\n";
             if ($advanced_role) {  
         print "<br> Advanced role <br>";
               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>";
       print "\n";        print "\n";
               #link tooriginal LaTeX file (included according Michael Hamlin desire)                #link tooriginal LaTeX file (included according Michael Hamlin desire)
       my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";        my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";
       my @tex_content_of_file = <$tex_temporary_file>;        my @tex_content_of_file = <$tex_temporary_file>;
       close $tex_temporary_file;         close $tex_temporary_file; 
       my $body_tex_file = join(' ',@tex_content_of_file);        my $body_tex_file = join(' ',@tex_content_of_file);
Line 174  END Line 400  END
       $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";
     } else { # Student role...
         #  at this point:
         #    $body_log_file - contains the log file.
                 #    $name_file     - is the name of the LaTeX file.
                 #    $identifier    - is the unique LaTeX identifier.l
   
         my $tex_handle = IO::File->new($name_file);
         my @tex_contents = <$tex_handle>;
         &send_error_mail($identifier, $body_log_file, \@tex_contents);
   }    }
   
       } 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>';
   print "You are running LaTeX in the <b>batch mode</b>.";    print "You are running LaTeX in <b>batch mode</b>.";
   while ($whereitbegins != -1) {    while ($whereitbegins != -1) {
       my $tempobegin=$whereitbegins;        my $tempobegin=$whereitbegins;
       $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;        $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
Line 190  END Line 425  END
   $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 $comma = "dvips -Ppdf -G0 -o $new_name_file";    my $papera=$paper;
   system("$comma $name_file 1>/dev/null 2>/dev/null");    if ($papera eq 'letter') {$papera='';}
     if ($papera ne '') {$papera='-t'.$papera;}
     my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
     &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
        "for $status_statement now Converting to PS",
        \%prog_state,$new_name_file);
   if (-e $new_name_file) {    if (-e $new_name_file) {
       print "<h1>PDF output file (see link below)</h1>\n";        print "<h1>PDF output file (see link below)</h1>\n";
       $new_name_file =~ m/^(.*)\./;        $new_name_file =~ m/^(.*)\./;
       my $tempo_file = $1.'temporar.ps';        my $ps_file = my $tempo_file = $1.'temporar.ps';
       my $name_file = $1.'.pdf';        my $pdf_file = $1.'.pdf';
       if ($laystyle eq 'album' and $numberofcolumns eq '2') {        if ($laystyle eq 'album' and $numberofcolumns eq '2') {
   $comma = "psnup -2 -s1.0 $new_name_file";    $comma = "psnup -2 -s1.0 $new_name_file";
   system("$comma $tempo_file 1>/dev/null 2>/dev/null");     &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
   system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");       "for $status_statement now Modifying PS layout",
        \%prog_state,$tempo_file); 
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   $comma = 'pstops -pletter "2:0+1(0.48w,0)"';    my $papera=$paper;
   system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");                    if ($papera eq 'letter') {$papera='';}
   system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");    if ($papera ne '') {$papera='-p'.$papera;}
     $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
     &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
        "for $status_statement now Modifying PS layout",
        \%prog_state,$tempo_file); 
   
       } else {        } else {
   system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");    $ps_file=$new_name_file;
       }            }    
         &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
    "for $status_statement now Converting PS to PDF",
    \%prog_state, $pdf_file);
   
       my $texlog = $texfile;        my $texlog = $texfile;
       my $texaux = $texfile;        my $texaux = $texfile;
       my $texdvi = $texfile;        my $texdvi = $texfile;
Line 219  END Line 469  END
       my @garb = ($texaux,$texdvi,$texps);        my @garb = ($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/$pdf_file\">Your PDF document</a>";
       if ($advans_role) {      }
   print "<br /><br />";    if ($advanced_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 tex file $texfile 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 
   $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 $comma = "dvips -Ppdf -G0 -o $new_name_file";    my $papera=$paper;
   system("$comma $name_file 1>/dev/null 2>/dev/null");    if ($papera eq 'letter') {$papera='';}
     if ($papera ne '') {$papera='-t'.$papera;}
     my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
     &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
        "for $status_statement now Converting to PS",
        \%prog_state,$new_name_file);
   if (-e $new_name_file) {    if (-e $new_name_file) {
       print "<h1>Successfully created PDF output file (see link below)</h1>\n";        print "<br />";
       $new_name_file =~ m/^(.*)\./;        $new_name_file =~ m/^(.*)\./;
       my $tempo_file = $1.'temporar.ps';        my $ps_file = my $tempo_file = $1.'temporar.ps';
       my $name_file = $1.'.pdf';        my $pdf_file = $1.'.pdf';
       if ($laystyle eq 'album' and $numberofcolumns eq '2') {        if ($laystyle eq 'album' and $numberofcolumns eq '2') {
   $comma = "psnup -2 -s1.0 $new_name_file";    $comma = "psnup -2 -s1.0 $new_name_file";
   system("$comma $tempo_file 1>/dev/null 2>/dev/null");     &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
   system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");       "for $status_statement now Modifying PS layout",
        \%prog_state,$tempo_file);
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   $comma = 'pstops -pletter "2:0+1(0.48w,0)"';    $papera=~s/t/p/;
   system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");    $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
   system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");    &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
        "for $status_statement now Modifying PS layout",
        \%prog_state,$tempo_file); 
       } else {        } else {
   system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");    $ps_file=$new_name_file;
       }            }
         my $addtoPSfile={'legal'=>'<< /PageSize [612 1008] >> setpagedevice',
                                  'tabloid'=>'<< /PageSize [792 1224] >> setpagedevice',
                                  'executive'=>,'<< /PageSize [540 720] >> setpagedevice',
                                  'a2'=>'<< /PageSize [1195.02 1690.09] >> setpagedevice',
                                  'a3'=>'<< /PageSize [842 1195.02] >> setpagedevice',
                                  'a4'=>'<< /PageSize [595.2 842] >> setpagedevice',
                                  'a5'=>'<< /PageSize [421.1 595.2] >> setpagedevice',
                                  'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice',
      };
         if ($paper ne 'letter') {
     open(FFH,'<',$ps_file) || die "Couldn't open ps file $ps_file for reading: $!\n";
     my $new_ps_file='new'.$ps_file;
     open(FFHS,'>',$new_ps_file) || die "Couldn't open new ps file $new_ps_file for reading: $!\n";
     print FFHS $addtoPSfile->{$paper}."\n";
     while (<FFH>) {
         print FFHS $_;
     }
     close(FFH);
     close(FFHS);
     $ps_file=$new_ps_file;  
         }
         &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
    "for $status_statement now Converting PS to PDF",
    \%prog_state,$pdf_file);
       
       my $texlog = $texfile;        my $texlog = $texfile;
       my $texaux = $texfile;        my $texaux = $texfile;
       my $texdvi = $texfile;        my $texdvi = $texfile;
Line 275  END Line 558  END
       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/$pdf_file\">$link_text - click here to download pdf</a>";
       print "\n";        print "\n";
   }    }
       }        }  
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
   }    }
   }
   print "<br />";
   if ($number_of_files>1) {
       my $zipfile=$texfile[0];
       $zipfile=~s/\.tex/\.zip/;
       my $statement="zip $zipfile";
       foreach my $file (@texfile) {
    $file=~s/\.tex/.\pdf/;
    $statement.=' '.$file; 
       }
       print("<pre>Zip Output:\n");
       system($statement);
       print("</pre>");
       $zipfile=~s/\/home\/httpd//;
       print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";
   }
   if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
   
   my $done;
   sub REAPER {
       $done=1;
   }
   
     sub busy_wait_command {
       my ($command,$message,$progress_win,$output_file)=@_;
       
       $SIG{CHLD} = \&REAPER;
       $done=0;
       my $pid=open(CMD,"$command |");
       if ($adv) {
    &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
       }
       while(!$done) {
    sleep 1;
    my $extra_msg;
    if ($output_file) {
       my $size=(stat($output_file))[7];
       $extra_msg=", $size bytes generated";
    }
    if ($adv) {
       &Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,
     $message.$extra_msg);
    }
       }
       $SIG{CHLD}='IGNORE';
       close(CMD);
   }
   
   
   
Removed from v.1.42  
changed lines
  Added in v.1.77

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.