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

1 files changed, 11 insertions, 12 deletions

diff --git a/fripost-newdomain b/fripost-newdomain
index 0e1cb37..3c877e5 100755
--- a/fripost-newdomain
+++ b/fripost-newdomain
@@ -83,8 +83,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<bind_dn>
 
@@ -125,16 +124,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},
-    'owner=s'     => \$conf->{owner},
-    '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},
+    'owner=s'       => \$conf->{owner},
+    '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}; }