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.2, 2004/04/01 17:36:53
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);
	if ($chome eq $Apache::lonnet::perlvar{'lonHostID'}) { 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) {