Date: Sat, 28 May 2016 18:44:52 +0000 (UTC) From: =?UTF-8?Q?Dag-Erling_Sm=c3=b8rgrav?= <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r300908 - user/des/fbce/lib/FBCE/Script Message-ID: <201605281844.u4SIiqFt042186@repo.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: des Date: Sat May 28 18:44:52 2016 New Revision: 300908 URL: https://svnweb.freebsd.org/changeset/base/300908 Log: Rename the file and tarball options. Add author and license. Modified: user/des/fbce/lib/FBCE/Script/User.pm Modified: user/des/fbce/lib/FBCE/Script/User.pm ============================================================================== --- user/des/fbce/lib/FBCE/Script/User.pm Sat May 28 18:28:28 2016 (r300907) +++ user/des/fbce/lib/FBCE/Script/User.pm Sat May 28 18:44:52 2016 (r300908) @@ -26,7 +26,7 @@ has dryrun => ( documentation => q{Dry run}, ); -has tarball => ( +has pwtarball => ( traits => [qw(Getopt)], cmd_aliases => 't', isa => Str, @@ -35,7 +35,7 @@ has tarball => ( default => 'fbce-passwords.tgz', ); -has file => ( +has pwfile => ( traits => [qw(Getopt)], cmd_aliases => 'f', isa => Str, @@ -305,10 +305,10 @@ sub cmd_pwgen($@) { if @argv; # Please don't overwrite an existing password tarball! - my $tarball = $self->tarball; + my $tarball = $self->pwtarball; die("$tarball exists, delete or move and try again\n") if -e $tarball; - my $pwfile = $self->file; + my $pwfile = $self->pwfile; # Generate enough passwords for everybody my $persons = FBCE->model('FBCE::Person')-> @@ -375,3 +375,14 @@ __PACKAGE__->meta->make_immutable; 1; # $FreeBSD$ + +=head1 AUTHOR + +Dag-Erling Smørgrav + +=head1 LICENSE + +This library is free software. You can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201605281844.u4SIiqFt042186>