bin/check_tlsa-record
changeset 9 2041bac74e8d
parent 8 ebb775c59021
child 11 675490c3bec2
child 12 c111a724d89c
equal deleted inserted replaced
8:ebb775c59021 9:2041bac74e8d
   131     $protocol = 'tcp';
   131     $protocol = 'tcp';
   132   }
   132   }
   133 
   133 
   134   my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port, $protocol));
   134   my $return = Nagios::Check::DNS::check_tlsa_record::main(($domain, $port, $protocol));
   135   say $return;
   135   say $return;
       
   136   exit 0;
   136 }
   137 }
   137 
   138 
   138 sub get_domains {
   139 sub get_domains {
   139     open(my $filehandle, '<', $domainlist);
   140     open(my $filehandle, '<', $domainlist);
   140 
   141