From 68261e8d8cd3e3950f33830f4773a93f85f2df84 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 28 May 2012 02:12:56 +0200 Subject: searchalias: Add short options --- fripost-searchalias | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/fripost-searchalias b/fripost-searchalias index 65f1d4b..a70b900 100755 --- a/fripost-searchalias +++ b/fripost-searchalias @@ -11,7 +11,9 @@ fripost-searchalias - List matching aliases =head1 SYNOPSIS -B [B<--debug>] [B<--from>] [B<--goto>] [I] +B [B<--debug>] [B<-f|--from>] [B<-g|--goto>] [address] + +B [B<--man>] =head1 DESCRIPTION @@ -48,16 +50,16 @@ The default value is read from the configuration file, see B. The root DN for everything done by B. The default value is read from the configuration file, see B. -=item B<--debug> +=item B<-d>, B<--debug> Debug mode. -=item B<--from> +=item B<-f>, B<--from> Match on 'from' addresses. The default is to match both the 'from' and 'goto' address. -=item B<--goto> +=item B<-g>, B<--goto> Match on 'goto' addresses. The default is to match both the 'from' and 'goto' address. @@ -114,10 +116,9 @@ GetOptions( 'base_dn=s' => \$conf->{base_dn}, 'bind_dn=s' => \$conf->{bind_dn}, 'bind_pw=s' => \$conf->{bind_pw}, - 'pretend' => \$conf->{pretend}, - 'debug' => \$conf->{debug}, - 'from' => \$conf->{from}, - 'goto' => \$conf->{goto}, + 'debug|d' => \$conf->{debug}, + 'from|f' => \$conf->{from}, + 'goto|g' => \$conf->{goto}, 'man' => sub { pod2usage(-exitstatus => 0, -verbose => 2) } ) or pod2usage(2); -- cgit v1.2.3