diff -r 48dd98dbede0 -r 22104f5d42ca hlog.pl --- a/hlog.pl Wed Nov 25 16:37:40 2009 +0100 +++ b/hlog.pl Wed Nov 25 16:51:14 2009 +0100 @@ -32,6 +32,7 @@ my $opt_daemon = 1; my $opt_kill = 0; my $opt_debug = 0; +my $opt_htpasswd = "htpasswd"; my $opt_ssl = 1; my $opt_ssl_cert = "crt.pem"; my $opt_ssl_key = "key.pem"; @@ -173,6 +174,7 @@ "kill" => \$opt_kill, "help" => sub { pod2usage(-verbose => 1, -exitval => 0) }, "man" => sub { pod2usage(-verbose => 2, -exitval => 0) }, + "htpasswd=s" => \$opt_htpasswd, "ssl!" => \$opt_ssl, "ssl-cert=s" => \$opt_ssl_cert, "ssl-key=s" => \$opt_ssl_key @@ -476,6 +478,7 @@ [-k|--kill] [-a|--address address] [-p|--port port] [--lines n] + [--htpasswd path] [--[no]ssl] [--ssl-cert path] [--ssl-key path] @@ -506,15 +509,19 @@ Do (or do not) print debug information to STDOUT/ERR and logfile. (default: dont) -=item B<--lines> I +=item B<--htpasswd> I -The number of lines to show. (default: 10) +Path to alternate htpasswd file (default: htpasswd) =item B<-k>|B<--kill> With this option the corresponding (address/port) process gets killed. (default: off) +=item B<--lines> I + +The number of lines to show. (default: 10) + =item B<-p>|B<--port> I The port to listen on. (default: 8080) @@ -523,11 +530,11 @@ Enable (or disable) https connections (default: enabled) -=item B<--ssl-cert> +=item B<--ssl-cert> I Path to alternate ssl certificate file (default: crt.pem) -=item B<--ssl-key> +=item B<--ssl-key> I Path to alternate ssl private key file (default: key.pem)