account.pm
changeset 2 a8bab3a3ec80
parent 0 2a5f2464f8c6
child 4 8e4b6dd8fa54
equal deleted inserted replaced
1:5c55c8f7986a 2:a8bab3a3ec80
   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