equal
deleted
inserted
replaced
224 $modified++; |
224 $modified++; |
225 } |
225 } |
226 |
226 |
227 if (defined $Cf->group) { |
227 if (defined $Cf->group) { |
228 my @g = split /,/, $Cf->group; |
228 my @g = split /,/, $Cf->group; |
229 grep { /^[+-]/ } @g or $e->delete(AT_GROUP); |
229 grep { /^[+-]/ } @g or $e->delete(AT_GROUP) |
|
230 if $e->get_value(AT_GROUP); |
230 |
231 |
231 foreach my $g (@g) { |
232 foreach my $g (@g) { |
232 if ($g =~ s/^-//) { |
233 if ($g =~ s/^-//) { |
233 $e->delete((AT_GROUP) => [$g]) |
234 $e->delete((AT_GROUP) => [$g]) |
234 } else { |
235 } else { |
379 } |
380 } |
380 print "\n"; |
381 print "\n"; |
381 |
382 |
382 print "\tPassword: ", $> == 0 ? $e->get_value("userPassword") : "*", "\n"; |
383 print "\tPassword: ", $> == 0 ? $e->get_value("userPassword") : "*", "\n"; |
383 |
384 |
384 print wrap("\t", "\t\t", "Local Adresses: $ml\n") if $ml; |
385 print wrap("\t", "\t\t", "Other Adresses: $ml\n") if $ml; |
385 print wrap("\t", "\t\t", "Mail Groups: $mg\n") if $mg; |
386 print wrap("\t", "\t\t", "Mail Groups: $mg\n") if $mg; |
386 |
387 |
387 } |
388 } |
388 } |
389 } |
389 |
390 |