diff options
| author | fukachan <fukachan> | 2005-12-19 11:29:26 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-19 11:29:26 +0000 |
| commit | 4585a6ef2e9e10212610d7db9778a39a25cab296 (patch) | |
| tree | 5470226e091cb5636cdb732d24f50f50f032cdf3 /fml/lib/FML/Credential.pm | |
| parent | 5a668426d55a1969732bfe4b027e3900ff76bef5 (diff) | |
| download | fml8-4585a6ef2e9e10212610d7db9778a39a25cab296.tar.gz fml8-4585a6ef2e9e10212610d7db9778a39a25cab296.tar.bz2 fml8-4585a6ef2e9e10212610d7db9778a39a25cab296.zip | |
implement is_moderator_member()
Diffstat (limited to 'fml/lib/FML/Credential.pm')
| -rw-r--r-- | fml/lib/FML/Credential.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index a60742a0..19571dad 100644 --- a/fml/lib/FML/Credential.pm +++ b/fml/lib/FML/Credential.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: Credential.pm,v 1.64 2005/11/30 23:37:56 fukachan Exp $ +# $FML: Credential.pm,v 1.65 2005/12/11 13:10:25 fukachan Exp $ # package FML::Credential; @@ -356,6 +356,24 @@ sub is_recipient } +# Descriptions: sender of the current process is an ML moderator member or not. +# Arguments: OBJ($self) STR($address) +# Side Effects: none +# Return Value: NUM(1 or 0) +sub is_moderator_member +{ + my ($self, $address) = @_; + my $curproc = $self->{ _curproc }; + my $config = $curproc->config(); + my $member_maps = $config->get_as_array_ref('moderator_member_maps'); + + $self->_is_member({ + address => $address, + member_maps => $member_maps, + }); +} + + # Descriptions: compare the specified address included in the specified maps. # Arguments: OBJ($self) HASH_REF($optargs) # Side Effects: none |