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

1 files changed, 11 insertions, 12 deletions

diff --git a/fripost-adduser b/fripost-adduser
index f509e49..a785f07 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -82,8 +82,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>
 
@@ -133,16 +132,16 @@ 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},
-    'password=s'  => \$conf->{password},
-    '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},
+    'password=s'    => \$conf->{password},
+    'man'           => sub { pod2usage(-exitstatus => 0,
+                                       -verbose => 2) }
 ) or pod2usage(2);
 
 sub dsay { say STDERR @_ if $conf->{debug}; }