aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-mkpass.pl
diff options
context:
space:
mode:
Diffstat (limited to 'fripost-mkpass.pl')
-rwxr-xr-xfripost-mkpass.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/fripost-mkpass.pl b/fripost-mkpass.pl
index fba5079..83a58ac 100755
--- a/fripost-mkpass.pl
+++ b/fripost-mkpass.pl
@@ -19,14 +19,16 @@ use Fripost::Password;
use String::MkPasswd qw/mkpasswd/;
# Generate password
-my $password = mkpasswd(
+my $password = $ARGV[0];
+
+$password //= mkpasswd(
-length => 20,
-minnum => 5,
-minspecial => 3
);
# Show the information that will be inserted
-say "Generated password: $password";
+say "Password: $password";
say "Salted MD5: " . smd5($password);
=head1 AUTHOR