aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-mkpass.pl
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2010-12-31 05:57:21 +0100
committerStefan Kangas <stefankangas@gmail.com>2010-12-31 05:57:21 +0100
commitb30fb0d7e1b16d60a769fa4c5d8053420cf06774 (patch)
tree39c17405c7645171ea05473ae522692d2513db5d /fripost-mkpass.pl
parent7c2dc3d833206c9f869a4bf55db6c69c37953d7f (diff)
remove .pl filename extension
Diffstat (limited to 'fripost-mkpass.pl')
-rwxr-xr-xfripost-mkpass.pl47
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