open(OUT, ">$outfile") || exit $MR_OCONFIG;
while (($clearid, $login, $first, $middle, $last) = $sth->fetchrow_array) {
- $row = "$clearid^UID=$login/S=$last/G=$first/I=$middle/";
- $row .= "EMAIL=$login\@mit.edu\n";
+ $row = "$clearid|$login^UID=$login/S=$last/G=$first/I=$middle/";
+ $row .= "OU1=/JOB-TITLE=/PHONE=/LOC=/EMAIL=$login\@mit.edu\n";
$row =~ s/\0//g;
print OUT $row;
}