loncom/lonnet/perl/lonuploadrep.pm - diff

Return to lonuploadrep.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1, 2004/03/31 16:12:08	version 1.3, 2004/07/19 20:16:40
Line 34 use CGI::Cookie();	Line 34 use CGI::Cookie();
sub handler {	sub handler {
my $r = shift;	my $r = shift;
if ($r->uri =~m\|^/*uploaded/(\w+)/(\w+)/(.+)$\|) {	if ($r->uri =~m\|^/*uploaded/(\w+)/(\w+)/(.+)$\|) {
	my $chome=&Apache::lonnet::homeserver($2,$1);
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $chome) { return OK; } }
my $filename = $Apache::lonnet::perlvar{'lonDocRoot'}.'/userfiles/'.$1.'/'.$2.'/'.$3;	my $filename = $Apache::lonnet::perlvar{'lonDocRoot'}.'/userfiles/'.$1.'/'.$2.'/'.$3;
my ($info, $rtncode);	my ($info, $rtncode);
if (-f $filename) {	if (-f $filename) {