fixed import export

[spider.git] / perl / import_users.pl

diff --git a/perl/import_users.pl b/perl/import_users.pl
deleted file mode 100755 (executable)
index 159989b..0000000
--- a/perl/import_users.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-#
-# Export the user file in a form that can be directly imported
-# back with a do statement
-#
-
-require 5.004;
-
-# search local then perl directories
-BEGIN {
-       umask 002;
-       
-       # root of directory tree for this system
-       $root = "/spider"; 
-       $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-       
-       unshift @INC, "$root/perl";     # this IS the right way round!
-       unshift @INC, "$root/local";
-}
-
-use DXVars;
-use DXUser;
-use DXUtil;
-use Carp;
-
-$inpfn = $ARGV[0] if @ARGV;
-croak "need a input filename" unless $inpfn;
-
-DXUser->del_file($userfn);
-DXUser->init($userfn, 1);
-
-my $s = readfilestr "$inpfn";
-eval $s;
-print $@ if $@;
-
-DXUser->finish();