diff options
Diffstat (limited to 'fripost-passwd')
| -rwxr-xr-x | fripost-passwd | 23 |
1 files changed, 11 insertions, 12 deletions
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<host> -The LDAP URI to connect to. -The default value is read from the configuration file, see B<CONFIGURATION>. +The LDAP URI to connect to. Defaults to C<ldap://127.0.0.1:389>. =item B<--bind_dn=>I<binddn> @@ -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}; } |