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(mkpasswd readconfig useradd usage);

    24 

    25 use Getopt::Long;

    26 use Pod::Usage;

    27 

    28 my ( $user, $expiry, $pass );

    29 

    30 GetOptions(

    31     'u|user=s'   => \$user,

    32     'e|expiry=i' => \$expiry,

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

    34     'm|man'      => sub {

    35         usage(

    36             -exit => 0,

    37 

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

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

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

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

    42             -verbose   => 2

    43         );

    44     },

    45   )

    46   and defined $user

    47   or usage;

    48 

    49 $pass = useradd readconfig, $user, mkpasswd, $expiry;

    50 print "$pass\n";