Don't output seperate lines for each sublist.

[moira.git] / gen / ca.gen

diff --git a/gen/ca.gen b/gen/ca.gen
index c3a489b1b62b1a8c0214483c3fd005827b01631a..ed75b5d157a4995087ff9cc9d0dfe9ef6df4318d 100755 (executable)
--- 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;
     }
 }
 
@@ -55,9 +59,13 @@ while (($login, $name, $dir) = $sth->fetchrow_array) {
     $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);