diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2010-12-31 05:57:21 +0100 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2010-12-31 05:57:21 +0100 |
commit | b30fb0d7e1b16d60a769fa4c5d8053420cf06774 (patch) | |
tree | 39c17405c7645171ea05473ae522692d2513db5d /fripost-mkpass.pl | |
parent | 7c2dc3d833206c9f869a4bf55db6c69c37953d7f (diff) |
remove .pl filename extension
Diffstat (limited to 'fripost-mkpass.pl')
-rwxr-xr-x | fripost-mkpass.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/fripost-mkpass.pl b/fripost-mkpass.pl deleted file mode 100755 index 83a58ac..0000000 --- a/fripost-mkpass.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl - -use 5.010_000; -use warnings; -use strict; - -=head1 NAME - -fripost-mkpass.pl - Create a random new password - -=cut - -use FindBin qw($Bin); -use lib "$Bin/lib"; - -our $VERSION = '0.01'; - -use Fripost::Password; -use String::MkPasswd qw/mkpasswd/; - -# Generate password -my $password = $ARGV[0]; - -$password //= mkpasswd( - -length => 20, - -minnum => 5, - -minspecial => 3 -); - -# Show the information that will be inserted -say "Password: $password"; -say "Salted MD5: " . smd5($password); - -=head1 AUTHOR - -Stefan Kangas C<< <skangas at skangas.se> >> - -=head1 COPYRIGHT - -Copyright 2010 Stefan Kangas. - -=head1 LICENSE - -This program is free software; you can redistribute it and/or modify it -under the same terms as perl itself. - -=cut |