example/sietima


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/usr/bin/env perl 
use FindBin::libs;
use Sietima::Policy;
use Sietima::CmdLine;
 
Sietima::CmdLine->new({
    traits => [qw(
                     NoMail
                     ReplyTo
                     Headers
                     WithOwner
                     Debounce
                     SubjectTag
                     SubscriberOnly::Moderate
                     WithMailStore
             )],
    args => {
        owner => 'dakkar@thenautilus.net',
        mail_store => {
            class => 'Sietima::MailStore::FS',
            root => '/tmp/sietima-store',
        },
        return_path => 'dakkar-sietima@thenautilus.net',
        subject_tag => 'Test',
        subscribers => [
            'dakkar-a@thenautilus.net',
            { primary => 'dakkar-b@thenautilus.net', aliases => [ 'dakkar-bis@thenautilus.net' ] },
            { primary => 'dakkar-c@thenautilus.net', prefs => { wants_mail => 0 } },
        ],
    },
})->run;