diff options
| author | fukachan <fukachan> | 2002-07-14 15:11:01 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-14 15:11:01 +0000 |
| commit | 4345159846ffb68770a0b6794decb84eb5eba9e9 (patch) | |
| tree | e6f5feabe1bcc45adc0eeb386ccdfe2b2d85957f /fml/lib/FML/Process | |
| parent | 08f2209ca2bc93911dcd20eb86e05cbace6a2585 (diff) | |
| download | fml8-4345159846ffb68770a0b6794decb84eb5eba9e9.tar.gz fml8-4345159846ffb68770a0b6794decb84eb5eba9e9.tar.bz2 fml8-4345159846ffb68770a0b6794decb84eb5eba9e9.zip | |
implement which_message_nl()
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 30 |
1 files changed, 29 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index e4fef038..47a18156 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.31 2002/06/30 14:30:17 fukachan Exp $ +# $FML: Utils.pm,v 1.32 2002/07/02 12:48:42 fukachan Exp $ # package FML::Process::Utils; @@ -623,6 +623,34 @@ sub get_address_list } +=head2 which_map_nl($map) + +which member of maps is this $map ? + +=cut + + +sub which_map_nl +{ + my ($curproc, $map) = @_; + my $config = $curproc->{ config }; + my $found = ''; + + SEARCH_MAPS: + for my $mode (qw(member recipient admin_member)) { + my $maps = $config->get_as_array_ref("${mode}_maps"); + for my $m (@$maps) { + if ($map eq $m) { + $found = $mode; + last SEARCH_MAPS; + } + } + } + + return $found; +} + + =head2 article_id_max() return the current article number (sequence number). |