1 #!/usr/bin/perl

     2 

     3 #    Copyright (C) 2011  Matthias Förste

     4 #

     5 #    This program is free software: you can redistribute it and/or modify

     6 #    it under the terms of the GNU General Public License as published by

     7 #    the Free Software Foundation, either version 3 of the License, or

     8 #    (at your option) any later version.

     9 #

    10 #    This program is distributed in the hope that it will be useful,

    11 #    but WITHOUT ANY WARRANTY; without even the implied warranty of

    12 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    13 #    GNU General Public License for more details.

    14 #

    15 #    You should have received a copy of the GNU General Public License

    16 #    along with this program.  If not, see <http://www.gnu.org/licenses/>.

    17 #

    18 #    Matthias Förste <foerste@schlittermann.de>

    19 

    20 use strict;

    21 use warnings;

    22 

    23 use Ius::Dav::Htpasswd qw(readconfig userexpiry usage);

    24 

    25 use Getopt::Long;

    26 use Pod::Usage;

    27 

    28 GetOptions(

    29     'h|help' => sub { usage( -exit => 0, -verbose => 1 ) },

    30     'm|man'  => sub {

    31         usage(

    32             -exit => 0,

    33 

    34             # "system('perldoc -V &>/dev/null')" appears shorter, but may not

    35             # do what you expect ( it still returns 0 on debian squeeze with

    36             # dash as system shell even if cannot find the command in $PATH)

    37             -noperldoc => system('perldoc -V >/dev/null 2>&1'),

    38             -verbose   => 2

    39         );

    40     },

    41 ) or usage;

    42 

    43 exit userexpiry readconfig;