diff options
| author | fukachan <fukachan> | 2004-01-02 02:11:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-02 02:11:25 +0000 |
| commit | 25d833bdd1daedd513f038da4d6dc72b499bd9e4 (patch) | |
| tree | 6c46ce19a00f1c3ab1292aeff368033bc37993e4 /fml/lib/FML/Process/Kernel.pm | |
| parent | 63f8e58437c9515050415f9a619348c478d39c2b (diff) | |
| download | fml8-25d833bdd1daedd513f038da4d6dc72b499bd9e4.tar.gz fml8-25d833bdd1daedd513f038da4d6dc72b499bd9e4.tar.bz2 fml8-25d833bdd1daedd513f038da4d6dc72b499bd9e4.zip | |
$curproc->resolve_ml_specific_variables( $args );
$curproc->load_config_files( $args->{ cf_list } );
=>
$curproc->resolve_ml_specific_variables();
my $cf_list = $curproc->get_config_files_list();
$curproc->load_config_files($cf_list);
$curproc->parse_incoming_message($args);
=>
$curproc->parse_incoming_message();
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 5bf560d3..11b83249 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.200 2003/12/30 03:53:53 fukachan Exp $ +# $FML: Kernel.pm,v 1.201 2004/01/01 23:52:16 fukachan Exp $ # package FML::Process::Kernel; @@ -627,7 +627,7 @@ with considering virtual domains. # Return Value: none sub resolve_ml_specific_variables { - my ($curproc, $args) = @_; + my ($curproc) = @_; my ($ml_name, $ml_domain, $ml_home_prefix, $ml_home_dir); my ($command, @options, $config_cf_path); my $config = $curproc->config(); @@ -778,8 +778,7 @@ sub resolve_ml_specific_variables $curproc->__debug_ml_xxx('resolv:'); # add this ml's config.cf to the .cf list. - my $list = $args->{ cf_list }; - push(@$list, $config_cf_path); + $curproc->append_to_config_files_list($config_cf_path); } else { $curproc->logerror("cannot determine which ml_name"); @@ -956,7 +955,7 @@ The C<body> is C<Mail::Message> object. # Return Value: none sub parse_incoming_message { - my ($curproc, $args) = @_; + my ($curproc) = @_; # parse incoming mail to cut off it to the header and the body. use FML::Parse; |