Revision 100

Date:
2010/09/02 12:36:37
Author:
dpavlin
Revision Log:
apply regex on hrEduPersonGroupMember

this is used to rename group
Files:

Legend:

 
Added
 
Removed
 
Modified
  • bin/ldap-rewrite.pl

     
    147 147 my ( $n, $v ) = split(/\s*:\s*/, $val );
    148 148 push @attrs, { type => $attr->{type} . '_' . $n, vals => [ $v ] };
    149 149 }
    150 } elsif ( $attr->{type} eq 'hrEduPersonGroupMember' ) {
    151 foreach my $i ( 0 .. $#{ $attr->{vals} } ) {
    152 $attr->{vals}->[$i] =~ s/^u2010/p2010/gs && warn "FIXME group";
    153 }
    150 154 }
    151 155 }
    152 156