From 5f15ee93f79af5af0ee064ffdb5c03f2af14ee3a Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Wed, 18 Apr 2012 22:28:17 +0200 Subject: Unauthenticate binds; LDAP server defaults to ldap://127.0.0.1:389. --- fripost-passwd | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'fripost-passwd') diff --git a/fripost-passwd b/fripost-passwd index d6abe3f..f508e9d 100755 --- a/fripost-passwd +++ b/fripost-passwd @@ -41,8 +41,7 @@ only a hash, for example. =item B<--server_host=>I -The LDAP URI to connect to. -The default value is read from the configuration file, see B. +The LDAP URI to connect to. Defaults to C. =item B<--bind_dn=>I @@ -118,16 +117,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 vsay { say STDERR @_ if $conf->{verbose} || $conf->{debug}; } -- cgit v1.2.3