diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2015-07-26 03:00:33 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2015-07-26 03:00:33 +0200 |
commit | 4f46df9b18a9b3577e85a6682119d6f4b7d7f782 (patch) | |
tree | 63f4ed3b6b8a7d66532cd5f111a6759eb305f46a /imapsync | |
parent | f3675b5adf9bdb421d668fa7fd894128f2d70a07 (diff) |
Add a brief help.
Diffstat (limited to 'imapsync')
-rwxr-xr-x | imapsync | 17 |
1 files changed, 15 insertions, 2 deletions
@@ -39,10 +39,23 @@ delete @ENV{qw/IFS CDPATH ENV BASH_ENV/}; my %CONFIG; sub usage(;$) { my $rv = shift // 0; - print STDERR "TODO $NAME usage\n"; + print STDERR "$NAME [OPTIONS] [--] [MAILBOX [..]]\n"; + if ($rv) { + print STDERR "Try '$NAME --help' or consult the manpage for more information.\n"; + } + else { + print STDERR "Synchronize the given MAILBOXes between two QRESYNC-capable IMAP4rev1 servers.\n" + ."Options:\n" + ." --config=FILE Specify an alternate configuration file\n" + ." -1, --oneshot Exit as soon as all mailboxes are synchronized\n" + ." --repair List the database anomalies and try to repair them\n" + ." -q, --quiet Try to be quiet\n" + ." --debug Turn on debug mode\n" + ."Consult the manpage for more information.\n"; + } exit $rv; } -usage(1) unless GetOptions(\%CONFIG, qw/debug help|h config=s quiet|q oneshot|1 repair/); +usage(1) unless GetOptions(\%CONFIG, qw/config=s quiet|q oneshot|1 repair debug help|h/); usage(0) if $CONFIG{help}; |