--- loncom/lonnet/perl/lonnet.pm 2000/05/01 20:19:38 1.12 +++ loncom/lonnet/perl/lonnet.pm 2000/06/05 20:28:17 1.14 @@ -17,7 +17,7 @@ # 11/8,11/16,11/18,11/22,11/23,12/22, # 01/06,01/13,02/24,02/28,02/29, # 03/01,03/02,03/06,03/07,03/13, -# 04/05 Gerd Kortemeyer +# 04/05,05/29,05/31,06/01,06/05 Gerd Kortemeyer package Apache::lonnet; @@ -325,11 +325,17 @@ sub repcopy { } } +# ------------------------------------------------------------------------- Log + +sub log { + my ($dom,$nam,$hom,$what)=@_; + return reply("log:$dom:$nam:$what",$hom); +} + # ----------------------------------------------------------------------- Store sub store { my %storehash=shift; - my $command=; my $namevalue=''; map { $namevalue.=escape($_).'='.escape($storehash{$_}).'&'; @@ -351,7 +357,7 @@ sub restore { my ($name,$value)=split(/\=/,$_); $returnhash{&unescape($name)}=&unescape($value); } split(/\&/,$answer); - return $returnhash; + return %returnhash; } # -------------------------------------------------------- Get user priviledges @@ -497,6 +503,9 @@ sub allowed { my ($priv,$uri)=@_; $uri=~s/^\/res//; $uri=~s/^\///; + if ($uri=~/^adm\//) { + return 'F'; + } my $thisallowed=''; if ($ENV{'user.priv./'}=~/$priv\&([^\:]*)/) { $thisallowed.=$1;