diff options
author | dakkar <dakkar@thenautilus.net> | 2019-12-29 11:44:47 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2019-12-29 11:46:22 +0000 |
commit | 852f60e7303687253d8a31224a82baa2a0eb23b4 (patch) | |
tree | 1dc1832c2a0be49220aa3d6a5c195baff016d60c /bin | |
parent | kill p5 program (diff) | |
download | MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.tar.gz MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.tar.bz2 MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.zip |
more standard layout & meta
Diffstat (limited to 'bin')
-rw-r--r-- | bin/bayes | 23 |
1 files changed, 23 insertions, 0 deletions
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() +} |