Add new scripts

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 16 insertions, 0 deletions

diff --git a/get-arch-keys.pl b/get-arch-keys.pl
new file mode 100644
index 0000000..b7ee42d
--- /dev/null
+++ b/get-arch-keys.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use JSON;
+use WWW::Mechanize;
+use v5.10;
+
+my $url = 'https://www.archlinux.org/master-keys/json/';
+
+my $mech = WWW::Mechanize->new(cookie_jar => {});
+
+$mech->get($url);
+my $json = JSON::decode_json($mech->content());
+for my $node (@{$json->{nodes}}) {
+	say $node->{key} if $node->{group} eq "packager" and $node->{key};
+}