X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimport_users.pl;h=159989b83d8a1ae283e638a51c2fff2cacadd608;hb=3f1c5ab45aa13e99da6bea0bfcc6d4434beb5871;hp=7f77a56460b988c6b9db38ecbc191b38f45c0cb5;hpb=436d07876d3f2253c00f146b461f3a4d3ee2a7a3;p=spider.git

diff --git a/perl/import_users.pl b/perl/import_users.pl
index 7f77a564..159989b8 100755
--- a/perl/import_users.pl
+++ b/perl/import_users.pl
@@ -20,14 +20,17 @@ BEGIN {
 
 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);
 
-do "$inpfn";
+my $s = readfilestr "$inpfn";
+eval $s;
 print $@ if $@;
 
 DXUser->finish();