command line handling

1 files changed, 36 insertions, 0 deletions

diff --git a/example/sietima b/example/sietima
new file mode 100644
index 0000000..e5d33c2
--- /dev/null
+++ b/example/sietima
@@ -0,0 +1,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;