check_client_cert.pl
changeset 4 14408207746e
parent 2 e6a93f3c4bd5
child 5 9041108a535b
--- a/check_client_cert.pl	Wed Feb 02 12:39:29 2011 +0100
+++ b/check_client_cert.pl	Mon Feb 21 15:14:42 2011 +0100
@@ -17,7 +17,6 @@
 #
 #    Christian Arnold <arnold@schlittermann.de>
 
-use 5.010;
 use warnings;
 use strict;
 use if $ENV{DEBUG} => "Smart::Comments";
@@ -35,7 +34,7 @@
 );
 
 my $ME      = basename $0;
-my $VERSION = "0.1.1";
+my $VERSION = "0.1.2";
 
 sub get_status($);
 sub report($);
@@ -72,7 +71,7 @@
 
     open( FILE, $file )
       or do {
-        say "CERT CRITICAL: $file $!";
+        print "CERT CRITICAL: $file $!\n";
         exit $ERRORS{CRITICAL};
       };
 
@@ -124,15 +123,15 @@
     ### @ok
 
     if (@critical) {
-        say "CERT CRITICAL: " . join( " ", @critical );
+        print "CERT CRITICAL: " . join( " ", @critical );
         exit $ERRORS{"CRITICAL"};
     }
     elsif (@warning) {
-        say "CERT WARNING: " . join( " ", @warning );
+        print "CERT WARNING: " . join( " ", @warning );
         exit $ERRORS{"WARNING"};
     }
     else {
-        say "CERT OK: " . join( " ", @ok );
+        print "CERT OK: " . join( " ", @ok );
         exit $ERRORS{"OK"};
     }
 }
@@ -217,7 +216,7 @@
 
 =head1 VERSION
 
-This man page is current for version 0.1.1 of check_client_cert.
+This man page is current for version 0.1.2 of check_client_cert.
 
 =head1 AUTHOR