loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.18, 2001/07/20 21:19:38
+version 1.19, 2001/10/05 22:27:41
  Line 66  sub run {
    }
  }
+ sub dump {
+   my ($target,$safeeval)=@_;
+   my $dump='';
+   foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
+     if (($symname!~/^\_/) && ($symname!~/\:$/)) {
+       if ($safeeval->reval('defined $'.$symname)) {
+ 	$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
+       }
+       if ($safeeval->reval('defined @'.$symname)) {
+ 	$dump.='@'.$symname.'=('.
+ 	  $safeeval->reval('join(",",@'.$symname.')').")\n";
+       }
+       if ($safeeval->reval('defined %'.$symname)) {
+ 	$dump.='%'.$symname.'=(';
+ 	$dump.=$safeeval->reval('join(",",map { $_."=>".$'.
+ 				$symname.'{$_} } sort keys %'.
+ 				$symname.')').")\n";
+       }
+     }
+   }
+   $dump.='';
+   return $dump;
+ }
 ;
  __END__;