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

Diff for /loncom/publisher/lonupload.pm between versions 1.3 and 1.6

version 1.3, 2001/05/25 16:36:36 version 1.6, 2001/06/24 18:40:58
Line 15 Line 15
 #  #
 # 03/31,04/03 Gerd Kortemeyer)  # 03/31,04/03 Gerd Kortemeyer)
 #  #
 # 04/05,04/09,05/25 Gerd Kortemeyer  # 04/05,04/09,05/25,06/23,06/24 Gerd Kortemeyer
   
 package Apache::lonupload;  package Apache::lonupload;
   
Line 45  sub upfile_store { Line 45  sub upfile_store {
   
   
 sub phaseone {  sub phaseone {
     my ($r,$fn,$uname,$udom)=@_;     my ($r,$fn,$uname,$udom)=@_;
      $ENV{'form.upfile.filename'}=~s/\\/\//g;
      $ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;
      if ($ENV{'form.upfile.filename'}) {
     $fn=~s/\/[^\/]+$//;      $fn=~s/\/[^\/]+$//;
     $fn=~s/([^\/])$/$1\//;      $fn=~s/([^\/])$/$1\//;
     $fn.=$ENV{'form.upfile.filename'};      $fn.=$ENV{'form.upfile.filename'};
     $fn=~s/^\///;      $fn=~s/^\///;
     $fn=~s/(\/)+/\//g;      $fn=~s/(\/)+/\//g;
   
     if (($fn) && ($fn!~/\/$/)) {      if (($fn) && ($fn!~/\/$/)) {
       $r->print(        $r->print(
  '<form action=/adm/upload method=post>'.   '<form action=/adm/upload method=post>'.
Line 64  sub phaseone { Line 66  sub phaseone {
   } else {    } else {
       $r->print('<font color=red>Illegal filename.</font>');        $r->print('<font color=red>Illegal filename.</font>');
   }    }
    } else {
        $r->print('<font color=red>No upload file specified.</font>');
    }
 }  }
   
 sub phasetwo {  sub phasetwo {
     my ($r,$fn,$uname,$udom)=@_;     my ($r,$fn,$uname,$udom)=@_;
      if ($fn=~/^\/priv\/$uname\//) { 
     my $tfn=$fn;      my $tfn=$fn;
     $tfn=~s/^\/(\~|priv)\/(\w+)//;      $tfn=~s/^\/(\~|priv)\/(\w+)//;
     my $target='/home/'.$uname.'/public_html'.$tfn;      my $target='/home/'.$uname.'/public_html'.$tfn;
Line 97  sub phasetwo { Line 103  sub phasetwo {
    '<font size=+1 color=red>Please pick a filename</font><p>');     '<font size=+1 color=red>Please pick a filename</font><p>');
        &phaseone($r,$fn,$uname,$udom);         &phaseone($r,$fn,$uname,$udom);
     }      }
     } else {
       $r->print(
      '<font size=+1 color=red>Please pick a filename</font><p>');
       &phaseone($r,$fn,$uname,$udom);
     }
 }  }
   
 sub handler {  sub handler {
Line 106  sub handler { Line 117  sub handler {
   my $uname;    my $uname;
   my $udom;    my $udom;
   
   unless (($uname,$udom)=    ($uname,$udom)=
     &Apache::loncacc::constructaccess(      &Apache::loncacc::constructaccess(
              $ENV{'form.filename'},$r->dir_config('lonDefDomain'))) {   $ENV{'form.filename'},$r->dir_config('lonDefDomain'));
     unless (($uname) && ($udom)) {
      $r->log_reason($uname.' at '.$udom.       $r->log_reason($uname.' at '.$udom.
          ' trying to publish file '.$ENV{'form.filename'}.           ' trying to publish file '.$ENV{'form.filename'}.
          ' - not authorized',            ' - not authorized', 
Removed from v.1.3  
changed lines
  Added in v.1.6

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