searchalias: Add short options

1 files 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<fripost-searchalias> [B<--debug>] [B<--from>] [B<--goto>] [I<goto/from>]
+B<fripost-searchalias> [B<--debug>] [B<-f|--from>] [B<-g|--goto>] [address]
+
+B<fripost-searchalias> [B<--man>]
 
 =head1 DESCRIPTION
 
@@ -48,16 +50,16 @@ The default value is read from the configuration file, see B<CONFIGURATION>.
 The root DN for everything done by B<fripost-searchalias>.
 The default value is read from the configuration file, see B<CONFIGURATION>.
 
-=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);