#! /usr/bin/perl
# gpg --no-verbose --output .lastpgpkey --batch --verify $1 $2 
# gpg: Signature made Thu May 10 13:37:15 2001 CEST using DSA key ID 01938203
system("gpg --no-verbose --batch --verify $ARGV[0] $ARGV[1] 2>/tmp/poptix.pgp.temp");
open(FD,"/tmp/poptix.pgp.temp");
while(<FD>) {
	if ($_ =~ /Signature made/) {
		($null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$key) = split;
	}
}
close(FD);
open(FD,"/tmp/poptix.pgp.temp");
while(<FD>) {
	print $_;
}
close(FD);
#unlink("/tmp/poptix.pgp.temp");
open(FD2,">/home/poptix/.lastpgpkey");
print FD2 "$key";
close(FD2);