Mail-list PGP Keys

[Andy Harrison]

-----BEGIN PGP SIGNED MESSAGE-----


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On 01-Oct-2003, Eric F Crist wrote message "Re: Mail-list PGP Keys"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> How do I submit my keys?


Here's something I whipped up to do it for me.  You'll have to change the pgp
command line to suit your version.



#!/usr/local/bin/perl -w
#
# pgpkeysubmit.pl
#
# by Andy Harrison <xxxxxxxxxx>
#
# Automatically submit my public key
#
# Usage: pgpkeysubmit.pl [<ascii-armored public key file>]
#
# $Id$
#

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $pubkeyfile = defined($ARGV[0]) && -f $ARGV[0] ? 
    $ARGV[0] : "$ENV{'HOME'}/.pgp/andy.pgp" ;

unlink $pubkeyfile;
print qx( pgp -kx ajharrison $pubkeyfile );
open PUB,$pubkeyfile || die " $! \n";

my $pubkey;
foreach ( <PUB> ) {
    $pubkey .= $_;
}
my $ua = LWP::UserAgent->new;
my $response = $ua->request( POST "http://pgp.mit.edu:11371/pks/add", 
    [
        # Enter ASCII-armored PGP key here: 
        "keytext" => $pubkey, 
    ],
    Referer => "http://pgp.mit.edu"
);
print $response->{'_content'};


~~ 
Andy Harrison
(full headers for details)


-----BEGIN PGP SIGNATURE-----
Version: PGP 6.5.8

iQCVAwUBP3slTVPEkLgodAWVAQG9eQP/ahXJ/79oATaFMUMlENvC4ntfye+mXKDr
52xdeH/8hb3KAWBgyC15Ely9nKtb5vsQKdb0kdSvdn0taUPMF7rCNhvpkiQKVpsL
Ovtl9F/uZMKoZ0V3FJZ4Qj5AD+HkS4FAKAi0XjLyRpT6WqNrp5KE388Iuiq5+Ym4
H8/bvrmuxcM=
=aGcv
-----END PGP SIGNATURE-----