loncom/lonnet/perl/lonuploadrep.pm - diff

Return to lonuploadrep.pm CVS log

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

version 1.2, 2004/04/01 17:36:53	version 1.3, 2004/07/19 20:16:40
Line 35 sub handler {	Line 35 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 $chome=&Apache::lonnet::homeserver($2,$1);
if ($chome eq $Apache::lonnet::perlvar{'lonHostID'}) { return OK; }	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) {