diff options
| author | fukachan <fukachan> | 2002-01-20 15:06:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-01-20 15:06:45 +0000 |
| commit | 6c7aeb9cc77c5d047a7cec184e52a56c3d9770a5 (patch) | |
| tree | 32846ec0d9f2edc329000ee8c0a29c27ef7047f7 /fml | |
| parent | 7cd90cbe15a58b58953a2f3ca9d050a7938e952d (diff) | |
| download | fml8-6c7aeb9cc77c5d047a7cec184e52a56c3d9770a5.tar.gz fml8-6c7aeb9cc77c5d047a7cec184e52a56c3d9770a5.tar.bz2 fml8-6c7aeb9cc77c5d047a7cec184e52a56c3d9770a5.zip | |
implement get_virtual_maps()
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 32 |
1 files changed, 31 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index 5eedf406..7e6e0821 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.5 2001/12/22 09:21:10 fukachan Exp $ +# $FML: Utils.pm,v 1.6 2001/12/23 11:37:08 fukachan Exp $ # package FML::Process::Utils; @@ -142,6 +142,36 @@ sub command_line_options } +=head2 get_virtual_maps() + +return virtual maps. + +=cut + + +# Descriptions: options, which is the result by getopts() analyze +# Arguments: OBJ($curproc) +# Side Effects: none +# Return Value: HASH_ARRAY +sub get_virtual_maps +{ + my ($curproc) = @_; + my $args = $curproc->{ __parent_args }->{ main_cf }; + + if (defined $args->{ virtual_maps } && $args->{ virtual_maps }) { + my (@r) = (); + my (@maps) = split(/\s+/, $args->{ virtual_maps }); + for (@maps) { + if (-f $_) { push(@r, $_);} + } + return \@r; + } + else { + return undef; + } +} + + =head2 article_id_max() return the current article number (sequence number). |