[siesta-commit] siesta/lib/Siesta/Plugin ListHeaders.pm,NONE,1.1

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv1702

Added Files:
	ListHeaders.pm 
Log Message:
refactor from Send.pm


--- NEW FILE: ListHeaders.pm ---
package Siesta::Plugin::ListHeaders;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';
use vars qw/ $DESCRIPTION /;
$DESCRIPTION = "add RFC2919 List-Id: header";

sub process {
    my $self = shift;
    my $mail = shift;

    my $list = $mail->list;
    my $list_name = $list->id;
    my $address   = $list->post_address;

    $address =~ s/@/./;
    $mail->head->add('List-Id', "$list_name <$post>");

    return;
}

1;

• [siesta-commit] siesta/lib/Siesta/Plugin ListHeaders.pm,NONE,1.1 clampr 18:18 on 23 Aug 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52