1 changed file
template-old-plugin.pl | ||
Add comment 10
Add comment 11 use strict;
Add comment 12 use warnings;
Add comment 13 Minus use Benchmark::Timer;
Add comment 13 Plus #use Benchmark::Timer;
Add comment 14 use File::Basename;
Add comment 15 use File::Temp "tempfile";
Add comment 16 use FindBin;
Add comment 17 use Getopt::Long qw(:config bundling);
Add comment 18 Minus use MIME::Lite;
Add comment 18 Plus #use MIME::Lite;
Add comment 19 use Pod::Usage;
Add comment 20 use SMS::AQL;
Add comment 21 use Sys::Hostname;
Add comment 22 #use Time::Local;
Add comment 23 Minus use WWW::Shorten::TinyURL;
Add comment 23 Plus #use WWW::Shorten::TinyURL;
Add comment 24 use lib "$FindBin::Bin";
Add comment 25 use lib "/etc/nagios/plugins";
Add comment 26 use lib "/usr/lib64/nagios/plugins";
Add comment 62 my $port;
Add comment 63 my $warning;
Add comment 64 sub usage {
Add comment 65 Minus print "@_\n\n" if defined(@_);
Add comment 65 Plus print "@_\n\n" if @_;
Add comment 66 print "usage: $progname [ options ]
Add comment 67
Add comment 68 -H --host Host to connect to
Add comment 118 };
Add comment 119 vlog "setting plugin timeout to $timeout secs\n";
Add comment 120 alarm($timeout);
Add comment 121 Minus
Add comment 122 Minus
Add comment 123 121