[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.626 and 1.627

version 1.626, 2005/04/18 21:19:53 version 1.627, 2005/04/18 22:28:19
Line 2561  sub convert_dump_to_currentdump{ Line 2561  sub convert_dump_to_currentdump{
     return \%returnhash;      return \%returnhash;
 }  }
   
   # ------------------------------------------------------ critical inc interface
   
   sub cinc {
       return &inc(@_,'critical');
   }
   
 # --------------------------------------------------------------- inc interface  # --------------------------------------------------------------- inc interface
   
 sub inc {  sub inc {
     my ($namespace,$store,$udomain,$uname) = @_;      my ($namespace,$store,$udomain,$uname,$critical) = @_;
     if (!$udomain) { $udomain=$env{'user.domain'}; }      if (!$udomain) { $udomain=$env{'user.domain'}; }
     if (!$uname) { $uname=$env{'user.name'}; }      if (!$uname) { $uname=$env{'user.name'}; }
     my $uhome=&homeserver($uname,$udomain);      my $uhome=&homeserver($uname,$udomain);
Line 2582  sub inc { Line 2588  sub inc {
         }          }
     }      }
     $items=~s/\&$//;      $items=~s/\&$//;
     return &reply("inc:$udomain:$uname:$namespace:$items",$uhome);      if ($critical) {
    return &critical("inc:$udomain:$uname:$namespace:$items",$uhome);
       } else {
    return &reply("inc:$udomain:$uname:$namespace:$items",$uhome);
       }
 }  }
   
 # --------------------------------------------------------------- put interface  # --------------------------------------------------------------- put interface
Line 2639  sub cput { Line 2649  sub cput {
    return &critical("put:$udomain:$uname:$namespace:$items",$uhome);     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  # -------------------------------------------------------------- eget interface
   
 sub eget {  sub eget {
Removed from v.1.626  
changed lines
  Added in v.1.627

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>