equal
deleted
inserted
replaced
124 |
124 |
125 if (!$protocol || $protocol ne 'tcp' || $protocol ne 'udp') { |
125 if (!$protocol || $protocol ne 'tcp' || $protocol ne 'udp') { |
126 $protocol = 'tcp'; |
126 $protocol = 'tcp'; |
127 } |
127 } |
128 |
128 |
129 my $return = |
129 say main(($domain, $port, $protocol,$expiry)); |
130 Nagios::Check::DNS::check_tlsa_record::main(($domain, $port, $protocol)); |
130 |
131 say $return; |
|
132 exit 0; |
131 exit 0; |
133 } |
132 } |
134 |
133 |
135 sub get_domains { |
134 sub get_domains { |
136 open(my $filehandle, '<', $domainlist); |
135 open(my $filehandle, '<', $domainlist); |
140 $domain = $+{domain}; |
139 $domain = $+{domain}; |
141 |
140 |
142 if ("$+{port}" =~ /^\s*$/) { $port = '443'; } |
141 if ("$+{port}" =~ /^\s*$/) { $port = '443'; } |
143 else { $port = $+{port}; } |
142 else { $port = $+{port}; } |
144 |
143 |
145 my $return = |
144 say main(($domain, $port, $protocol,$expiry)); |
146 Nagios::Check::DNS::check_tlsa_record::main(($domain, $port)); |
|
147 say $return; |
|
148 } |
145 } |
149 else { |
146 else { |
150 die "$domainlist has wrong or malformed content\n"; |
147 die "$domainlist has wrong or malformed content\n"; |
151 } |
148 } |
152 |
149 |
153 } |
150 } |
154 } |
151 } |
155 |
152 |
|
153 sub main { |
|
154 my $domain = shift; |
|
155 my $port = shift // 443; |
|
156 my $protocoll = shift // 'tcp'; |
|
157 my $expiry = shift; |
|
158 |
|
159 if ($expiry) { |
|
160 return Nagios::Check::DNS::check_tlsa_record::main( |
|
161 $domain, $port, $protocoll, $expiry); |
|
162 } |
|
163 |
|
164 return Nagios::Check::DNS::check_tlsa_record::main( |
|
165 $domain, $port, $protocoll); |
|
166 |
|
167 } |
|
168 |
156 # vim: ft=perl ts=2 sw=2 |
169 # vim: ft=perl ts=2 sw=2 |