From ed383be30b435fce3bc8967e60cfbe83b42f1048 Mon Sep 17 00:00:00 2001
From: Dean Hamstead <dean@fragfest.com.au>
Date: Wed, 21 Oct 2015 17:15:35 +1100
Subject: [PATCH] Add --daemon option, which runs this as a daemon.

Exit if the cli options don't make sense
---
 bin/minicpan_webserver | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/bin/minicpan_webserver b/bin/minicpan_webserver
index 3a8026f..acaca22 100755
--- a/bin/minicpan_webserver
+++ b/bin/minicpan_webserver
@@ -14,10 +14,16 @@ use CPAN::Mini::Webserver;
 use Getopt::Long;
 
 my $port = 2963;
-GetOptions( "port=i" => \$port, );
+my $daemon = 0;
+GetOptions( 'port=i' => \$port, daemon => \$daemon ) or exit;
 
 my $server = CPAN::Mini::Webserver->new( $port );
-$server->run;
+if ($daemon) {
+    $server->background;
+}
+else {
+    $server->run;
+}
 
 __END__