DXUser->init($userfn);
@all = DXUser::get_all_calls();
-$t = scalar time;
+$t = scalar localtime;
print "#!/usr/bin/perl
#
# The exported userfile for a DXSpider System
for $a (@all) {
my $ref = DXUser->get($a);
- print "'$a' => bless ( { ";
+ if (ref $ref) {
+ my $s = $ref->encode();
- my $f;
- for $f (sort keys %{$ref}) {
- my $val = ${$ref}{$f};
- $val =~ s/'/\\'/og;
- print "'$f' => '$val', ";
+ print "'$a' => q{ $s },\n";
+ } else {
+ print "# $a has gorn missing\n";
}
- print " }, 'DXUser'),\n";
$count++;
}
print ");\n