loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.666, 2005/10/18 21:29:35
+version 1.667, 2005/10/25 19:14:33
  Line 2955  sub eget {
     return %returnhash;
  }
+ # ------------------------------------------------------------ tmpput interface
+ sub tmpput {
+     my ($storehash,$server)=@_;
+     my $items='';
+     foreach (keys(%$storehash)) {
+ 	$items.=&escape($_).'='.&freeze_escape($$storehash{$_}).'&';
+     }
+     $items=~s/\&$//;
+     return &reply("tmpput:$items",$server);
+ }
+ # ------------------------------------------------------------ tmpget interface
+ sub tmpget {
+     my ($token)=@_;
+     my $rep=&reply("tmpget:$token",$perlvar{'lonHostID'});
+     my %returnhash;
+     foreach my $item (split(/\&/,$rep)) {
+ 	my ($key,$value)=split(/=/,$item);
+ 	$returnhash{&unescape($key)}=&thaw_unescape($value);
+     }
+     return %returnhash;
+ }
  # ---------------------------------------------- Custom access rule evaluation
  sub customaccess {