sync the user database every 15 secs

[spider.git] / perl / import_users.pl

diff --git a/perl/import_users.pl b/perl/import_users.pl
index 3111e064d8cd221b513d35ef599cf02cf3aa8791..7f77a56460b988c6b9db38ecbc191b38f45c0cb5 100755 (executable)
--- a/perl/import_users.pl
+++ b/perl/import_users.pl
@@ -22,14 +22,12 @@ use DXVars;
 use DXUser;
 use Carp;
 
-$userfn = $ARGV[0] if @ARGV;
-unless ($userfn) {
-       croak "need a filename";
-}
+$inpfn = $ARGV[0] if @ARGV;
+croak "need a input filename" unless $inpfn;
 
 DXUser->init($userfn, 1);
 
-do "$userfn.asc";
+do "$inpfn";
 print $@ if $@;
 
 DXUser->finish();