changeset 9 | 2041bac74e8d |
parent 8 | ebb775c59021 |
child 11 | 675490c3bec2 |
child 12 | c111a724d89c |
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 |