X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimport_users.pl;h=7f77a56460b988c6b9db38ecbc191b38f45c0cb5;hb=436d07876d3f2253c00f146b461f3a4d3ee2a7a3;hp=d4cecbfded37907c933edae41524c301869dee8f;hpb=6c38bca91e6b75002e15cce29c45a894f675e22e;p=spider.git

diff --git a/perl/import_users.pl b/perl/import_users.pl
index d4cecbfd..7f77a564 100755
--- a/perl/import_users.pl
+++ b/perl/import_users.pl
@@ -22,13 +22,12 @@ use DXVars;
 use DXUser;
 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->init($userfn, 1);
 
-do "$userfn.asc";
+do "$inpfn";
 print $@ if $@;
 
 DXUser->finish();