--- 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;