loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.13, 2000/05/29 14:06:46	version 1.14, 2000/06/05 20:28:17
Line 17	Line 17
# 11/8,11/16,11/18,11/22,11/23,12/22,	# 11/8,11/16,11/18,11/22,11/23,12/22,
# 01/06,01/13,02/24,02/28,02/29,	# 01/06,01/13,02/24,02/28,02/29,
# 03/01,03/02,03/06,03/07,03/13,	# 03/01,03/02,03/06,03/07,03/13,
# 04/05,05/29 Gerd Kortemeyer	# 04/05,05/29,05/31,06/01,06/05 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 325 sub repcopy {	Line 325 sub repcopy {
}	}
}	}

	# ------------------------------------------------------------------------- Log

	sub log {
	my ($dom,$nam,$hom,$what)=@_;
	return reply("log:$dom:$nam:$what",$hom);
	}

# ----------------------------------------------------------------------- Store	# ----------------------------------------------------------------------- Store

sub store {	sub store {
Line 496 sub allowed {	Line 503 sub allowed {
my ($priv,$uri)=@_;	my ($priv,$uri)=@_;
$uri=~s/^\/res//;	$uri=~s/^\/res//;
$uri=~s/^\///;	$uri=~s/^\///;
	if ($uri=~/^adm\//) {
	return 'F';
	}
my $thisallowed='';	my $thisallowed='';
if ($ENV{'user.priv./'}=~/$priv\&([^\:]*)/) {	if ($ENV{'user.priv./'}=~/$priv\&([^\:]*)/) {
$thisallowed.=$1;	$thisallowed.=$1;