diff options
| author | fukachan <fukachan> | 2003-12-29 14:49:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-12-29 14:49:09 +0000 |
| commit | 05076b893e0c1038f7f4bbe2c84f13f9b3246f14 (patch) | |
| tree | 992949c2c6f8cd98b197ad202b4c9f77a1b9904e /fml/lib | |
| parent | 02f59c23ee82bb7d95497c17675f33cce3cbd549 (diff) | |
| download | fml8-05076b893e0c1038f7f4bbe2c84f13f9b3246f14.tar.gz fml8-05076b893e0c1038f7f4bbe2c84f13f9b3246f14.tar.bz2 fml8-05076b893e0c1038f7f4bbe2c84f13f9b3246f14.zip | |
implement {get,set}_incoming_message_cache_file_path().
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index 1aeaf6d5..3a91a8cf 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.96 2003/12/24 14:23:36 fukachan Exp $ +# $FML: Utils.pm,v 1.97 2003/12/25 10:28:07 tmu Exp $ # package FML::Process::Utils; @@ -185,6 +185,33 @@ sub incoming_message } +# Descriptions: set the incoming_message cached file path. +# Arguments: OBJ($curproc) STR($path) +# Side Effects: none +# Return Value: none +sub set_incoming_message_cache_file_path +{ + my ($curproc, $path) = @_; + my $pcb = $curproc->pcb(); + if ($path) { + $pcb->set("incoming_message", "file_path", $path); + } +} + + +# Descriptions: get the incoming_message cached file path. +# Arguments: OBJ($curproc) +# Side Effects: none +# Return Value: STR +sub get_incoming_message_cache_file_path +{ + my ($curproc) = @_; + my $pcb = $curproc->pcb(); + my $path = $pcb->set("incoming_message", "file_path"); + return( $path || '' ); +} + + =head1 access METHODS to handle article available only in C<libexec/distribute> process. |