loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.624, 2005/04/15 22:03:23
+version 1.625, 2005/04/18 21:10:41
  Line 2639  sub cput {
     return &critical("put:$udomain:$uname:$namespace:$items",$uhome);
  }
+ # ------------------------------------------------------ critical inc interface
+ sub cinc {
+    my ($namespace,$storehash,$udomain,$uname)=@_;
+    if (!$udomain) { $udomain=$env{'user.domain'}; }
+    if (!$uname) { $uname=$env{'user.name'}; }
+    my $uhome=&homeserver($uname,$udomain);
+    my $items='';
+    foreach (keys %$storehash) {
+        $items.=escape($_).'='.&freeze_escape($$storehash{$_}).'&';
+    }
+    $items=~s/\&$//;
+    return &critical("inc:$udomain:$uname:$namespace:$items",$uhome);
+ }
  # -------------------------------------------------------------- eget interface
  sub eget {