diff options
Diffstat (limited to 'fripost-newalias')
| -rwxr-xr-x | fripost-newalias | 21 |
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}; } |