[prev] [thread] [next] [lurker] [Date index for 2002/08/28]
Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv24429/lib/Siesta/Plugin Added Files: ReplyTo.pm Log Message: We now have reply-to munging a a plugin. Once the config stuff is sorted out then it will be read from the config. --- NEW FILE: ReplyTo.pm --- package Siesta::Plugin::ReplyTo; use strict; use Siesta::Plugin; use base 'Siesta::Plugin'; use vars qw/ $DESCRIPTION $MUNGE/; $DESCRIPTION = "Munges the Reply-To header to the list address, not the person who sent it"; # see : # http://www.unicom.com/pw/reply-to-harmful.html # http://www.metasystema.org/essays/reply-to-useful.mhtml # http://thegestalt.org/simon/replytorant.html # http://www.deez.info/sengelha/writings/considered-harmful/ # for various for and against arguments thrashed out by the great # and the good and for why I don't care. Feel free to argue about # this to your hearts content - the monkeys dance for my pleasure. # # DNACE MONKEYS! DANCE! $MUNGE = 1; sub process { my $self = shift; my $mail = shift; my $list = $mail->list; my $post_address = $mail->list->post_address; chomp $post_address; return $mail->head->replace('Reply-To', $post_address) if $MUNGE; return 1; } 1;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52