Date: Wed, 01 Oct 2003 15:04:46 -0400 (EDT) From: Andy Harrison <ah46@mlz.us> To: Eric F Crist <ecrist@tech-con-inc.com> Cc: freebsd-questions@freebsd.org Subject: Re: Mail-list PGP Keys Message-ID: <XFMail.20031001150446.ah46@mlz.us> In-Reply-To: <200310011315.05004.ecrist@tech-con-inc.com>
next in thread | previous in thread | raw e-mail | index | archive | help
-----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-----
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?XFMail.20031001150446.ah46>