# 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 Gerd Kortemeyer
package Apache::lonupload;
use strict;
use Apache::File;
use File::Copy;
use Apache::Constants qw(:common :http :methods);
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)=@_;
$fn=~s/\/[^\/]+$//;
$fn=~s/([^\/])$/$1\//;
$fn.=$ENV{'form.upfile.filename'};
$r->print(
'<form action=/adm/upload method=post>'.
'<input type=hidden name=phase value=two>'.
'<input type=hidden name=datatoken value="'.&upfile_store.'">'.
'Store uploaded file as '.
'<input type=text size=50 name=filename value="'.$fn.'"><br>'.
'<input type=submit value="Store"></form>');
}
sub phasetwo {
my ($r,$fn,$uname,$udom)=@_;
my $target='/home/'.$uname.'/public_html'.$fn;
my $datatoken=$ENV{'form.datatoken'};
if (($fn) && ($datatoken)) {
if ((-e $target) && ($ENV{'form.override'} ne 'Yes')) {
$r->print(
'<form action=/adm/upload method=post>'.
'File <tt>'.$fn.'</tt> exists. Overwrite? '.
'<input type=hidden name=phase value=two>'.
'<input type=hidden name=filename value="'.$fn.'">'.
'<input type=hidden name=datatoken value="'.$datatoken.'">'.
'<input type=submit name=override value="Yes"></form>');
} else {
my $source=$r->dir_config('lonDaemons').
'/tmp/'.$datatoken.'.tmp';
if (copy($source,$target)) {
$r->print('File copied.');
$r->print('<p><font size=+2><a href="/priv/'.$uname.$fn.
'">View file</a></font>');
} else {
$r->print('Failed to copy: '.$!);
}
}
} else {
$r->print(
'<font size=+1 color=red>Please pick a filename</font><p>');
&phaseone($r,$fn,$uname,$udom);
}
}
sub handler {
my $r=shift;
my $fn;
if ($ENV{'form.filename'}) {
$fn=$ENV{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\/\~(\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
my $uname=$ENV{'user.name'};
my $udom=$ENV{'user.domain'};
$r->content_type('text/html');
$r->send_http_header;
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
$r->print(
'<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');
$r->print('<h1>Upload file to Construction Space</h1>');
if ($ENV{'form.phase'} eq 'two') {
&phasetwo($r,$fn,$uname,$udom);
} else {
&phaseone($r,$fn,$uname,$udom);
}
$r->print('</body></html>');
return OK;
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>