From d4b107f5035413bcf93f24a523a6f8b695ba6b92 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Fri, 4 Jan 2019 13:54:00 +0100
Subject: Add new scripts

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 get-arch-keys.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 get-arch-keys.pl

(limited to 'get-arch-keys.pl')

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};
+}
-- 
cgit v1.2.3-24-g4f1b