loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.19, 2000/07/18 13:46:49	version 1.20, 2000/07/21 00:40:37
Line 301 sub repcopy {	Line 301 sub repcopy {
} elsif ($remoteurl eq 'not_found') {	} elsif ($remoteurl eq 'not_found') {
&logthis("Subscribe returned not_found: $filename");	&logthis("Subscribe returned not_found: $filename");
return HTTP_NOT_FOUND;	return HTTP_NOT_FOUND;
} elsif ($remoteurl eq 'forbidden') {	} elsif ($remoteurl eq 'rejected') {
&logthis("Subscribe returned forbidden: $filename");	&logthis("Subscribe returned rejected: $filename");
return FORBIDDEN;	return FORBIDDEN;
	} elsif ($remoteurl eq 'directory') {
	return OK;
} else {	} else {
my @parts=split(/\//,$filename);	my @parts=split(/\//,$filename);
my $path="/$parts[1]/$parts[2]/$parts[3]/$parts[4]";	my $path="/$parts[1]/$parts[2]/$parts[3]/$parts[4]";