Add option to generate SMD5 for command line argument

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