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;