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
32
33
34
35
36

#!/usr/bin/env perl 
use Sietima::Policy;
use Sietima;
use Sietima::MailStore::FS;
use Sietima::CmdLine;
 
my $s = Sietima->with_traits(
    qw(
          NoMail
          ReplyTo
          SubscriberOnly::Moderate
          Headers
          WithAdmin
          Debounce
          SubjectTag
          WithMailStore
  ),
)->new({
    admin => 'dakkar@thenautilus.net',
    mail_store => Sietima::MailStore::FS->new({
        root => '/tmp/sietima-store',
    }),
    return_path => 'dakkar-sietima@thenautilus.net',
    subject_tag => '[Test]',
    subscribers => [
        'dakkar-a@thenautilus.net',
        { address => 'dakkar-b@thenautilus.net', aliases => [ 'dakkar-bis@thenautilus.net' ] },
        { address => 'dakkar-c@thenautilus.net', prefs => { wants_mail => 0 } },
    ],
});
 
my $cli = Sietima::CmdLine->new({
    sietima => $s,
});
 
$cli->run;