diff options
Diffstat (limited to 'bayes')
-rw-r--r-- | bayes | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -3,6 +3,7 @@ use v6.d.PREVIEW; use lib 'lib'; use MaildirIndexer::ScanDir; use MaildirIndexer::Store; +use MaildirIndexer::Parser; sub MAIN($maildir) { my $store = MaildirIndexer::Store.new; @@ -23,10 +24,24 @@ sub MAIN($maildir) { } } + my $listener = IO::Socket::Async.listen( + '127.0.0.1', + 9000, + :enc<utf8-c8>, + ); + react { whenever signal(SIGINT) { exit } whenever signal(SIGHUP) { $store.dump(); } + whenever $listener -> $conn { + LEAVE { $conn.close } + with parse-email($conn) -> $email { + with $store.mailbox-for-email($email) -> $mailbox { + await $conn.print("$mailbox\x0d\x0a"); + } + } + } } } |