X-Git-Url: https://git.sommitrealweird.co.uk/onak.git/blobdiff_plain/ec599f57d8843b2e34270c2083db71e99d76d952..3e6039189ef4130641633e0c8ea6cf2c75e6472f:/gpgstats-0.0.2/gpgpre?ds=sidebyside

diff --git a/gpgstats-0.0.2/gpgpre b/gpgstats-0.0.2/gpgpre
deleted file mode 100755
index 9f81af3..0000000
--- a/gpgstats-0.0.2/gpgpre
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl -Tw
-# Written by Jonathan McDowell <noodles@earth.li>
-# Copyright 2000 Project Purple.
-# Dedicated to linguists called Simon everywhere.
-#
-# Processes the output of gpg -v --list-keys to a format gpgstats likes.
-#
-# Try:
-# gpg -v --list-keys | ./gpgpre | uniq > keyfile
-#
-# I should really include the uniq in the code.
-
-use strict;
-
-my ($curline);
-
-while ($curline = <>) {
-	chomp $curline;
-
-	if ($curline =~ /^pub.*\/([0-9a-fA-F]{8}) [0-9-\/]{10} (.*)/) {
-		print "P$1\n";
-		print "N$2\n";
-	} elsif ($curline =~ /^sig *([0-9a-fA-F]{8})/) {
-		print "S$1\n";
-	}
-}