Andy Baugh преди 3 години
родител
ревизия
40ed9c27a5
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      ldapscanner

+ 1 - 0
ldapscanner

@@ -7,6 +7,7 @@ use Config::Tiny  ();
 use File::Slurper ();
 use Net::LDAP     ();
 
+die "No config file!" if !-f 'ldapscanner.cfg';
 my $cfg     = Config::Tiny->read('ldapscanner.cfg');
 my @servers = split( ',', $cfg->{'server'}{'hosts'} );
 my $proto   = $cfg->{'server'}{'ldaps'} ? 'ldaps' : 'ldap';