diff options
| author | Eric Wong <e@80x24.org> | 2020-09-01 01:15:05 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2020-09-02 08:53:59 +0000 |
| commit | 805d781654e2c2b530de57de2d5241909d187058 (patch) | |
| tree | 5a94b047b656fd905ec3379d7d83ad46020104ff | |
| parent | 08338456f0770a64abb04a8648a77b3742a06b6a (diff) | |
| download | public-inbox-805d781654e2c2b530de57de2d5241909d187058.tar.gz | |
And avoid unnecessary POD markup in the man page.
| -rw-r--r-- | Documentation/public-inbox-watch.pod | 2 | ||||
| -rwxr-xr-x | script/public-inbox-watch | 18 |
2 files changed, 15 insertions, 5 deletions
diff --git a/Documentation/public-inbox-watch.pod b/Documentation/public-inbox-watch.pod index f3e622b0..73340ec4 100644 --- a/Documentation/public-inbox-watch.pod +++ b/Documentation/public-inbox-watch.pod @@ -4,7 +4,7 @@ public-inbox-watch - mailbox watcher for public-inbox =head1 SYNOPSIS -B<public-inbox-watch> + public-inbox-watch In ~/.public-inbox/config: diff --git a/script/public-inbox-watch b/script/public-inbox-watch index b6c6b202..1d164aa3 100755 --- a/script/public-inbox-watch +++ b/script/public-inbox-watch @@ -1,13 +1,24 @@ #!/usr/bin/perl -w # Copyright (C) 2016-2020 all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +my $help = <<EOF; +usage: public-inbox-watch + +See public-inbox-watch(1) man page for full documentation. +EOF + use strict; -use IO::Handle; +use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); +use IO::Handle; # ->autoflush use PublicInbox::Watch; use PublicInbox::Config; use PublicInbox::DS; use PublicInbox::Sigfd; use PublicInbox::Syscall qw($SFD_NONBLOCK); +my $do_scan = 1; +GetOptions('scan!' => \$do_scan, # undocumented, testing only + 'help|h' => \(my $show_help)) or do { print STDERR $help; exit 1 }; +if ($show_help) { print $help; exit 0 }; my $oldset = PublicInbox::Sigfd::block_signals(); STDOUT->autoflush(1); STDERR->autoflush(1); @@ -44,9 +55,8 @@ if ($watch) { $sig->{QUIT} = $sig->{TERM} = $sig->{INT} = $quit; # --no-scan is only intended for testing atm, undocumented. - unless (grep(/\A--no-scan\z/, @ARGV)) { - PublicInbox::DS::requeue($scan); - } + PublicInbox::DS::requeue($scan) if $do_scan; + my $sigfd = PublicInbox::Sigfd->new($sig, $SFD_NONBLOCK); local %SIG = (%SIG, %$sig) if !$sigfd; if (!$sigfd) { |