fixed sh/node

[spider.git] / perl / import_users.pl

diff --git a/perl/import_users.pl b/perl/import_users.pl
index d4cecbfded37907c933edae41524c301869dee8f..159989b83d8a1ae283e638a51c2fff2cacadd608 100755 (executable)
--- a/perl/import_users.pl
+++ b/perl/import_users.pl
@@ -20,15 +20,17 @@ BEGIN {
 
 use DXVars;
 use DXUser;
+use DXUtil;
 use Carp;
 
-$userfn = $ARGV[0] if @ARGV;
-croak "need a filename" unless $userfn;
-croak "$userfn.asc doesn't exist" unless -e "$userfn.asc";
+$inpfn = $ARGV[0] if @ARGV;
+croak "need a input filename" unless $inpfn;
 
+DXUser->del_file($userfn);
 DXUser->init($userfn, 1);
 
-do "$userfn.asc";
+my $s = readfilestr "$inpfn";
+eval $s;
 print $@ if $@;
 
 DXUser->finish();