version 1.4, 2001/06/24 01:40:14
|
version 1.7, 2001/12/04 15:34:57
|
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 114 sub phaseone {
|
Line 139 sub phaseone {
|
|
|
sub phasetwo { |
sub phasetwo { |
my ($r,$fn,$uname,$udom)=@_; |
my ($r,$fn,$uname,$udom)=@_; |
$r->print('Under Construction'); |
|
|
$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 (-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='/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 { |