diff options
| author | fukachan <fukachan> | 2004-04-02 11:51:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-02 11:51:32 +0000 |
| commit | 22badc0f8dd437f6a97ef5f3766f3a3922b0d632 (patch) | |
| tree | dae79d45638d1f0a906e38ee7a8be6ec53f6483c /fml/lib/FML/Process | |
| parent | f9d5b36215fa9a156b063291ea13bf4c271f8542 (diff) | |
| download | fml8-22badc0f8dd437f6a97ef5f3766f3a3922b0d632.tar.gz fml8-22badc0f8dd437f6a97ef5f3766f3a3922b0d632.tar.bz2 fml8-22badc0f8dd437f6a97ef5f3766f3a3922b0d632.zip | |
define fml_owner_address()
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index fbdae955..89224c50 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.109 2004/03/23 04:20:46 fukachan Exp $ +# $FML: Utils.pm,v 1.110 2004/03/23 06:34:17 fukachan Exp $ # package FML::Process::Utils; @@ -680,6 +680,20 @@ sub fml_owner } +# Descriptions: return fml owner mail address. +# Arguments: OBJ($curproc) +# Side Effects: none +# Return Value: STR +sub fml_owner_address +{ + my ($curproc) = @_; + my $owner = $curproc->fml_owner(); + my $ml_domain = $curproc->ml_domain(); + + return sprintf("%s%s%s", $owner, '@', $ml_domain); +} + + # Descriptions: return fml group. # Arguments: OBJ($curproc) # Side Effects: none |