loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.289, 2002/10/01 19:09:27	version 1.290, 2002/10/03 15:04:29
Line 652 sub subscribe {	Line 652 sub subscribe {
$author=~s/\/home\/httpd\/html\/res\/([^\/])\/([^\/]).*/$1\/$2/;	$author=~s/\/home\/httpd\/html\/res\/([^\/])\/([^\/]).*/$1\/$2/;
my ($udom,$uname)=split(/\//,$author);	my ($udom,$uname)=split(/\//,$author);
my $home=homeserver($uname,$udom);	my $home=homeserver($uname,$udom);
if (($home eq 'no_host') \|\| ($home eq $perlvar{'lonHostID'})) {	if ($home eq 'no_host') {
return 'not_found';	return 'not_found';
}	}
my $answer=reply("sub:$fname",$home);	my $answer=reply("sub:$fname",$home);
Line 683 sub repcopy {	Line 683 sub repcopy {
} elsif ($remoteurl eq 'directory') {	} elsif ($remoteurl eq 'directory') {
return OK;	return OK;
} else {	} else {
	my $author=$filename;
	$author=~s/\/home\/httpd\/html\/res\/([^\/])\/([^\/]).*/$1\/$2/;
	my ($udom,$uname)=split(/\//,$author);
	my $home=homeserver($uname,$udom);
	unless ($home eq $perlvar{'lonHostID'}) {
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]";
if ($path ne "$perlvar{'lonDocRoot'}/res") {	if ($path ne "$perlvar{'lonDocRoot'}/res") {
Line 718 sub repcopy {	Line 723 sub repcopy {
rename($transname,$filename);	rename($transname,$filename);
return OK;	return OK;
}	}
	}
}	}
}	}