12 $SIG{__DIE__ } = sub() {
14 exit $CODE{'UNKNOWN'};
19 my @stat = stat($f) or die ("Cannot stat $f: $!\n");
20 my $age = time - $stat[10];
22 if ($age > 48 * 3600) {
23 $hage = sprintf("%.1f days", $age / 24 / 3600);
24 } elsif ($age > 3600) {
25 $hage = sprintf("%.1f hours", $age / 3600);
27 $hage = sprintf("%d minutes", $age / 60);
31 return [$CODE{'WARNING'}, "WARNING: ud-ldap info is $hage old"];
33 return [$CODE{'OK'}, "ud-ldap info is $hage old"];
37 my $f = "/var/lib/misc/thishost/last_update.trace";
39 print "WARNING: $f does not exist.\n";
40 exit $CODE{'WARNING'};
43 my $a = check_age($f);
50 print "OK: ", join(', ', @msg), "\n";