version 1.3, 2001/06/23 20:09:06
|
version 1.6, 2001/06/24 18:21:09
|
Line 13
|
Line 13
|
# 03/23 Guy Albertelli |
# 03/23 Guy Albertelli |
# 03/24,03/29 Gerd Kortemeyer) |
# 03/24,03/29 Gerd Kortemeyer) |
# |
# |
# 03/31,04/03,05/02,05/09,06/23 Gerd Kortemeyer) |
# 03/31,04/03,05/02,05/09,06/23,06/24 Gerd Kortemeyer) |
# |
# |
# 06/23 Gerd Kortemeyer |
# 06/23 Gerd Kortemeyer |
|
|
Line 52 sub phaseone {
|
Line 52 sub phaseone {
|
$r->print( |
$r->print( |
'<p><font color=red>Warning: target file exists!</font>'); |
'<p><font color=red>Warning: target file exists!</font>'); |
} |
} |
$r->print('<p>Rename <tt>'.$fn.'</tt> to <tt>'. |
$r->print('<input type=hidden name=newfilename value="'. |
|
$ENV{'form.newfilename'}. |
|
'"><p>Rename <tt>'.$fn.'</tt> to <tt>'. |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
} else { |
} else { |
$r->print('<p>No new filename specified.</form>'); |
$r->print('<p>No new filename specified.</form>'); |
Line 82 sub phaseone {
|
Line 84 sub phaseone {
|
$r->print( |
$r->print( |
'<p><font color=red>Warning: target file exists!</font>'); |
'<p><font color=red>Warning: target file exists!</font>'); |
} |
} |
$r->print('<p>Copy <tt>'.$fn.'</tt> to <tt>'. |
$r->print('<input type=hidden name=newfilename value="'. |
|
$ENV{'form.newfilename'}. |
|
'"><p>Copy <tt>'.$fn.'</tt> to <tt>'. |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
} else { |
} else { |
$r->print('<p>No new filename specified.</form>'); |
$r->print('<p>No new filename specified.</form>'); |
Line 93 sub phaseone {
|
Line 97 sub phaseone {
|
return; |
return; |
} |
} |
} elsif ($ENV{'form.action'} eq 'newdir') { |
} elsif ($ENV{'form.action'} eq 'newdir') { |
if (-e $conspace) { |
my $newdir='/home/'.$uname.'/public_html/'. |
|
$fn.$ENV{'form.newfilename'}; |
|
if (-e $newdir) { |
$r->print('<p>Directory exists.</form>'); |
$r->print('<p>Directory exists.</form>'); |
return; |
return; |
} |
} |
|
$r->print('<input type=hidden name=newfilename value="'. |
|
$ENV{'form.newfilename'}. |
|
'"><p>Make new directory <tt>'. |
|
$fn.$ENV{'form.newfilename'}.'</tt>?'); |
|
|
} |
} |
$r->print('<p><input type=submit value=Continue></form>'); |
$r->print('<p><input type=submit value=Continue></form>'); |
Line 104 sub phaseone {
|
Line 114 sub phaseone {
|
|
|
sub phasetwo { |
sub phasetwo { |
my ($r,$fn,$uname,$udom)=@_; |
my ($r,$fn,$uname,$udom)=@_; |
|
|
|
$fn=~/(.*)\/([^\/]+)\.(\w+)$/; |
|
my $dir=$1; |
|
my $main=$2; |
|
my $suffix=$3; |
|
|
|
my $conspace='/home/'.$uname.'/public_html'.$fn; |
|
|
if ($ENV{'form.action'} eq 'rename') { |
if ($ENV{'form.action'} eq 'rename') { |
|
if (-e $conspace) { |
|
if ($ENV{'form.newfilename'}) { |
|
unless (rename('/home/'.$uname.'/public_html'.$fn, |
|
'/home/'.$uname.'/public_html'.$dir.'/'.$ENV{'form.newfilename'})) { |
|
$r->print('<font color=red>Error: '.$!.'</font>'); |
|
} |
|
} |
|
} else { |
|
$r->print('<p>No such file.</form>'); |
|
return; |
|
} |
} elsif ($ENV{'form.action'} eq 'delete') { |
} elsif ($ENV{'form.action'} eq 'delete') { |
|
if (-e $conspace) { |
|
unless (unlink('/home/'.$uname.'/public_html'.$fn)) { |
|
$r->print('<font color=red>Error: '.$!.'</font>'); |
|
} |
|
} else { |
|
$r->print('<p>No such file.</form>'); |
|
return; |
|
} |
} elsif ($ENV{'form.action'} eq 'copy') { |
} elsif ($ENV{'form.action'} eq 'copy') { |
|
if (-e $conspace) { |
|
if ($ENV{'form.newfilename'}) { |
|
unless (copy('/home/'.$uname.'/public_html'.$fn, |
|
'/home/'.$uname.'/public_html'.$dir.'/'.$ENV{'form.newfilename'})) { |
|
$r->print('<font color=red>Error: '.$!.'</font>'); |
|
} |
|
} else { |
|
$r->print('<p>No new filename specified.</form>'); |
|
return; |
|
} |
|
} else { |
|
$r->print('<p>No such file.</form>'); |
|
return; |
|
} |
} elsif ($ENV{'form.action'} eq 'newdir') { |
} elsif ($ENV{'form.action'} eq 'newdir') { |
} |
my $newdir='/home/'.$uname.'/public_html/'. |
|
$fn.$ENV{'form.newfilename'}; |
|
unless (mkdir($newdir,0770)) { |
|
$r->print('<font color=red>Error: '.$!.'</font>'); |
|
} |
|
$r->print('<h3><a href="/priv/'.$uname.$fn.'/">Done</a></h3>'); |
|
return; |
|
} |
|
$r->print('<h3><a href="/priv/'.$uname.$dir.'/">Done</a></h3>'); |
} |
} |
|
|
sub handler { |
sub handler { |
Line 140 sub handler {
|
Line 199 sub handler {
|
&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain')); |
&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain')); |
unless (($uname) && ($udom)) { |
unless (($uname) && ($udom)) { |
$r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
' trying to publish file '.$ENV{'form.filename'}. |
' trying to manipulate file '.$ENV{'form.filename'}. |
' ('.$fn.') - not authorized', |
' ('.$fn.') - not authorized', |
$r->filename); |
$r->filename); |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
Line 177 sub handler {
|
Line 236 sub handler {
|
return OK; |
return OK; |
} |
} |
if ($ENV{'form.phase'} eq 'two') { |
if ($ENV{'form.phase'} eq 'two') { |
# &phasetwo($r,$fn,$uname,$udom); |
&phasetwo($r,$fn,$uname,$udom); |
} else { |
} else { |
&phaseone($r,$fn,$uname,$udom); |
&phaseone($r,$fn,$uname,$udom); |
} |
} |