#!/usr/bin/perl
$keyDir = "/www/doc/qisc/keys/keys";

use CGI;
$query = new CGI;
$key = $query->param("key");

$keyfile = sprintf("%s/%s", $keyDir, $key);
if ( open(KEY, "<$keyfile") eq undef ) {
	$error = $!;
	printf("%s\n", $query->header("text/plain") );
	print <<EOF;
Key for specified user ($key) not found: $error ($keyfile)
EOF
}
else {
	printf("%s\n", $query->header("application/pgp-keys") );
	@lines = <KEY>;
	print @lines;
	close(STDOUT);
}
exit(0);