--- loncom/lonnet/perl/lonnet.pm	2000/10/16 09:42:50	1.46
+++ loncom/lonnet/perl/lonnet.pm	2000/10/20 10:57:46	1.47
@@ -25,11 +25,13 @@
 # revokecustomrole (udom,uname,url,rdom,rnam,rolename) : Revoke a custom role
 # appenv(hash)       : adds hash to session environment
 # store(hash)        : stores hash permanently for this url
+# cstore(hash)       : critical store
 # restore            : returns hash for this url
 # eget(namesp,array) : returns hash with keys from array filled in from namesp
 # get(namesp,array)  : returns hash with keys from array filled in from namesp
 # del(namesp,array)  : deletes keys out of array from namesp
 # put(namesp,hash)   : stores hash in namesp
+# cput(namesp,hash)  : critical put
 # dump(namesp)       : dumps the complete namespace into a hash
 # ssi(url,hash)      : does a complete request cycle on url to localhost, posts
 #                      hash
@@ -49,6 +51,7 @@
 # filelocation(dir,file) : returns a farily clean absolute reference to file 
 #                          from the directory dir
 # hreflocation(dir,file) : same as filelocation, but for hrefs
+# log(domain,user,home,msg) : write to permanent log for user
 #
 # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
 # 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,
@@ -63,7 +66,7 @@
 # 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer
 # 10/04 Gerd Kortemeyer
 # 10/04 Guy Albertelli
-# 10/06,10/09,10/10,10/11,10/14 Gerd Kortemeyer
+# 10/06,10/09,10/10,10/11,10/14,10/20 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -424,7 +427,7 @@ sub ssi {
 
 sub log {
     my ($dom,$nam,$hom,$what)=@_;
-    return reply("log:$dom:$nam:$what",$hom);
+    return critical("log:$dom:$nam:$what",$hom);
 }
 
 # ----------------------------------------------------------------------- Store
@@ -445,6 +448,24 @@ sub store {
 		 "$ENV{'user.home'}");
 }
 
+# -------------------------------------------------------------- Critical Store
+
+sub cstore {
+    my %storehash=@_;
+    my $symb;
+    unless ($symb=escape(&symbread())) { return ''; }
+    my $namespace;
+    unless ($namespace=$ENV{'request.course.id'}) { return ''; }
+    my $namevalue='';
+    map {
+        $namevalue.=escape($_).'='.escape($storehash{$_}).'&';
+    } keys %storehash;
+    $namevalue=~s/\&$//;
+    return critical(
+     "store:$ENV{'user.domain'}:$ENV{'user.name'}:$namespace:$symb:$namevalue",
+		 "$ENV{'user.home'}");
+}
+
 # --------------------------------------------------------------------- Restore
 
 sub restore {
@@ -646,6 +667,20 @@ sub put {
                  $ENV{'user.home'});
 }
 
+# ------------------------------------------------------ critical put interface
+
+sub cput {
+   my ($namespace,%storehash)=@_;
+   my $items='';
+   map {
+       $items.=escape($_).'='.escape($storehash{$_}).'&';
+   } keys %storehash;
+   $items=~s/\&$//;
+   return critical
+           ("put:$ENV{'user.domain'}:$ENV{'user.name'}:$namespace:$items",
+                 $ENV{'user.home'});
+}
+
 # -------------------------------------------------------------- eget interface
 
 sub eget {