X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=aap-passwd;h=e50f3eadfc7f233adea1fcf112f34499469e939c;hb=HEAD;hp=69d892dce8f9c758aceb91881c98314e16c22f29;hpb=8443f44e6c18f408210ea542717f8963f8036d0c;p=apache2-authen-passphrase.git

diff --git a/aap-passwd b/aap-passwd
index 69d892d..e50f3ea 100644
--- a/aap-passwd
+++ b/aap-passwd
@@ -9,8 +9,8 @@ use Apache2::Authen::Passphrase qw/pwset USER_REGEX/;
 
 use IO::Prompter [qw/-e* -stdio/];
 
-die "Usage: aap-passwd [rootdir] username\n" if @ARGV == 0 || @ARGV > 1;
-($Apache2::Authen::Passphrase::rootdir) = (shift =~ /(.*)/s) if $#ARGV == 1;
+die "Usage: aap-passwd [rootdir] username\n" if @ARGV == 0 || @ARGV > 2;
+($Apache2::Authen::Passphrase::rootdir) = (shift =~ /(.*)/s) if @ARGV == 2;
 
 my $username = shift;
 die "Invalid username\n" unless $username =~ USER_REGEX;
@@ -66,22 +66,11 @@ Marius Gavrilescu C<< <marius@ieval.ro> >>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2013 Marius Gavrilescu
+Copyright (C) 2013-2015 by Marius Gavrilescu
 
-This file is part of fonbotd.
-
-fonbotd is free software: you can redistribute it and/or modify
-it under the terms of the GNU Affero General Public License as published by
-the Free Software Foundation, either version 3 of the License, or
-(at your option) any later version.
-
-fonbotd is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU Affero General Public License for more details.
-
-You should have received a copy of the GNU Affero General Public License
-along with fonbotd.  If not, see <http://www.gnu.org/licenses/>
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.14.2 or,
+at your option, any later version of Perl 5 you may have available.
 
 
 =cut