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
13 # root of directory tree for this system
15 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
17 unshift @INC, "$root/perl"; # this IS the right way round!
18 unshift @INC, "$root/local";
26 $inpfn = $ARGV[0] if @ARGV;
27 croak "need a input filename" unless $inpfn;
29 DXUser->del_file($userfn);
30 DXUser->init($userfn, 1);
32 my $s = readfilestr "$inpfn";