- while (($id) = $sth->fetchrow_array) {
- if(!$members) {
- $row = "dn: cn=$name,ou=groups,dc=mit,dc=edu\n";
- $row .= "objectClass: top\n";
- $row .= "objectClass: groupOfUniqueNames\n";
- $row .= "cn: $name\n";
- $row =~ s/\0//g;
- print OUT $row;
-
- $members = 1;
- }
-
- ($member) = $dbh->selectrow_array("SELECT login FROM users " .
- "WHERE users_id = " .
- $dbh->quote($id)) ||
- exit $MR_DBMS_ERR;
-
- $row = "uniqueMember: uid=$member,ou=users,dc=mit,dc=edu\n";
- $row =~ s/\0//g;
- print OUT $row;
+ while (($member) = $sth->fetchrow_array) {
+ if(!$members) {
+ $row = "dn: cn=$name,ou=groups,dc=mit,dc=edu\n";
+ $row .= "objectClass: top\n";
+ $row .= "objectClass: groupOfUniqueNames\n";
+ $row .= "cn: $name\n";
+ $row =~ s/\0//g;
+ print OUT $row;
+
+ $members = 1;
+ }
+
+ $row = "uniqueMember: uid=$member,ou=users,dc=mit,dc=edu\n";
+ $row =~ s/\0//g;
+ print OUT $row;