version 1.4, 2001/06/24 01:40:14
|
version 1.10, 2002/05/27 03:18:46
|
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 |
# |
# |
|
# This file responds to the various buttons and events |
|
# in the top frame of the construction space directory. |
|
# Each event is processed in two phases. The first phase |
|
# presents a page that describes the proposed action to the user |
|
# and requests confirmation. The second phase commits the action |
|
# and displays a page showing the results of the action. |
|
# |
|
|
|
# |
|
# $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 47
|
# 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 |
|
# 05/07/02 Ron Fox: |
|
# - Added Debug log output so that I can trace what the heck this |
|
# undocumented thingy does. |
|
|
package Apache::loncfile; |
package Apache::loncfile; |
|
|
Line 24 use Apache::File;
|
Line 61 use Apache::File;
|
use File::Copy; |
use File::Copy; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
use Apache::loncacc; |
|
use Apache::Log (); |
|
|
|
my $DEBUG=0; |
|
my $r; # Needs to be global for some stuff RF. |
|
# |
|
# Debug |
|
# If debugging is enabled puts out a debuggin message determined by the |
|
# caller. The debug message goes to the Apache error log file. |
|
# |
|
# Parameters: |
|
# r - Apache request [in] |
|
# message - String [in] |
|
# Returns: |
|
# nothing. |
|
sub Debug { |
|
my $r = shift; |
|
my $log = $r->log; |
|
my $message = shift; |
|
if ($DEBUG) { |
|
$log->debug($message); |
|
} |
|
} |
|
# |
|
# URLToPath |
|
# Convert a URL to a file system path. |
|
# |
|
# In order to manipulate the construction space objects, it's necessary |
|
# to access url identified objects a filespace objects. This function |
|
# translates a construction space URL to a file system path. |
|
# Parameters: |
|
# Url - string [in] The url to convert. |
|
# Returns: |
|
# The corresponing file system path. |
|
sub URLToPath |
|
{ |
|
my $Url = shift; |
|
&Debug($r, "UrlToPath got: $Url"); |
|
$Url=~ s/^http\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/; |
|
$Url=~ s/^http\:\/\/[^\/]+//; |
|
&Debug($r, "Returning $Url \n"); |
|
return $Url; |
|
} |
|
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 145 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( |
|
'<p><font color=red>Warning: change of MIME type!</font>'); |
|
} |
|
if (-e |
|
'/home/httpd/'.$uname.'/'.$dir.'/'.$ENV{'form.newfilename'}) { |
|
$r->print( |
|
'<p><font color=red>Warning: target file exists!</font>'); |
|
} |
|
$r->print('<input type=hidden name=newfilename value="'. |
$r->print('<input type=hidden name=newfilename value="'. |
$ENV{'form.newfilename'}. |
$ENV{'form.newfilename'}. |
'"><p>Rename <tt>'.$fn.'</tt> to <tt>'. |
'"><p>Rename <tt>'.$fn.'</tt> to <tt>'. |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?</p>'); |
} 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( |
|
'<p><font color=red>Warning: change of MIME type!</font>'); |
|
} |
|
if (-e |
|
'/home/httpd/'.$uname.'/'.$dir.'/'.$ENV{'form.newfilename'}) { |
|
$r->print( |
|
'<p><font color=red>Warning: target file exists!</font>'); |
|
} |
|
$r->print('<input type=hidden name=newfilename value="'. |
$r->print('<input type=hidden name=newfilename value="'. |
$ENV{'form.newfilename'}. |
$ENV{'form.newfilename'}. |
'"><p>Copy <tt>'.$fn.'</tt> to <tt>'. |
'"><p>Copy <tt>'.$fn.'</tt> to <tt>'. |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?'); |
$dir.'/'.$ENV{'form.newfilename'}.'</tt>?</p>'); |
} 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') { |
my $newdir='/home/'.$uname.'/public_html/'. |
my $newdir='/home/'.$uname.'/public_html/'. |
$fn.$ENV{'form.newfilename'}; |
$fn.$ENV{'form.newfilename'}; |
if (-e $newdir) { |
if (-e $newdir) { |
$r->print('<p>Directory exists.</form>'); |
$r->print('<p>Directory exists.</p></form>'); |
return; |
return; |
} |
} |
$r->print('<input type=hidden name=newfilename value="'. |
$r->print('<input type=hidden name=newfilename value="'. |
$ENV{'form.newfilename'}. |
$ENV{'form.newfilename'}. |
'"><p>Make new directory <tt>'. |
'"><p>Make new directory <tt>'. |
$fn.$ENV{'form.newfilename'}.'</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)=@_; |
$r->print('Under Construction'); |
|
|
&Debug($r, "loncfile - Entering phase 2 for $fn"); |
|
|
|
$fn=~/(.*)\/([^\/]+)\.(\w+)$/; |
|
my $dir=$1; |
|
my $main=$2; |
|
my $suffix=$3; |
|
|
|
|
|
&Debug($r, "loncfile::phase2 dir = $dir main = $main suffix = $suffix"); |
|
|
|
my $conspace=$fn; |
|
|
|
&Debug($r, "loncfile::phase2 Full construction space name: $conspace"); |
|
|
|
&Debug($r, "loncfie::phase2 action is $ENV{'form.action'}"); |
|
|
|
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') { |
|
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') { |
|
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') { |
|
my $newdir= $fn.$ENV{'form.newfilename'}; |
|
|
|
&Debug($r, "loncfile::phasetwo - new directory name: $newdir"); |
|
|
|
unless (mkdir($newdir,0770)) { |
|
$r->print('<font color=red>Error: '.$!.'</font>'); |
|
&Debug($r, "loncfile::phasetwo - mkdir failed $!"); |
|
} |
|
&Debug($r, "Done button: uname = $uname, dir = $dir, fn = $fn"); |
|
my $url = '/priv/'.$uname.$newdir.'/'; |
|
&Debug($r, "URL[1] = ".$url); |
|
$url =~ s/\/home\/$uname\/public_html//o; |
|
&Debug($r, "URL = ".$url); |
|
|
|
$r->print('<h3><a href="'.$url.'">Done</a></h3>'); |
|
return; |
|
} |
|
$r->print('<h3><a href="/priv/'.$uname.$dir.'/">Done</a></h3>'); |
} |
} |
|
|
sub handler { |
sub handler { |
|
|
my $r=shift; |
$r=shift; |
|
|
|
|
|
&Debug($r, "loncfile.pm - handler entered"); |
|
|
my $fn; |
my $fn; |
|
|
if ($ENV{'form.filename'}) { |
if ($ENV{'form.filename'}) { |
$fn=$ENV{'form.filename'}; |
$fn=$ENV{'form.filename'}; |
$fn=~s/^http\:\/\/[^\/]+//; |
&Debug($r, "loncfile::handler - raw url: $fn"); |
|
# $fn=~s/^http\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/; |
|
# $fn=~s/^http\:\/\/[^\/]+//; |
|
$fn=URLToPath($fn); |
|
&Debug($r, "loncfile::handler - doctored url: $fn"); |
|
|
} else { |
} else { |
|
&Debug($r, "loncfile::handler - no form.filename"); |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
' unspecified filename for cfile', $r->filename); |
' unspecified filename for cfile', $r->filename); |
return HTTP_NOT_FOUND; |
return HTTP_NOT_FOUND; |
} |
} |
|
|
unless ($fn) { |
unless ($fn) { |
|
&Debug($r, "loncfile::handler - doctored url is empty"); |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}. |
' trying to cfile non-existing file', $r->filename); |
' trying to cfile non-existing file', $r->filename); |
return HTTP_NOT_FOUND; |
return HTTP_NOT_FOUND; |
Line 144 sub handler {
|
Line 319 sub handler {
|
|
|
($uname,$udom)= |
($uname,$udom)= |
&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain')); |
&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain')); |
|
&Debug($r, |
|
"loncfile::handler constructaccess uname = $uname domain = $udom"); |
unless (($uname) && ($udom)) { |
unless (($uname) && ($udom)) { |
$r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
' trying to manipulate file '.$ENV{'form.filename'}. |
' trying to manipulate file '.$ENV{'form.filename'}. |
Line 153 sub handler {
|
Line 330 sub handler {
|
} |
} |
|
|
$fn=~s/\/\~(\w+)//; |
$fn=~s/\/\~(\w+)//; |
|
&Debug($r, "loncfile::handler ~ removed filename: $fn"); |
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 170 sub handler {
|
Line 348 sub handler {
|
'</font></h3>'); |
'</font></h3>'); |
} |
} |
|
|
|
|
|
&Debug($r, "loncfile::handler Form action is $ENV{'form.action'} "); |
if ($ENV{'form.action'} eq 'delete') { |
if ($ENV{'form.action'} eq 'delete') { |
|
|
$r->print('<h3>Delete</h3>'); |
$r->print('<h3>Delete</h3>'); |
} elsif ($ENV{'form.action'} eq 'rename') { |
} elsif ($ENV{'form.action'} eq 'rename') { |
$r->print('<h3>Rename</h3>'); |
$r->print('<h3>Rename</h3>'); |
Line 183 sub handler {
|
Line 364 sub handler {
|
return OK; |
return OK; |
} |
} |
if ($ENV{'form.phase'} eq 'two') { |
if ($ENV{'form.phase'} eq 'two') { |
|
&Debug($r, "loncfile::handler entering phase2"); |
&phasetwo($r,$fn,$uname,$udom); |
&phasetwo($r,$fn,$uname,$udom); |
} else { |
} else { |
|
&Debug($r, "loncfile::handler entering phase1"); |
&phaseone($r,$fn,$uname,$udom); |
&phaseone($r,$fn,$uname,$udom); |
} |
} |
|
|
Line 194 sub handler {
|
Line 377 sub handler {
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|