diff options
author | Florian Pritz <bluewind@xinu.at> | 2018-09-06 12:12:39 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2018-09-06 12:12:39 +0200 |
commit | 287089e0a4266203ad4282c9f79f90594caac8e2 (patch) | |
tree | ea968b5b4cb907a43d59af3137c2f6b1b7a0317e | |
parent | cf573ba318dbad4a05d3a052def27e8deb0b40e3 (diff) | |
download | bin-287089e0a4266203ad4282c9f79f90594caac8e2.tar.gz bin-287089e0a4266203ad4282c9f79f90594caac8e2.tar.xz |
masterkey.pl: Use Function::Parameters
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-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; |