#!/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;