X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/blobdiff_plain/ad9f53c145c6351f693382e8e3b65ff12b5e8e7b..f2a412cadaaa21aaffe966c63e3f1b752d3eb304:/gen/ca.gen

diff --git a/gen/ca.gen b/gen/ca.gen
index c3a489b1..3842f13e 100755
--- a/gen/ca.gen
+++ b/gen/ca.gen
@@ -35,9 +35,13 @@ while (($id, $dir, $machname) = $sth->fetchrow_array) {
     while (($login, $fullname) = $foo->fetchrow_array) {
 	if ($first) {
 	    $first = 0;
-	    print OUT "*$machname:$dir\n";
+	    $row = "*$machname:$dir\n";
+	    $row =~ s/\0//g;
+	    print OUT $row;
 	}
-	print OUT "$login,$fullname\n";
+	$row = "$login,$fullname\n";
+	$row =~ s/\0//g;
+	print OUT $row;
     }
 }
 
@@ -50,14 +54,19 @@ $sth = $dbh->prepare("SELECT UNIQUE u.login, u.fullname, f.name ".
 
 $sth->execute || exit $MR_DBMS_ERR;
 
+$last = "";
 while (($login, $name, $dir) = $sth->fetchrow_array) {
     $dir =~ /(\/.*)\//;
     $path = $1;
     if ($path ne $last) {
 	$last = $path;
-	print OUT "*AFS:$path\n";
+	$row = "*AFS:$path\n";
+	$row =~ s/\0//g;
+	print OUT $row;
     }
-    print OUT "$login,$name\n";
+    $row = "$login,$name\n";
+    $row =~ s/\0//g;
+    print OUT $row;
 }
 
 close(OUT);