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 /bayes | |
parent | kill p5 program (diff) | |
download | MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.tar.gz MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.tar.bz2 MaildirIndexer-852f60e7303687253d8a31224a82baa2a0eb23b4.zip |
more standard layout & meta
Diffstat (limited to 'bayes')
-rw-r--r-- | bayes | 23 |
1 files changed, 0 insertions, 23 deletions
@@ -1,23 +0,0 @@ -#!/usr/bin/env perl6 -use v6.d; -use lib $?FILE.IO.parent.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() -} |