Changeset 1571 for trunk/locker/sbin/check-ldap-certs.pl

Timestamp:

Jun 6, 2010, 4:38:11 AM (14 years ago)

Author:

adehnert

Message:

Print the local hostname from check-ldap-certs.pl

File:

• trunk/locker/sbin/check-ldap-certs.pl (modified) (2 diffs)

trunk/locker/sbin/check-ldap-certs.pl

@@ -4 +4 @@
 use File::Basename;
 use Date::Parse;
+use Sys::Hostname;
 
 my @servers = qw(cats-whiskers.mit.edu pancake-bunny.mit.edu real-mccoy.mit.edu busy-beaver.mit.edu bees-knees.mit.edu);
+
+my $hostname = hostname();
 
 my $now = time();
@@ -25 +28 @@
 
   if ($verbose || ($time - $now) <= WARNING) {
-    printf "Certificate expiring in %.2f days: %s\n", (($time - $now) / (60.0*60*24)), $server;
+    printf "$hostname: Certificate expiring in %.2f days: %s\n", (($time - $now) / (60.0*60*24)), $server;
   }
 }