equal
deleted
inserted
replaced
6 use Nagios::Check::DNS::check_tlsa_record; |
6 use Nagios::Check::DNS::check_tlsa_record; |
7 use File::Basename; |
7 use File::Basename; |
8 use Monitoring::Plugin; |
8 use Monitoring::Plugin; |
9 |
9 |
10 my $ME = basename $0; |
10 my $ME = basename $0; |
11 my $blurb = 'This Plugin is intendet to check validity of TLSA Record'; |
11 my $blurb = 'This Plugin is intended to check validity of TLSA Records'; |
12 my $url = 'http://www.schlittermann.de'; |
12 my $url = 'http://www.schlittermann.de'; |
13 my $author = 'Heike Yvonne Pesch'; |
13 my $author = 'Heike Yvonne Pesch'; |
14 my $email = '<pesch@schlittermann.de>'; |
14 my $email = '<pesch@schlittermann.de>'; |
15 my $usage = 'Usage: %s [ -v|--verbose ] [-H <host>] [-t <timeout>] ' |
15 my $usage = 'Usage: %s [ -v|--verbose ] [-H <host>] [-t <timeout>] ' |
16 . '[ -c|--critical=<critical threshold> ] ' |
16 . '[ -c|--critical=<critical threshold> ] ' |
18 . '[ -p|--port=<portnumber> ] ' |
18 . '[ -p|--port=<portnumber> ] ' |
19 . '[ -q|--queryserver=<DNS-Server-IP> ] '; |
19 . '[ -q|--queryserver=<DNS-Server-IP> ] '; |
20 my $extra = <<_; |
20 my $extra = <<_; |
21 |
21 |
22 NOTICE |
22 NOTICE |
23 If you want to use a Hostlist, you have to put entrys like this: |
23 If you want to use a hostlist, you have to put entries like this: |
24 |
24 |
25 host |
25 host |
26 host:port |
26 host:port |
27 |
27 |
28 |
28 |