aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2010-12-31 06:27:19 +0100
committerStefan Kangas <stefankangas@gmail.com>2010-12-31 06:27:19 +0100
commit8528efc6b533dd72ee11a6e95c7b09f10752a405 (patch)
tree8c955f8cc448d5ffc44ce429a92c8196ef6b8b3b /lib/Fripost
parentb30fb0d7e1b16d60a769fa4c5d8053420cf06774 (diff)
move several prompts to a separate module
Diffstat (limited to 'lib/Fripost')
-rwxr-xr-xlib/Fripost/Prompt.pm71
1 files changed, 71 insertions, 0 deletions
diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
new file mode 100755
index 0000000..ad6f1ae
--- /dev/null
+++ b/lib/Fripost/Prompt.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+
+use 5.010_000;
+use warnings;
+use strict;
+
+=head1 NAME
+
+Prompt.pm - Lots of prompt helper functions
+
+=cut
+
+our $VERSION = '0.01';
+
+use Data::Dumper;
+use Email::Valid;
+use Exporter;
+use IO::Prompt;
+use String::MkPasswd qw/mkpasswd/;
+
+our @EXPORT = qw(prompt_password prompt_username);
+
+sub prompt_password {
+ my $prompt = shift;
+ $prompt //= "Enter new password (blank for random): ";
+ my $password = prompt $prompt;
+ if (!length $password) {
+ $password = mkpasswd(
+ -length => 10,
+ -minnum => 2,
+ -minspecial => 2,
+ );
+ say "Generated password: $password";
+ }
+ return $password;
+}
+
+sub prompt_username {
+ my $prompt = shift;
+ $prompt //= "Enter username: ";
+ my $username;
+ while (not defined $username) {
+ $username = prompt $prompt;
+ if (!($username =~ /\@/)) {
+ $username .= '@fripost.org';
+ say "Using $username";
+ }
+ if (!Email::Valid->address($username)) {
+ undef $username;
+ say "This is not a valid e-mail address. Try again."
+ }
+ }
+ return $username;
+}
+
+=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
+
+1; # End of Prompt.pm