loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.317, 2003/01/10 21:13:00
+version 1.318, 2003/01/13 21:52:11
  Line 1744  sub dump {
     return %returnhash;
  }
+ # --------------------------------------------------------------- dumpcurrent
+ sub dumpcurrent {
+    my ($namespace,$udomain,$uname)=@_;
+    if (!$udomain) { $udomain = $ENV{'user.domain'}; }
+    if (!$uname)   { $uname   = $ENV{'user.name'};   }
+    my $uhome = &homeserver($uname,$udomain);
+    my $rep=reply("dumpcurrent:$udomain:$uname:$namespace",$uhome);
+    &logthis("error = ".$rep) if ($rep =~ /^(error|no_such_host)/);
+    return if ($rep =~ /^(error:|no_such_host)/);
+    my @pairs=split(/\&/,$rep);
+    my %returnhash=();
+    foreach (@pairs) {
+       my ($key,$value)=split(/=/,$_);
+       my ($symb,$param) = split(/:/,$key);
+       $returnhash{&unescape($symb)}->{&unescape($param)} = &unescape($value);
+    }
+    return %returnhash;
+ }
  # --------------------------------------------------------------- put interface
  sub put {