--- a/check-cert.pl Mon Sep 14 16:08:35 2009 +0200
+++ b/check-cert.pl Mon Sep 14 16:18:34 2009 +0200
@@ -32,9 +32,9 @@
);
my (
- $opt_debug, $opt_init, $opt_signature,
- $opt_version, $opt_help, $opt_warning, $opt_directory,
- $opt_critical, $opt_binary, @opt_exclude
+ $opt_debug, $opt_init, $opt_signature, $opt_version,
+ $opt_help, $opt_warning, $opt_directory, $opt_critical,
+ $opt_binary, @opt_exclude
);
my ($file, $w_time, $c_time);
@@ -44,7 +44,7 @@
$opt_signature = "md5WithRSAEncryption";
$opt_warning = "1month";
$opt_critical = "1week";
-$opt_directory = "/etc";
+$opt_directory = "/etc";
sub process_file();
sub print_help();
@@ -54,16 +54,16 @@
Getopt::Long::Configure('bundling');
GetOptions(
- "i|init" => \$opt_init,
- "h|help" => \$opt_help,
- "V|version" => \$opt_version,
- "b|binary=s" => \$opt_binary,
- "d|directory=s" => \$opt_directory,
- "w|warning=s" => \$opt_warning,
- "c|critical=s" => \$opt_critical,
- "s|signature" => \$opt_signature,
- "e|exclude=s" => \@opt_exclude,
- "d|debug" => \$opt_debug,
+ "i|init" => \$opt_init,
+ "h|help" => \$opt_help,
+ "V|version" => \$opt_version,
+ "b|binary=s" => \$opt_binary,
+ "d|directory=s" => \$opt_directory,
+ "w|warning=s" => \$opt_warning,
+ "c|critical=s" => \$opt_critical,
+ "s|signature" => \$opt_signature,
+ "e|exclude=s" => \@opt_exclude,
+ "d|debug" => \$opt_debug,
);
print_revision($ME, $VERSION) and exit $ERRORS{"OK"} if $opt_version;
@@ -271,8 +271,9 @@
print "\n";
print " -b, --binary <binary>\n";
print " Path of openssl binary (default: /usr/bin/openssl)\n";
- print " -d, --directory <path>\n";
- print " Absolute directory path in which will be recursively search for certificate files (default: /etc).\n";
+ print " -d, --directory <path>\n";
+ print
+" Absolute directory path in which will be recursively search for certificate files (default: /etc).\n";
print " -w, --warning <time>\n";
print
" Certificat should not be more than this time older (default: 1month).\n";