projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
made local aliases additive to the standard ones. Locals override standard
[spider.git]
/
perl
/
export_user.pl
diff --git
a/perl/export_user.pl
b/perl/export_user.pl
index 950b72e5386527b12daf5f7d9dad09b77e13ea27..3157d21aede0e738b09a9fd67163e0f0981e1583 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,13
@@
package DXUser;
for $a (@all) {
my $ref = DXUser->get($a);
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
$count++;
}
print ");\n