diff options
| author | fukachan <fukachan> | 2002-08-08 03:09:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-08 03:09:45 +0000 |
| commit | 329a2315d569004138526f07467f1ab348ff55e2 (patch) | |
| tree | 475f3d7e613155a73f52633325f75489a2a57507 /fml/lib/FML/Command/UserControl.pm | |
| parent | fd176535c57f5821f419c345a3e60b09c460fba3 (diff) | |
| download | fml8-329a2315d569004138526f07467f1ab348ff55e2.tar.gz fml8-329a2315d569004138526f07467f1ab348ff55e2.tar.bz2 fml8-329a2315d569004138526f07467f1ab348ff55e2.zip | |
change arguments of credential functions to clarify the target address:
e.g. is_member($curproc, $args) -> is_member(addr)
modified functions:
o is_member()
o is_privileged_member()
o is_recipient()
o match_system_accounts()
Diffstat (limited to 'fml/lib/FML/Command/UserControl.pm')
| -rw-r--r-- | fml/lib/FML/Command/UserControl.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/UserControl.pm b/fml/lib/FML/Command/UserControl.pm index 0b6a72d7..5b0adc22 100644 --- a/fml/lib/FML/Command/UserControl.pm +++ b/fml/lib/FML/Command/UserControl.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: UserControl.pm,v 1.15 2002/07/24 09:27:16 fukachan Exp $ +# $FML: UserControl.pm,v 1.16 2002/08/03 13:13:21 fukachan Exp $ # package FML::Command::UserControl; @@ -61,7 +61,7 @@ sub useradd $msg_args->{ _arg_address } = $address; for my $map (@$maplist) { - my $cred = new FML::Credential; + my $cred = new FML::Credential $curproc; unless ($cred->has_address_in_map($map, $config, $address)) { $msg_args->{ _arg_map } = $curproc->which_map_nl($map); @@ -111,7 +111,7 @@ sub userdel $msg_args->{ _arg_address } = $address; for my $map (@$maplist) { - my $cred = new FML::Credential; + my $cred = new FML::Credential $curproc; if ($cred->has_address_in_map($map, $config, $address)) { $msg_args->{ _arg_map } = $curproc->which_map_nl($map); |