diff options
Diffstat (limited to 'bin/maildir-indexer')
-rw-r--r-- | bin/maildir-indexer | 4 |
1 files changed, 2 insertions, 2 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() } |