From 15631b54726b191cbd43cac8e4265e7ff232919e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 29 Dec 2019 12:03:46 +0000
Subject: change port from cmdline

---
 bin/maildir-indexer           | 4 ++--
 lib/MaildirIndexer/Server.pm6 | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/maildir-indexer b/bin/maildir-indexer
index 7383736..abca41d 100644
--- a/bin/maildir-indexer
+++ b/bin/maildir-indexer
@@ -7,7 +7,7 @@ use MaildirIndexer::Server;
 use MaildirIndexer::Index::ByRef;
 use MaildirIndexer::Index::ByAddresses;
 
-sub MAIN($maildir) {
+sub MAIN($maildir,Int :$port = 9000) {
     my $file-channel = scan-dir($maildir).Channel;
     my $store = MaildirIndexer::Store.new(
         :$file-channel,
@@ -17,7 +17,7 @@ sub MAIN($maildir) {
         ),
     );
 
-    my $server = MaildirIndexer::Server.new(:$store);
+    my $server = MaildirIndexer::Server.new(:$store,:$port);
     $store.start();
     $server.serve()
 }
diff --git a/lib/MaildirIndexer/Server.pm6 b/lib/MaildirIndexer/Server.pm6
index 0172cf8..07dfb4a 100644
--- a/lib/MaildirIndexer/Server.pm6
+++ b/lib/MaildirIndexer/Server.pm6
@@ -10,7 +10,7 @@ has MaildirIndexer::Store $.store is required;
 method serve() {
     my $listener = IO::Socket::Async.listen(
         '127.0.0.1',
-        9000,
+        $.port,
         :enc<utf8-c8>,
     );
 
-- 
cgit v1.2.3