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';