3 # Export the user file in a form that can be directly imported
4 # back with a do statement
9 # search local then perl directories
11 # root of directory tree for this system
13 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
15 unshift @INC, "$root/perl"; # this IS the right way round!
16 unshift @INC, "$root/local";
22 $userfn = $ARGV[0] if @ARGV;
24 DXUser->init($userfn);
26 @all = DXUser::get_all_calls();
28 print "#!/usr/bin/perl
30 # The exported userfile for a DXSpider System
42 my $ref = DXUser->get($a);
43 print "'$a' => bless ( { ";
46 for $f (sort keys %{$ref}) {
47 my $val = ${$ref}{$f};
49 print "'$f' => '$val', ";
51 print " }, 'DXUser'),\n";
56 # there were $count records