Don't tell nagios about deleted printers

diff --git a/gen/nagios-printers.gen b/gen/nagios-printers.gen
index 4c66cc913ffbb6b19e425b5ab0ab07895caecc73..88d3d656ea90756f0c44fdb0044c183ace1ba943 100755 (executable)
--- a/gen/nagios-printers.gen
+++ b/gen/nagios-printers.gen
@@ -15,7 +15,7 @@ $dbh = DBI->connect("dbi:Oracle:moira", "moira", "moira")
 
 $sth = $dbh->prepare("SELECT m.name FROM machine m, printers p " .
                     "WHERE (p.type = 'DORM' OR p.type ='CLUSTER') " .
-                    "AND p.mach_id = m.mach_id")
+                    "AND p.mach_id = m.mach_id AND m.status=1")
     || exit $MR_DBMS_ERR;
 
 $sth->execute || exit $MR_DBMS_ERR;