[BACK]Return to loncleanup.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/loncleanup.pm between versions 1.2 and 1.4

version 1.2, 2005/05/28 02:18:03 version 1.4, 2005/05/29 01:46:16
Line 244  sub htmlclean { Line 244  sub htmlclean {
   
 sub phaseone {  sub phaseone {
     my ($r,$fn,$uname,$udom)=@_;      my ($r,$fn,$uname,$udom)=@_;
       $r->print(&mt('Select actions to attempt:').
         '<br /><input type="checkbox" name="linefeed" checked="checked" /> '.
         &mt('Linefeeds, formfeeds, and carriage returns').
         '<br /><input type="checkbox" name="empty" checked="checked" /> '.
         &mt('Empty tags').
         '<br /><input type="checkbox" name="lower" checked="checked" /> '.
         &mt('Lower casing').
         '<br /><input type="checkbox" name="symbol"checked="checked" /> '.
         &mt('Symbol font').
         '<input type="hidden" name="phase" value="two" />'.
         '<p><input type="submit" value="'.&mt('Cleanup').'" /></p>');
 }  }
   
 sub phasetwo {  sub phasetwo {
     my ($r,$fn,$uname,$udom)=@_;      my ($r,$fn,$uname,$udom)=@_;
       open(IN,'/home/'.$uname.'/public_html/'.$fn);
       my $text='';
       while (my $line=<IN>) {
    $text.=$line;
       }
       close(IN);
       my $uri='/~'.$uname.$fn;
       my $result=&Apache::lonnet::ssi_body($uri,
    ('grade_target'=>'web',
     'return_only_error_and_warning_counts' => 1));
       my ($errorcount,$warningcount)=split(':',$result);
       $r->print(&mt('Original file').': '.
         $errorcount.' '.&mt('error(s)').', '.
         $warningcount.' '.&mt('warning(s)'));
       $text=&htmlclean($text,1,
                  ($env{'form.linefeed'} ne 'on'),
                  ($env{'form.empty'} ne 'on'),
                  ($env{'form.lower'} ne 'on'),
                  ($env{'form.symbol'} ne 'on'));
       my ($main,$ext)=($fn=~/^(.*)\.(\w+)/);
       my $newfn=$main.'_Auto_Cleaned_Up.'.$ext;
       open(OUT,'>/home/'.$uname.'/public_html'.$newfn);
       print OUT $text;
       close(OUT);
       my $newuri='/~'.$uname.$newfn;
       $result=&Apache::lonnet::ssi_body($newuri,
    ('grade_target'=>'web',
     'return_only_error_and_warning_counts' => 1));
       ($errorcount,$warningcount)=split(':',$result);
       $r->print('<br />'.&mt('Cleaned up file').': '.
         $errorcount.' '.&mt('error(s)').', '.
         $warningcount.' '.&mt('warning(s)').
                 '<br /><a href="'.$newuri.'" target="prev">'.
         &mt('Open (and edit) cleaned up file in new window').'</a>'.
                 '<br /><a href="/adm/diff?filename='.&Apache::lonnet::escape($uri).
         '&versionone=priv&filetwo='.
         &Apache::lonnet::escape($newuri).'" target="prev">'.
         &mt('Show diffs in new window').'</a><br />'.
         '<input type="hidden" name="phase" value="three" />'.
         '<input type="submit" name="accept" value="'.&mt('Accept Result').'" />'.
         '<input type="submit" name="reject" value="'.&mt('Reject Result').'" />'
         );
 }  }
   
 sub phasethree {  sub phasethree {
     my ($r,$fn,$uname,$udom)=@_;      my ($r,$fn,$uname,$udom)=@_;
       my $old='/home/'.$uname.'/public_html/'.$fn;
       my ($main,$ext)=($fn=~/^(.*)\.(\w+)/);
       my $newfn=$main.'_Auto_Cleaned_Up.'.$ext;
       my $new='/home/'.$uname.'/public_html'.$newfn;
       if ($env{'form.accept'}) {
    $r->print(&mt('Accepting changes'));
           move($new,$old);
       } else {
    $r->print(&mt('Rejeting changes'));
           unlink($new);
       }
 }  }
   
 # ---------------------------------------------------------------- Main Handler  # ---------------------------------------------------------------- Main Handler
 sub handler {  sub handler {
   
   my $r=shift;      my $r=shift;
       my $fn='';
   
 # Get query string for limited number of parameters  # Get query string for limited number of parameters
   
   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
   ['filename']);      ['filename']);
   
   if ($env{'form.filename'}) {      if ($env{'form.filename'}) {
       $fn=$env{'form.filename'};   $fn=$env{'form.filename'};
       $fn=~s/^http\:\/\/[^\/]+//;   $fn=~s/^http\:\/\/[^\/]+//;
   } else {      } else {
      $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.   $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
          ' unspecified filename for cleanup', $r->filename);          ' unspecified filename for cleanup', $r->filename); 
      return HTTP_NOT_FOUND;   return HTTP_NOT_FOUND;
   }      }
   
   unless ($fn) {       unless ($fn) { 
      $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.   $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
          ' trying to cleanup non-existing file', $r->filename);          ' trying to cleanup non-existing file', $r->filename); 
      return HTTP_NOT_FOUND;   return HTTP_NOT_FOUND;
   }       } 
   
 # ----------------------------------------------------------- Start page output  # ----------------------------------------------------------- Start page output
   my $uname;      my $uname;
   my $udom;      my $udom;
   
   ($uname,$udom)=  
     &Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));  
   unless (($uname) && ($udom)) {  
      $r->log_reason($uname.' at '.$udom.  
          ' trying to cleanup file '.$env{'form.filename'}.  
          ' ('.$fn.') - not authorized',   
          $r->filename);   
      return HTTP_NOT_ACCEPTABLE;  
   }  
   
   $fn=~s/\/\~(\w+)//;  
   
   &Apache::loncommon::content_type($r,'text/html');  
   $r->send_http_header;  
   
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');  
   
   $r->print(&Apache::loncommon::bodytag('Cleanup XML Document'));  
   
   if ($env{'form.phase'} eq 'three') {  
       &phasethree($r,$fn,$uname,$udom);  
   } elsif ($env{'form.phase'} eq 'two') {  
       &phasetwo($r,$fn,$uname,$udom);  
   } else {  
       &phaseone($r,$fn,$uname,$udom);  
   }  
   
   $r->print('</body></html>');      ($uname,$udom)=
   return OK;     &Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));
       unless (($uname) && ($udom)) {
    $r->log_reason($uname.' at '.$udom.
          ' trying to cleanup file '.$env{'form.filename'}.
          ' ('.$fn.') - not authorized', 
          $r->filename); 
    return HTTP_NOT_ACCEPTABLE;
       }
   
       $fn=~s/\/\~(\w+)//;
   
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
   
       $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
   
       $r->print(&Apache::loncommon::bodytag('Cleanup XML Document'));
       $r->print('<h2>'.$fn.'</h2>'.
                 '<form action="/adm/cleanup" method="post">'.
                 '<input type="hidden" name="filename" value="'.$env{'form.filename'}.'" />');
       unless ($fn=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) {
    $r->print(&mt('Cannot cleanup this filetype'));
       } else {
    if ($env{'form.phase'} eq 'three') {
       &phasethree($r,$fn,$uname,$udom);
    } elsif ($env{'form.phase'} eq 'two') {
       &phasetwo($r,$fn,$uname,$udom);
    } else {
       &phaseone($r,$fn,$uname,$udom);
    }
       }
       my $dir=$fn;
       $dir=~s/\/[^\/]+$/\//;
       $r->print('</form>'.
         '<br /><a href="/priv/'.$uname.'/'.$fn.'">'.&mt('Back to Source File').'</a>'.
                 '<br /><a href="/priv/'.$uname.'/'.$dir.'">'.&mt('Back to Source Directory').'</a>'.
         '</body></html>');
       return OK;  
 }  }
   
 1;  1;
Removed from v.1.2  
changed lines
  Added in v.1.4

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