# The LearningOnline Network with CAPA
# 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 Gerd Kortemeyer
package Apache::lonretrieve;
use strict;
use Apache::File;
use File::Copy;
use Apache::Constants qw(:common :http :methods);
sub phaseone {
my ($r,$fn,$uname,$udom)=@_;
my $docroot=$r->dir_config('lonDocRoot');
my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$fn;
$resdir=~s/\/[^\/]+$/\//;
$fn=~/^\/(.+)\.(\w+)$/;
my $main=$1;
my $suffix=$2;
my $filename;
opendir(DIR,$resdir);
while ($filename=readdir(DIR)) {
if ($filename=~/^$main\.(\d+)\.$suffix$/) {
$r->print($resdir.' = '.$filename.'
');
}
}
closedir(DIR);
}
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 retrieval', $r->filename);
return HTTP_NOT_FOUND;
}
unless ($fn) {
$r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}.
' trying to retrieve non-existing file', $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('LON-CAPA Construction Space');
$r->print(
'
');
$r->print('Retrieve previous versions of '.$fn.'
');
if ($ENV{'form.phase'} eq 'two') {
} else {
&phaseone($r,$fn,$uname,$udom);
}
$r->print('');
return OK;
}