($root_id) = $moira->selectrow_array("SELECT users_id FROM users ".
"WHERE login = 'root'");
-open(MRTEST, "|$mrtest");
+open(MRTEST, "|$mrtest >/dev/null 2>&1");
print MRTEST "connect $db\n";
print MRTEST "auth\n";
-open(LOG, ">$logfile");
+open(LOG, ">>$logfile");
# Create any lists that don't already exist in Moira
foreach $class (@$classes) {
my ( $name, $owner, $export, $desc ) = @_;
if (!$lists{$name}) {
print LOG "Creating $name\n";
- print MRTEST "qy alis $name 1 0 1 $export $export \"create unique GID\" 0 LIST $owner \"$desc\"\n";
+ print MRTEST "qy alis $name 0 0 1 $export $export \"create unique GID\" 0 0 [NONE] LIST $owner NONE NONE \"$desc\"\n";
}
}