projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added new DXUser with homemade data->ref and ref->data routines
[spider.git]
/
perl
/
export_user.pl
diff --git
a/perl/export_user.pl
b/perl/export_user.pl
index 950b72e5386527b12daf5f7d9dad09b77e13ea27..2b21466b7ce5d1b9e95a223092c733bbdc0e70f5 100755
(executable)
--- a/
perl/export_user.pl
+++ b/
perl/export_user.pl
@@
-24,7
+24,7
@@
$userfn = $ARGV[0] if @ARGV;
DXUser->init($userfn);
@all = DXUser::get_all_calls();
DXUser->init($userfn);
@all = DXUser::get_all_calls();
-$t = scalar time;
+$t = scalar
local
time;
print "#!/usr/bin/perl
#
# The exported userfile for a DXSpider System
print "#!/usr/bin/perl
#
# The exported userfile for a DXSpider System
@@
-40,15
+40,9
@@
package DXUser;
for $a (@all) {
my $ref = DXUser->get($a);
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
$count++;
}
print ");\n