From 408e5cd3e34879ef103f5316f52b817aed265e85 Mon Sep 17 00:00:00 2001
From: zacheiss <zacheiss>
Date: Fri, 25 Aug 2000 00:48:40 +0000
Subject: [PATCH] Update for new args to alis, and redirect mrtest output.

---
 regtape/grouper.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/regtape/grouper.pl b/regtape/grouper.pl
index acf06104..8a4075c5 100755
--- a/regtape/grouper.pl
+++ b/regtape/grouper.pl
@@ -48,7 +48,7 @@ while (($user, $mitid) = $sth->fetchrow_array) {
 ($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");
@@ -135,7 +135,7 @@ sub check_list {
     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 1 0 1 $export $export \"create unique GID\" 0 LIST $owner NONE NONE \"$desc\"\n";
     }
 }
 
-- 
2.45.2