simpler command-line script

1 files changed, 27 insertions, 32 deletions

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;