diff options
author | dakkar <dakkar@thenautilus.net> | 2019-12-29 12:03:46 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2019-12-29 12:03:46 +0000 |
commit | 15631b54726b191cbd43cac8e4265e7ff232919e (patch) | |
tree | a0c3befe23697dbd9727782d1d8edea7c4309e30 | |
parent | add missing dep (diff) | |
download | MaildirIndexer-15631b54726b191cbd43cac8e4265e7ff232919e.tar.gz MaildirIndexer-15631b54726b191cbd43cac8e4265e7ff232919e.tar.bz2 MaildirIndexer-15631b54726b191cbd43cac8e4265e7ff232919e.zip |
change port from cmdline
-rw-r--r-- | bin/maildir-indexer | 4 | ||||
-rw-r--r-- | 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>, ); |