--- a/.hgignore	Wed Nov 25 16:37:40 2009 +0100
+++ b/.hgignore	Wed Nov 25 16:51:14 2009 +0100
@@ -1,5 +1,7 @@
 syntax regexp:
+^hg\.log$
 ^hlog\.1\.gz$
 ^hlog$
+^htpasswd$
 ^t$
 ^(key|crt)\.pem$

--- 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<lines>
+=item B<--htpasswd> I<path>
 
-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<lines>
+
+The number of lines to show. (default: 10)
+
 =item B<-p>|B<--port> I<port>
 
 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>
 
 Path to alternate ssl certificate file (default: crt.pem)
 
-=item B<--ssl-key>
+=item B<--ssl-key> I<path>
 
 Path to alternate ssl private key file (default: key.pem)