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;
}
}
$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);