diff options
| author | fukachan <fukachan> | 2003-11-30 09:59:17 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-30 09:59:17 +0000 |
| commit | ba63f5f3b7154c090f72b898ecf48255ff48b874 (patch) | |
| tree | 5bc92ce58582d5f98911bd15a9adb7f002fe005d /fml/lib/FML/Command/Auth.pm | |
| parent | 4934a4bd50caf85890f30cfcc08734bc159f600f (diff) | |
| download | fml8-ba63f5f3b7154c090f72b898ecf48255ff48b874.tar.gz fml8-ba63f5f3b7154c090f72b898ecf48255ff48b874.tar.bz2 fml8-ba63f5f3b7154c090f72b898ecf48255ff48b874.zip | |
system_accounts -> system_special_accounts.
XXX xxx_restrictions supports "reject_system_accounts" for backward
XXX compatiblity.
Diffstat (limited to 'fml/lib/FML/Command/Auth.pm')
| -rw-r--r-- | fml/lib/FML/Command/Auth.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm index 125611f8..bb320381 100644 --- a/fml/lib/FML/Command/Auth.pm +++ b/fml/lib/FML/Command/Auth.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: Auth.pm,v 1.27 2003/08/23 07:24:41 fukachan Exp $ +# $FML: Auth.pm,v 1.28 2003/08/29 15:33:57 fukachan Exp $ # package FML::Command::Auth; @@ -98,15 +98,15 @@ sub permit_admin_member_maps # Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs) # Side Effects: none # Return Value: NUM or STR (__LAST__, a special upcall) -sub reject_system_accounts +sub reject_system_special_accounts { my ($self, $curproc, $args, $optargs) = @_; my $cred = $curproc->{ credential }; my $sender = $cred->sender(); - my $match = $cred->match_system_accounts($sender); + my $match = $cred->match_system_special_accounts($sender); if ($match) { - $curproc->log("reject_system_accounts: matches the sender"); + $curproc->log("reject_system_special_accounts: matches the sender"); return '__LAST__'; } |