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