loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.476, 2011/07/28 15:12:03
+version 1.478, 2011/08/01 20:13:01
  Line 1641  sub ls3_handler {
  }
  &register_handler("ls3", \&ls3_handler, 0, 1, 0);
+ sub read_lonnet_global {
+     my ($cmd,$tail,$client) = @_;
+     my $userinput = "$cmd:$tail";
+     my $requested = &Apache::lonnet::thaw_unescape($tail);
+     my $result;
+     if (ref($requested) eq 'HASH') {
+         foreach my $what (keys(%{$requested})) {
+             my $type = $requested->{$what};
+             my $lonnetglobal = 'Apache::lonnet::'.$what;
+             my $response;
+             if ($type eq 'HASH') {
+                 if (defined(%{$lonnetglobal})) {
+                     my $hashref = \%{$lonnetglobal};
+                     $response = &Apache::lonnet::freeze_escape($hashref);
+                 }
+             } else {
+                 if (defined(${$lonnetglobal})) {
+                     $response = &escape(${$lonnetglobal});
+                 }
+             }
+             $result .= &escape($what).'='.$response.'&';
+         }
+     }
+     $result =~ s/\&$//;
+     &Reply($client,\$result,$userinput);
+     return 1;
+ }
+ &register_handler("readlonnetglobal", \&read_lonnet_global, 0, 1, 0);
  sub server_timezone_handler {
      my ($cmd,$tail,$client) = @_;
      my $userinput = "$cmd:$tail";