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

[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;

• [siesta-commit] siesta/lib/Siesta/Plugin ReplyTo.pm,NONE,1.1 muttley 10:09 on 28 Aug 2002

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