# The LearningOnline Network with CAPA
# Handler to upload files into construction space
#
# (Handler to retrieve an old version of a file
#
# (Publication Handler
#
# (TeX Content Handler
#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer
# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)
#
# 03/31,04/03 Gerd Kortemeyer)
#
# 04/05,04/09,05/25,06/23 Gerd Kortemeyer
package Apache::lonupload;
use strict;
use Apache::File;
use File::Copy;
use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;
sub upfile_store {
my $r=shift;
my $fname=$ENV{'form.upfile.filename'};
$fname=~s/\W//g;
chop($ENV{'form.upfile'});
my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.
'_upload_'.$fname.'_'.time.'_'.$$;
{
my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons').
'/tmp/'.$datatoken.'.tmp');
print $fh $ENV{'form.upfile'};
}
return $datatoken;
}
sub phaseone {
my ($r,$fn,$uname,$udom)=@_;
if ($ENV{'form.upfile.filename'}) {
$fn=~s/\/[^\/]+$//;
$fn=~s/([^\/])$/$1\//;
$fn.=$ENV{'form.upfile.filename'};
$fn=~s/^\///;
$fn=~s/(\/)+/\//g;
if (($fn) && ($fn!~/\/$/)) {
$r->print(
'');
} else {
$r->print('Illegal filename.');
}
} else {
$r->print('No upload file specified.');
}
}
sub phasetwo {
my ($r,$fn,$uname,$udom)=@_;
if ($fn=~/^\/priv\/$uname\//) {
my $tfn=$fn;
$tfn=~s/^\/(\~|priv)\/(\w+)//;
my $target='/home/'.$uname.'/public_html'.$tfn;
my $datatoken=$ENV{'form.datatoken'};
if (($fn) && ($datatoken)) {
if ((-e $target) && ($ENV{'form.override'} ne 'Yes')) {
$r->print(
'');
} else {
my $source=$r->dir_config('lonDaemons').
'/tmp/'.$datatoken.'.tmp';
if (copy($source,$target)) {
$r->print('File copied.');
$r->print('View file');
} else {
$r->print('Failed to copy: '.$!);
}
}
} else {
$r->print(
'Please pick a filename
');
&phaseone($r,$fn,$uname,$udom);
}
} else {
$r->print(
'Please pick a filename
');
&phaseone($r,$fn,$uname,$udom);
}
}
sub handler {
my $r=shift;
my $uname;
my $udom;
($uname,$udom)=
&Apache::loncacc::constructaccess(
$ENV{'form.filename'},$r->dir_config('lonDefDomain'));
unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.
' trying to publish file '.$ENV{'form.filename'}.
' - not authorized',
$r->filename);
return HTTP_NOT_ACCEPTABLE;
}
my $fn;
if ($ENV{'form.filename'}) {
$fn=$ENV{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\/(\~|priv\/)(\w+)//;
} else {
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}.
' unspecified filename for upload', $r->filename);
return HTTP_NOT_FOUND;
}
# ----------------------------------------------------------- Start page output
$r->content_type('text/html');
$r->send_http_header;
$r->print('
LON-CAPA Construction Space');
$r->print(
'
');
$r->print('Upload file to Construction Space
');
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
$r->print('Co-Author: '.$uname.' at '.$udom.
'
');
}
if ($ENV{'form.phase'} eq 'two') {
&phasetwo($r,$fn,$uname,$udom);
} else {
&phaseone($r,$fn,$uname,$udom);
}
$r->print('');
return OK;
}