better name

1 files changed, 23 insertions, 0 deletions

diff --git a/bin/maildir-indexer b/bin/maildir-indexer
new file mode 100644
index 0000000..7383736
--- /dev/null
+++ b/bin/maildir-indexer
@@ -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()
+}