diff options
Diffstat (limited to 'bin/maildir-indexer')
-rw-r--r-- | bin/maildir-indexer | 23 |
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() +} |