diff options
| author | fukachan <fukachan> | 2005-01-01 07:16:12 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-01-01 07:16:12 +0000 |
| commit | 0e446dac14f5980de550c1fc04ef6b102e623b20 (patch) | |
| tree | 90e5bebe0505f3a73321cd0c1c265aa49c7cc7fd /fml/lib | |
| parent | af94495b39fbb86e3e8271cac9477af493536719 (diff) | |
| download | fml8-0e446dac14f5980de550c1fc04ef6b102e623b20.tar.gz fml8-0e446dac14f5980de550c1fc04ef6b102e623b20.tar.bz2 fml8-0e446dac14f5980de550c1fc04ef6b102e623b20.zip | |
handle X-Stardate: and Precedence: header field
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Header.pm | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index a8d527bd..047a0d76 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.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: Header.pm,v 1.79 2004/10/28 03:34:47 fukachan Exp $ +# $FML: Header.pm,v 1.80 2004/12/30 04:23:34 fukachan Exp $ # package FML::Header; @@ -525,6 +525,44 @@ sub rewrite_date } +# Descriptions: add/rewrite startrek stardate if needed. +# Arguments: OBJ($header) OBJ($config) HASH_REF($rw_args) +# Side Effects: update $header +# Return Value: none +sub rewrite_stardate +{ + my ($header, $config, $rw_args) = @_; + + use Mail::Message::Date; + my $nowdate = new Mail::Message::Date time; + my $stardate = $nowdate->stardate(); + if ($header->get('X-Stardate')) { + $header->replace('X-Stardate', $stardate); + } + else { + $header->add('X-Stardate', $stardate); + } +} + + +# Descriptions: add/rewrite Precedence: field if needed. +# Arguments: OBJ($header) OBJ($config) HASH_REF($rw_args) +# Side Effects: update $header +# Return Value: none +sub rewrite_precedence +{ + my ($header, $config, $rw_args) = @_; + my $precedence = $config->{ outgoing_mail_header_precedence } || 'bulk'; + + if ($header->get('Precedence')) { + $header->replace('Precedence', $precedence); + } + else { + $header->add('Precedence', $precedence); + } +} + + # Descriptions: rewrite Received: to X-Received: if needed. # Arguments: OBJ($header) OBJ($config) HASH_REF($rw_args) # Side Effects: update $header |