[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;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52