[siesta-dev] RFC2369 (was Re: (unsub|sub|))

[prev] [thread] [next] [lurker] [Date index for 2002/09/17]

On Mon, Sep 16, 2002 at 11:04:19PM +0100, Richard Clamp wrote:
>They're just entries in your /etc/aliases file, so you can paint them
>whatever colour you like.
>
>foo-sub: "|/usr/local/bin/tequila foo sub"
>sub-foo: "|/usr/local/bin/tequila foo sub"

Helps if the list knows about them, though - see RFC2369. In fact, see
below; I've been thinking about a Perl-based MLM for a while, so could I
have write access to the repository?

Roger


package Siesta::Plugin::MoreListHeaders;
use strict;
use Siesta::Plugin;
use base 'Siesta::Plugin';
use vars qw/ $DESCRIPTION /;
$DESCRIPTION = "add the six RFC2369 headers";

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

    my $list           = $mail->list;
    my $post_address   = $list->post_address;
    my $owner          = $list->owner;
    
    my $sub_address = $post_address;
    $sub_address =~ s/@/-sub@/;
    my $unsub_address = $post_address;
    $unsub_address =~ s/@/-unsub@/;

    $mail->head->add( 'List-Help', "<mailto:$owner>"; );
    $mail->head->add( 'List-Unsubscribe', "<mailto:$unsub_address>"; );
    $mail->head->add( 'List-Subscribe', "<mailto:$sub_address>"; );
    $mail->head->add( 'List-Post', "<mailto:$post_address>"; );
    $mail->head->add( 'List-Owner', "<mailto:$post_address>"; );
    $mail->head->add( 'List-Archive', 'NO' );

    return;
}

1;

• Re: [siesta-dev] (unsub|sub|) Richard Clamp 23:04 on 16 Sep 2002
  • [siesta-dev] RFC2369 (was Re: (unsub|sub|)) Roger Burton West 10:09 on 17 Sep 2002

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