print OUT "# This file is automatically generated by Moira. Do not edit.\n";
$sth = $dbh->prepare("SELECT m.name FROM machine m, imembers i " .
"WHERE i.list_id = " . $dbh->quote($root_list_id) .
- "AND i.member_type = 'MACHINE' " .
+ "AND i.member_type = 'MACHINE' AND m.status = 1 " .
"AND i.member_id = m.mach_id AND i.direct = 1 ORDER BY m.name")
|| exit $MR_DBMS_ERR;
$sth->execute;