diff options
| author | fukachan <fukachan> | 2005-08-17 10:42:41 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-17 10:42:41 +0000 |
| commit | 26b99ce5b35b60536dc1f00d777a340c106c36bb (patch) | |
| tree | 1bf4717a4d0dcf64695984e23098feeb71710b66 /fml/lib/FML/User | |
| parent | 41e2f697ec5326de6cb5e90b8489be636c102149 (diff) | |
| download | fml8-26b99ce5b35b60536dc1f00d777a340c106c36bb.tar.gz fml8-26b99ce5b35b60536dc1f00d777a340c106c36bb.tar.bz2 fml8-26b99ce5b35b60536dc1f00d777a340c106c36bb.zip | |
align methond name user_XXX: changed userXXX() -> user_XXX().
follow FML::User::Info changes (import_from_mail_header() -> add()).
Diffstat (limited to 'fml/lib/FML/User')
| -rw-r--r-- | fml/lib/FML/User/Control.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/fml/lib/FML/User/Control.pm b/fml/lib/FML/User/Control.pm index ceaf28b4..53dfe5a4 100644 --- a/fml/lib/FML/User/Control.pm +++ b/fml/lib/FML/User/Control.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: Control.pm,v 1.14 2004/07/23 13:09:38 fukachan Exp $ +# $FML: Control.pm,v 1.15 2004/12/05 16:19:13 fukachan Exp $ # package FML::User::Control; @@ -59,7 +59,7 @@ sub new # OBJ($curproc) HASH_REF($command_args) HASH_REF($uc_args) # Side Effects: update maps, croak() if crical error. # Return Value: none -sub useradd +sub user_add { my ($self, $curproc, $command_args, $uc_args) = @_; my $config = $curproc->config(); @@ -145,14 +145,12 @@ sub useradd # update user database. if ($curproc->is_under_mta_process()) { - my $info_args = { - address => $address, - }; - eval q{ use FML::User::Info; my $user_info = new FML::User::Info $curproc; - $user_info->import_from_mail_header($curproc, $info_args); + $user_info->add({ + address => $address, + }); }; $curproc->logerror($@) if $@; } @@ -164,7 +162,7 @@ sub useradd # OBJ($curproc) HASH_REF($command_args) HASH_REF($uc_args) # Side Effects: update maps # Return Value: none -sub userdel +sub user_del { my ($self, $curproc, $command_args, $uc_args) = @_; my $config = $curproc->config(); |