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 ( { ";
+ my $s = $ref->encode();
- my $f;
- for $f (sort keys %{$ref}) {
- my $val = ${$ref}{$f};
- $val =~ s/'/\\'/og;
- print "'$f' => '$val', ";
- }
- print " }, 'DXUser'),\n";
+ print "'$a' => qq{ $s },\n";
$count++;
}
print ");\n