Index: trunk/locker/sbin/check-ldap-certs.pl
===================================================================
--- trunk/locker/sbin/check-ldap-certs.pl	(revision 1570)
+++ trunk/locker/sbin/check-ldap-certs.pl	(revision 1571)
@@ -4,6 +4,9 @@
 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,5 +28,5 @@
 
   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;
   }
 }