From 22480aff9a02cfba3e11694a1180ad18cf57ccf2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Wed, 28 Dec 2016 17:46:34 +0000
Subject: simpler command-line script

---
 example/sietima | 59 ++++++++++++++++++++++++++-------------------------------
 1 file changed, 27 insertions(+), 32 deletions(-)

(limited to 'example')

diff --git a/example/sietima b/example/sietima
index 5dbe2d1..4fafeb3 100755
--- a/example/sietima
+++ b/example/sietima
@@ -1,36 +1,31 @@
 #!/usr/bin/env perl
+use FindBin::libs;
 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;
+Sietima::CmdLine->new({
+    traits => [qw(
+                     NoMail
+                     ReplyTo
+                     SubscriberOnly::Moderate
+                     Headers
+                     WithAdmin
+                     Debounce
+                     SubjectTag
+                     WithMailStore
+             )],
+    args => {
+        admin => 'dakkar@thenautilus.net',
+        mail_store => {
+            class => 'Sietima::MailStore::FS',
+            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 } },
+        ],
+    },
+})->run;
-- 
cgit v1.2.3