summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2018-09-06 12:12:39 +0200
committerFlorian Pritz <bluewind@xinu.at>2018-09-06 12:12:39 +0200
commit287089e0a4266203ad4282c9f79f90594caac8e2 (patch)
treeea968b5b4cb907a43d59af3137c2f6b1b7a0317e
parentcf573ba318dbad4a05d3a052def27e8deb0b40e3 (diff)
downloadbin-287089e0a4266203ad4282c9f79f90594caac8e2.tar.gz
bin-287089e0a4266203ad4282c9f79f90594caac8e2.tar.xz
masterkey.pl: Use Function::Parameters
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rwxr-xr-xmasterkey.pl19
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;