Unauthenticate binds; LDAP server defaults to ldap://127.0.0.1:389.

1 files changed, 10 insertions, 11 deletions

diff --git a/fripost-newalias b/fripost-newalias
index b638e06..075c43a 100755
--- a/fripost-newalias
+++ b/fripost-newalias
@@ -72,8 +72,7 @@ Valid keys include:
 
 =item I<server_host>
 
-The LDAP URI to connect to. It has to be set, either in the
-configuration file, or using the command line option B<--server_host>.
+The LDAP URI to connect to. Defaults to C<ldap://127.0.0.1:389>.
 
 =item I<admin_email>
 
@@ -123,15 +122,15 @@ use YAML::Syck;
 our $conf = LoadFile( catfile ($HOME, '.fripost.yml') );
 
 GetOptions(
-    'server_host' => \$conf->{server_host},
-    'base_dn=s'   => \$conf->{base_dn},
-    'bind_dn=s'   => \$conf->{bind_dn},
-    'bind_pw=s'   => \$conf->{bind_pw},
-    'pretend'     => \$conf->{pretend},
-    'debug'       => \$conf->{debug},
-    'v|verbose'   => \$conf->{verbose},
-    'man'         => sub { pod2usage(-exitstatus => 0,
-                                     -verbose => 2) }
+    'server_host=s' => \$conf->{server_host},
+    'base_dn=s'     => \$conf->{base_dn},
+    'bind_dn=s'     => \$conf->{bind_dn},
+    'bind_pw=s'     => \$conf->{bind_pw},
+    'pretend'       => \$conf->{pretend},
+    'debug'         => \$conf->{debug},
+    'v|verbose'     => \$conf->{verbose},
+    'man'           => sub { pod2usage(-exitstatus => 0,
+                                       -verbose => 2) }
 ) or pod2usage(2);
 
 sub vsay { say STDERR @_ if $conf->{verbose} || $conf->{debug}; }