Hi,
Same problem show up on pam-ldap system. Since this regexp it's buggy :
for my $m (split /[,\s]/, $members) {
(split the full dc as well).
My fix/workaround was :
--- PgCommon.pm.chmou 2006-02-20 21:25:53.186576728 +1100
+++ PgCommon.pm 2006-02-20 21:26:29.475060040 +1100
@@ -595,7 +595,8 @@
for(;;) {
my ($name, undef, $gid, $members) = getgrent;
last unless defined $gid;
- for my $m (split /[,\s]/, $members) {
+ for my $m (split /[\s]/, $members) {
+ next if $m =~ /.*,.*/;
if ((getpwnam $m) == $uid) {
$groups .= " $gid";
}
--
Chmouel Boudjnah - Squiz.net - http://www.squiz.net/
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
