--- loncom/lonnet/perl/lonnet.pm	2000/05/29 14:06:46	1.13
+++ 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,05/29 Gerd Kortemeyer
+# 04/05,05/29,05/31,06/01,06/05 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -325,6 +325,13 @@ sub repcopy {
     }
 }
 
+# ------------------------------------------------------------------------- Log
+
+sub log {
+    my ($dom,$nam,$hom,$what)=@_;
+    return reply("log:$dom:$nam:$what",$hom);
+}
+
 # ----------------------------------------------------------------------- Store
 
 sub store {
@@ -496,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;