version 1.3, 2001/06/23 20:09:06
|
version 1.8, 2002/01/21 17:13:49
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Handler to rename files, etc, in construction space |
# Handler to rename files, etc, in construction space |
# |
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
|
# |
# (Handler to retrieve an old version of a file |
# (Handler to retrieve an old version of a file |
# |
# |
# (Publication Handler |
# (Publication Handler |
Line 13
|
Line 38
|
# 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 25 use File::Copy;
|
Line 50 use File::Copy;
|
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
use Apache::loncacc; |
|
|
|
sub exists { |
|
my ($uname,$udom,$dir,$newfile)=@_; |
|
my $published='/home/httpd/html/res/'.$udom.'/'.$uname.'/'.$dir.'/'. |
|
$ENV{'form.newfilename'}; |
|
my $construct='/home/'.$uname.'/public_html/'.$dir.'/'. |
|
$ENV{'form.newfilename'}; |
|
my $result; |
|
if (-e $published) { |
|
$result.='<p><font color=red>Warning: target file exists, and has been published!</font></p>'; |
|
} elsif ( -e $construct ) { |
|
$result.='<p><font color=red>Warning: target file exists!</font></p>'; |
|
} |
|
return $result; |
|
} |
|
|
|
sub checksuffix { |
|
my ($old,$new) = @_; |
|
my $result; |
|
my $oldsuffix; |
|
my $newsuffix; |
|
if ($new=~m:(.*/*)([^/]+)\.(\w+)$:) { $newsuffix=$3; } |
|
if ($old=~m:(.*)/+([^/]+)\.(\w+)$:) { $oldsuffix=$3; } |
|
if ($oldsuffix ne $newsuffix) { |
|
$result.='<p><font color=red>Warning: change of MIME type!</font></p>'; |
|
} |
|
return $result; |
|
} |
|
|
sub phaseone { |
sub phaseone { |
my ($r,$fn,$uname,$udom)=@_; |
my ($r,$fn,$uname,$udom)=@_; |
|
|
$fn=~/(.*)\/([^\/]+)\.(\w+)$/; |
$fn=~m:(.*)/([^/]+)\.(\w+)$:; |
my $dir=$1; |
my $dir=$1; |
my $main=$2; |
my $main=$2; |
my $suffix=$3; |
my $suffix=$3; |
Line 39 sub phaseone {
|
Line 92 sub phaseone {
|
'<input type=hidden name=filename value="/~'.$uname.$fn.'">'. |
'<input type=hidden name=filename value="/~'.$uname.$fn.'">'. |
'<input type=hidden name=phase value=two>'. |
'<input type=hidden name=phase value=two>'. |
'<input type=hidden name=action value='.$ENV{'form.action'}.'>'); |
'<input type=hidden name=action value='.$ENV{'form.action'}.'>'); |
|
|
if ($ENV{'form.action'} eq 'rename') { |
if ($ENV{'form.action'} eq 'rename') { |
if (-e $conspace) { |
if (-e $conspace) { |
if ($ENV{'form.newfilename'}) { |
if ($ENV{'form.newfilename'}) { |
$ENV{'form.newfilename'}=~/(.*)\/([^\/]+)\.(\w+)$/; |
$r->print(&checksuffix($fn,$ENV{'form.newfilename'})); |
if ($3 ne $suffix) { |
$r->print(&exists($uname,$udom,$dir,$ENV{'form.newfilename'})); |
$r->print( |
$r->print('<input type=hidden name=newfilename value="'. |
'<p><font color=red>Warning: change of MIME type!</font>'); |
$ENV{'form.newfilename'}. |
} |
'"><p>Rename <tt>'.$fn.'</tt> to <tt>'. |
if (-e |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?</p>'); |
'/home/httpd/'.$uname.'/'.$dir.'/'.$ENV{'form.newfilename'}) { |
|
$r->print( |
|
'<p><font color=red>Warning: target file exists!</font>'); |
|
} |
|
$r->print('<p>Rename <tt>'.$fn.'</tt> to <tt>'. |
|
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
|
} else { |
} else { |
$r->print('<p>No new filename specified.</form>'); |
$r->print('<p>No new filename specified.</p></form>'); |
return; |
return; |
} |
} |
} else { |
} else { |
$r->print('<p>No such file.</form>'); |
$r->print('<p>No such file.</p></form>'); |
return; |
return; |
} |
} |
} elsif ($ENV{'form.action'} eq 'delete') { |
} elsif ($ENV{'form.action'} eq 'delete') { |
if (-e $conspace) { |
if (-e $conspace) { |
$r->print('<p>Delete <tt>'.$fn.'</tt>?'); |
$r->print('<p>Delete <tt>'.$fn.'</tt>?</p>'); |
} else { |
} else { |
$r->print('<p>No such file.</form>'); |
$r->print('<p>No such file.</p></form>'); |
return; |
return; |
} |
} |
} elsif ($ENV{'form.action'} eq 'copy') { |
} elsif ($ENV{'form.action'} eq 'copy') { |
if (-e $conspace) { |
if (-e $conspace) { |
if ($ENV{'form.newfilename'}) { |
if ($ENV{'form.newfilename'}) { |
$ENV{'form.newfilename'}=~/(.*)\/([^\/]+)\.(\w+)$/; |
$r->print(&checksuffix($fn,$ENV{'form.newfilename'})); |
if ($3 ne $suffix) { |
$r->print(&exists($uname,$udom,$dir,$ENV{'form.newfilename'})); |
$r->print( |
$r->print('<input type=hidden name=newfilename value="'. |
'<p><font color=red>Warning: change of MIME type!</font>'); |
$ENV{'form.newfilename'}. |
} |
'"><p>Copy <tt>'.$fn.'</tt> to <tt>'. |
if (-e |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?</p>'); |
'/home/httpd/'.$uname.'/'.$dir.'/'.$ENV{'form.newfilename'}) { |
|
$r->print( |
|
'<p><font color=red>Warning: target file exists!</font>'); |
|
} |
|
$r->print('<p>Copy <tt>'.$fn.'</tt> to <tt>'. |
|
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
|
} else { |
} else { |
$r->print('<p>No new filename specified.</form>'); |
$r->print('<p>No new filename specified.</p></form>'); |
return; |
return; |
} |
} |
} else { |
} else { |
$r->print('<p>No such file.</form>'); |
$r->print('<p>No such file.</p></form>'); |
return; |
return; |
} |
} |
} elsif ($ENV{'form.action'} eq 'newdir') { |
} elsif ($ENV{'form.action'} eq 'newdir') { |
if (-e $conspace) { |
my $newdir='/home/'.$uname.'/public_html/'. |
$r->print('<p>Directory exists.</form>'); |
$fn.$ENV{'form.newfilename'}; |
|
if (-e $newdir) { |
|
$r->print('<p>Directory exists.</p></form>'); |
return; |
return; |
} |
} |
|
$r->print('<input type=hidden name=newfilename value="'. |
|
$ENV{'form.newfilename'}. |
|
'"><p>Make new directory <tt>'. |
|
$fn.$ENV{'form.newfilename'}.'</tt>?</p>'); |
|
|
} |
} |
$r->print('<p><input type=submit value=Continue></form>'); |
$r->print('<p><input type=submit value=Continue></p></form>'); |
|
$r->print('<form action="/priv/'.$uname.$fn. |
|
'" method="GET"><p><input type=submit value=Cancel></p></form>'); |
|
|
} |
} |
|
|
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 240 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 277 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); |
} |
} |