From 852f60e7303687253d8a31224a82baa2a0eb23b4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 29 Dec 2019 11:44:47 +0000
Subject: more standard layout & meta

---
 bin/bayes | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 bin/bayes

(limited to 'bin')

diff --git a/bin/bayes b/bin/bayes
new file mode 100644
index 0000000..7383736
--- /dev/null
+++ b/bin/bayes
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl6
+use v6.d;
+use lib $?FILE.IO.parent(2).child('lib');
+use MaildirIndexer::ScanDir;
+use MaildirIndexer::Store;
+use MaildirIndexer::Server;
+use MaildirIndexer::Index::ByRef;
+use MaildirIndexer::Index::ByAddresses;
+
+sub MAIN($maildir) {
+    my $file-channel = scan-dir($maildir).Channel;
+    my $store = MaildirIndexer::Store.new(
+        :$file-channel,
+        indices => (
+            MaildirIndexer::Index::ByRef.new,
+            MaildirIndexer::Index::ByAddresses.new,
+        ),
+    );
+
+    my $server = MaildirIndexer::Server.new(:$store);
+    $store.start();
+    $server.serve()
+}
-- 
cgit v1.2.3