From 2362fc13b8e79618e285d9cd1817819381d7d0a4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 27 Dec 2016 15:27:23 +0000
Subject: command line handling

---
 example/sietima | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 example/sietima

(limited to 'example')

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;
-- 
cgit v1.2.3