chdir doesn't exist for linux, and now my filesystem doesn't either

[moira.git] / gen / ca.gen

diff --git a/gen/ca.gen b/gen/ca.gen
index c3a489b1b62b1a8c0214483c3fd005827b01631a..3842f13e4f7ab588902578fc05ad53254eaf348d 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;
     }
 }
 
@@ -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);