equal
deleted
inserted
replaced
30 my $opt_port = 8080; |
30 my $opt_port = 8080; |
31 my $opt_lines = 10; |
31 my $opt_lines = 10; |
32 my $opt_daemon = 1; |
32 my $opt_daemon = 1; |
33 my $opt_kill = 0; |
33 my $opt_kill = 0; |
34 my $opt_debug = 0; |
34 my $opt_debug = 0; |
|
35 my $opt_htpasswd = "htpasswd"; |
35 my $opt_ssl = 1; |
36 my $opt_ssl = 1; |
36 my $opt_ssl_cert = "crt.pem"; |
37 my $opt_ssl_cert = "crt.pem"; |
37 my $opt_ssl_key = "key.pem"; |
38 my $opt_ssl_key = "key.pem"; |
38 |
39 |
39 my $ME = basename $0; |
40 my $ME = basename $0; |
171 "daemon!" => \$opt_daemon, |
172 "daemon!" => \$opt_daemon, |
172 "debug!" => \$opt_debug, |
173 "debug!" => \$opt_debug, |
173 "kill" => \$opt_kill, |
174 "kill" => \$opt_kill, |
174 "help" => sub { pod2usage(-verbose => 1, -exitval => 0) }, |
175 "help" => sub { pod2usage(-verbose => 1, -exitval => 0) }, |
175 "man" => sub { pod2usage(-verbose => 2, -exitval => 0) }, |
176 "man" => sub { pod2usage(-verbose => 2, -exitval => 0) }, |
|
177 "htpasswd=s" => \$opt_htpasswd, |
176 "ssl!" => \$opt_ssl, |
178 "ssl!" => \$opt_ssl, |
177 "ssl-cert=s" => \$opt_ssl_cert, |
179 "ssl-cert=s" => \$opt_ssl_cert, |
178 "ssl-key=s" => \$opt_ssl_key |
180 "ssl-key=s" => \$opt_ssl_key |
179 ) or pod2usage(); |
181 ) or pod2usage(); |
180 |
182 |
474 hlog [--[no]daemon] |
476 hlog [--[no]daemon] |
475 [--[no]debug] |
477 [--[no]debug] |
476 [-k|--kill] |
478 [-k|--kill] |
477 [-a|--address address] [-p|--port port] |
479 [-a|--address address] [-p|--port port] |
478 [--lines n] |
480 [--lines n] |
|
481 [--htpasswd path] |
479 [--[no]ssl] |
482 [--[no]ssl] |
480 [--ssl-cert path] |
483 [--ssl-cert path] |
481 [--ssl-key path] |
484 [--ssl-key path] |
482 {file|tag=file ...} |
485 {file|tag=file ...} |
483 |
486 |
504 |
507 |
505 =item B<--[no]debug> |
508 =item B<--[no]debug> |
506 |
509 |
507 Do (or do not) print debug information to STDOUT/ERR and logfile. (default: dont) |
510 Do (or do not) print debug information to STDOUT/ERR and logfile. (default: dont) |
508 |
511 |
509 =item B<--lines> I<lines> |
512 =item B<--htpasswd> I<path> |
510 |
513 |
511 The number of lines to show. (default: 10) |
514 Path to alternate htpasswd file (default: htpasswd) |
512 |
515 |
513 =item B<-k>|B<--kill> |
516 =item B<-k>|B<--kill> |
514 |
517 |
515 With this option the corresponding (address/port) process gets killed. |
518 With this option the corresponding (address/port) process gets killed. |
516 (default: off) |
519 (default: off) |
517 |
520 |
|
521 =item B<--lines> I<lines> |
|
522 |
|
523 The number of lines to show. (default: 10) |
|
524 |
518 =item B<-p>|B<--port> I<port> |
525 =item B<-p>|B<--port> I<port> |
519 |
526 |
520 The port to listen on. (default: 8080) |
527 The port to listen on. (default: 8080) |
521 |
528 |
522 =item B<--[no]ssl> |
529 =item B<--[no]ssl> |
523 |
530 |
524 Enable (or disable) https connections (default: enabled) |
531 Enable (or disable) https connections (default: enabled) |
525 |
532 |
526 =item B<--ssl-cert> |
533 =item B<--ssl-cert> I<path> |
527 |
534 |
528 Path to alternate ssl certificate file (default: crt.pem) |
535 Path to alternate ssl certificate file (default: crt.pem) |
529 |
536 |
530 =item B<--ssl-key> |
537 =item B<--ssl-key> I<path> |
531 |
538 |
532 Path to alternate ssl private key file (default: key.pem) |
539 Path to alternate ssl private key file (default: key.pem) |
533 |
540 |
534 =back |
541 =back |
535 |
542 |