diff options
-rwxr-xr-x | masterkey.pl | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/masterkey.pl b/masterkey.pl index 13c89d4..861427a 100755 --- a/masterkey.pl +++ b/masterkey.pl @@ -6,6 +6,7 @@ use v5.10; use Data::Dumper; use Email::Date; use Email::MessageID; +use Function::Parameters; use Getopt::Long; use GnuPG::Interface; use JSON; @@ -108,29 +109,20 @@ on behalf of {$sender_name} ({$sender_key}) } } -sub save_token { - my $id = shift; - my $token = shift; - my $file = shift; - +fun save_token($id, $token, $file) { open my $fh, '>>', $file or die "Failed to open '$file': $!"; say $fh "$id $token"; close $fh; } -sub fill_template { - my $template = shift; - my $values = shift; - +fun fill_template($template, $values) { my $result = Text::Template::fill_in_string($template, HASH => $values) or die "Failed to fill in template: $Text::Template::ERROR"; return $result; } -sub gpg_get_user { - my $key = shift; - +fun gpg_get_users($key) { my $gpg = GnuPG::Interface->new(); my @keys = $gpg->get_public_keys($key); @@ -205,8 +197,7 @@ sub build_email { ); } -sub send_email { - my $msg = shift; +fun send_email($msg) { open my $mail, "|msmtp -t"; print $mail $msg->as_string; close $mail; |