[thirdparty/git.git] / t / lib-gpg.sh

# We always set GNUPGHOME, even if no usable GPG was found, as
#
# - It does not hurt, and
#
# - we cannot set global environment variables in lazy prereqs because they are
#   executed in an eval'ed subshell that changes the working directory to a
#   temporary one.

GNUPGHOME="$PWD/gpghome"
export GNUPGHOME

test_lazy_prereq GPG '
	gpg_version=$(gpg --version 2>&1)
	test $? != 127 || exit 1

	# As said here: http://www.gnupg.org/documentation/faqs.html#q6.19
	# the gpg version 1.0.6 did not parse trust packets correctly, so for
	# that version, creation of signed tags using the generated key fails.
	case "$gpg_version" in
	"gpg (GnuPG) 1.0.6"*)
		say "Your version of gpg (1.0.6) is too buggy for testing"
		exit 1
		;;
	*)
		# Available key info:
		# * Type DSA and Elgamal, size 2048 bits, no expiration date,
		#   name and email: C O Mitter <committer@example.com>
		# * Type RSA, size 2048 bits, no expiration date,
		#   name and email: Eris Discordia <discord@example.net>
		# No password given, to enable non-interactive operation.
		# To generate new key:
		#	gpg --homedir /tmp/gpghome --gen-key
		# To write armored exported key to keyring:
		#	gpg --homedir /tmp/gpghome --export-secret-keys \
		#		--armor 0xDEADBEEF >> lib-gpg/keyring.gpg
		#	gpg --homedir /tmp/gpghome --export \
		#		--armor 0xDEADBEEF >> lib-gpg/keyring.gpg
		# To export ownertrust:
		#	gpg --homedir /tmp/gpghome --export-ownertrust \
		#		> lib-gpg/ownertrust
		mkdir "$GNUPGHOME" &&
		chmod 0700 "$GNUPGHOME" &&
		(gpgconf --kill all || : ) &&
		gpg --homedir "${GNUPGHOME}" --import \
			"$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
		gpg --homedir "${GNUPGHOME}" --import-ownertrust \
			"$TEST_DIRECTORY"/lib-gpg/ownertrust &&
		gpg --homedir "${GNUPGHOME}" </dev/null >/dev/null \
			--sign -u committer@example.com
		;;
	esac
'

test_lazy_prereq GPG2 '
	gpg_version=$(gpg --version 2>&1)
	test $? != 127 || exit 1

	case "$gpg_version" in
	"gpg (GnuPG) "[01].*)
		say "This test requires a GPG version >= v2.0.0"
		exit 1
		;;
	*)
		(gpgconf --kill all || : ) &&
		gpg --homedir "${GNUPGHOME}" --import \
			"$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
		gpg --homedir "${GNUPGHOME}" --import-ownertrust \
			"$TEST_DIRECTORY"/lib-gpg/ownertrust &&
		gpg --homedir "${GNUPGHOME}" </dev/null >/dev/null \
			--sign -u committer@example.com
		;;
	esac
'

test_lazy_prereq GPGSM '
	test_have_prereq GPG &&
	# Available key info:
	# * see t/lib-gpg/gpgsm-gen-key.in
	# To generate new certificate:
	#  * no passphrase
	#	gpgsm --homedir /tmp/gpghome/ \
	#		-o /tmp/gpgsm.crt.user \
	#		--generate-key \
	#		--batch t/lib-gpg/gpgsm-gen-key.in
	# To import certificate:
	#	gpgsm --homedir /tmp/gpghome/ \
	#		--import /tmp/gpgsm.crt.user
	# To export into a .p12 we can later import:
	#	gpgsm --homedir /tmp/gpghome/ \
	#		-o t/lib-gpg/gpgsm_cert.p12 \
	#		--export-secret-key-p12 "committer@example.com"
	echo | gpgsm --homedir "${GNUPGHOME}" \
		--passphrase-fd 0 --pinentry-mode loopback \
		--import "$TEST_DIRECTORY"/lib-gpg/gpgsm_cert.p12 &&

	gpgsm --homedir "${GNUPGHOME}" -K --with-colons |
	awk -F ":" "/^fpr:/ {printf \"%s S relax\\n\", \$10}" \
		>"${GNUPGHOME}/trustlist.txt" &&
	(gpgconf --reload all || : ) &&

	echo hello | gpgsm --homedir "${GNUPGHOME}" >/dev/null \
	       -u committer@example.com -o /dev/null --sign -
'

test_lazy_prereq RFC1991 '
	test_have_prereq GPG &&
	echo | gpg --homedir "${GNUPGHOME}" -b --rfc1991 >/dev/null
'

GPGSSH_KEY_PRIMARY="${GNUPGHOME}/ed25519_ssh_signing_key"
GPGSSH_KEY_SECONDARY="${GNUPGHOME}/rsa_2048_ssh_signing_key"
GPGSSH_KEY_UNTRUSTED="${GNUPGHOME}/untrusted_ssh_signing_key"
GPGSSH_KEY_EXPIRED="${GNUPGHOME}/expired_ssh_signing_key"
GPGSSH_KEY_NOTYETVALID="${GNUPGHOME}/notyetvalid_ssh_signing_key"
GPGSSH_KEY_TIMEBOXEDVALID="${GNUPGHOME}/timeboxed_valid_ssh_signing_key"
GPGSSH_KEY_TIMEBOXEDINVALID="${GNUPGHOME}/timeboxed_invalid_ssh_signing_key"
GPGSSH_KEY_WITH_PASSPHRASE="${GNUPGHOME}/protected_ssh_signing_key"
GPGSSH_KEY_ECDSA="${GNUPGHOME}/ecdsa_ssh_signing_key"
GPGSSH_KEY_PASSPHRASE="super_secret"
GPGSSH_ALLOWED_SIGNERS="${GNUPGHOME}/ssh.all_valid.allowedSignersFile"

GPGSSH_GOOD_SIGNATURE_TRUSTED='Good "git" signature for'
GPGSSH_GOOD_SIGNATURE_UNTRUSTED='Good "git" signature with'
GPGSSH_KEY_NOT_TRUSTED="No principal matched"
GPGSSH_BAD_SIGNATURE="Signature verification failed"

test_lazy_prereq GPGSSH '
	ssh_version=$(ssh-keygen -Y find-principals -n "git" 2>&1)
	test $? != 127 || exit 1
	echo $ssh_version | grep -q "find-principals:missing signature file"
	test $? = 0 || exit 1;

	# Setup some keys and an allowed signers file
	mkdir -p "${GNUPGHOME}" &&
	chmod 0700 "${GNUPGHOME}" &&
	(setfacl -k "${GNUPGHOME}" 2>/dev/null || true) &&
	ssh-keygen -t ed25519 -N "" -C "git ed25519 key" -f "${GPGSSH_KEY_PRIMARY}" >/dev/null &&
	ssh-keygen -t rsa -b 2048 -N "" -C "git rsa2048 key" -f "${GPGSSH_KEY_SECONDARY}" >/dev/null &&
	ssh-keygen -t ed25519 -N "${GPGSSH_KEY_PASSPHRASE}" -C "git ed25519 encrypted key" -f "${GPGSSH_KEY_WITH_PASSPHRASE}" >/dev/null &&
	ssh-keygen -t ecdsa -N "" -f "${GPGSSH_KEY_ECDSA}" >/dev/null &&
	ssh-keygen -t ed25519 -N "" -C "git ed25519 key" -f "${GPGSSH_KEY_UNTRUSTED}" >/dev/null &&

	cat >"${GPGSSH_ALLOWED_SIGNERS}" <<-EOF &&
	"principal with number 1" $(cat "${GPGSSH_KEY_PRIMARY}.pub")"
	"principal with number 2" $(cat "${GPGSSH_KEY_SECONDARY}.pub")"
	"principal with number 3" $(cat "${GPGSSH_KEY_WITH_PASSPHRASE}.pub")"
	"principal with number 4" $(cat "${GPGSSH_KEY_ECDSA}.pub")"
	EOF

	# Verify if at least one key and ssh-keygen works as expected
	echo "testpayload" |
	ssh-keygen -Y sign -n "git" -f "${GPGSSH_KEY_PRIMARY}" >gpgssh_prereq.sig &&
	ssh-keygen -Y find-principals -f "${GPGSSH_ALLOWED_SIGNERS}" -s gpgssh_prereq.sig &&
	echo "testpayload" |
	ssh-keygen -Y verify -n "git" -f "${GPGSSH_ALLOWED_SIGNERS}" -I "principal with number 1" -s gpgssh_prereq.sig
'

test_lazy_prereq GPGSSH_VERIFYTIME '
	test_have_prereq GPGSSH &&
	# Check if ssh-keygen has a verify-time option by passing an invalid date to it
	ssh-keygen -Overify-time=INVALID -Y check-novalidate -n "git" -s doesnotmatter 2>&1 | grep -q -F "Invalid \"verify-time\"" &&

	# Set up keys with key lifetimes
	ssh-keygen -t ed25519 -N "" -C "timeboxed valid key" -f "${GPGSSH_KEY_TIMEBOXEDVALID}" >/dev/null &&
	key_valid=$(cat "${GPGSSH_KEY_TIMEBOXEDVALID}.pub") &&
	ssh-keygen -t ed25519 -N "" -C "timeboxed invalid key" -f "${GPGSSH_KEY_TIMEBOXEDINVALID}" >/dev/null &&
	key_invalid=$(cat "${GPGSSH_KEY_TIMEBOXEDINVALID}.pub") &&
	ssh-keygen -t ed25519 -N "" -C "expired key" -f "${GPGSSH_KEY_EXPIRED}" >/dev/null &&
	key_expired=$(cat "${GPGSSH_KEY_EXPIRED}.pub") &&
	ssh-keygen -t ed25519 -N "" -C "not yet valid key" -f "${GPGSSH_KEY_NOTYETVALID}" >/dev/null &&
	key_notyetvalid=$(cat "${GPGSSH_KEY_NOTYETVALID}.pub") &&

	# Timestamps outside of test_tick span
	ts2005a=20050401000000 ts2005b=200504020000 &&
	# Timestamps within test_tick span
	ts2005c=20050407000000 ts2005d=200504100000 &&
	# Definitely not yet valid / expired timestamps
	ts2000=20000101000000 ts2999=29990101000000 &&

	cat >>"${GPGSSH_ALLOWED_SIGNERS}" <<-EOF &&
	"timeboxed valid key" valid-after="$ts2005c",valid-before="$ts2005d" $key_valid"
	"timeboxed invalid key" valid-after="$ts2005a",valid-before="$ts2005b" $key_invalid"
	"principal with expired key" valid-before="$ts2000" $key_expired"
	"principal with not yet valid key" valid-after="$ts2999" $key_notyetvalid"
	EOF

	# and verify ssh-keygen verifies the key lifetime
	echo "testpayload" |
	ssh-keygen -Y sign -n "git" -f "${GPGSSH_KEY_EXPIRED}" >gpgssh_verifytime_prereq.sig &&
	! (ssh-keygen -Y verify -n "git" -f "${GPGSSH_ALLOWED_SIGNERS}" -I "principal with expired key" -s gpgssh_verifytime_prereq.sig)
'

sanitize_pgp() {
	perl -ne '
		/^-----END PGP/ and $in_pgp = 0;
		print unless $in_pgp;
		/^-----BEGIN PGP/ and $in_pgp = 1;
	'
}
Commit	Line	Data
b417ec5f JS	1	# We always set GNUPGHOME, even if no usable GPG was found, as
	2	#
	3	# - It does not hurt, and
	4	#
	5	# - we cannot set global environment variables in lazy prereqs because they are
	6	# executed in an eval'ed subshell that changes the working directory to a
	7	# temporary one.
	8
	9	GNUPGHOME="$PWD/gpghome"
	10	export GNUPGHOME
	11
	12	test_lazy_prereq GPG '
	13	gpg_version=$(gpg --version 2>&1)
	14	test $? != 127 \|\| exit 1
	15
37d3e859	16	# As said here: http://www.gnupg.org/documentation/faqs.html#q6.19
b417ec5f	17	# the gpg version 1.0.6 did not parse trust packets correctly, so for
37d3e859 JK	18	# that version, creation of signed tags using the generated key fails.
37d3e859 JK	19	case "$gpg_version" in
b417ec5f	20	"gpg (GnuPG) 1.0.6"*)
37d3e859	21	say "Your version of gpg (1.0.6) is too buggy for testing"
b417ec5f	22	exit 1
37d3e859 JK	23	;;
37d3e859 JK	24	*)
6fb5df6c CH	25	# Available key info:
	26	# * Type DSA and Elgamal, size 2048 bits, no expiration date,
	27	# name and email: C O Mitter <committer@example.com>
	28	# * Type RSA, size 2048 bits, no expiration date,
	29	# name and email: Eris Discordia <discord@example.net>
37d3e859	30	# No password given, to enable non-interactive operation.
6fb5df6c CH	31	# To generate new key:
	32	# gpg --homedir /tmp/gpghome --gen-key
	33	# To write armored exported key to keyring:
	34	# gpg --homedir /tmp/gpghome --export-secret-keys \
	35	# --armor 0xDEADBEEF >> lib-gpg/keyring.gpg
830ff021 JK	36	# gpg --homedir /tmp/gpghome --export \
830ff021 JK	37	# --armor 0xDEADBEEF >> lib-gpg/keyring.gpg
6fb5df6c CH	38	# To export ownertrust:
	39	# gpg --homedir /tmp/gpghome --export-ownertrust \
	40	# > lib-gpg/ownertrust
b417ec5f JS	41	mkdir "$GNUPGHOME" &&
b417ec5f JS	42	chmod 0700 "$GNUPGHOME" &&
b0b70d54	43	(gpgconf --kill all \|\| : ) &&
2b606491	44	gpg --homedir "${GNUPGHOME}" --import \
4b0bf39d	45	"$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
2b606491	46	gpg --homedir "${GNUPGHOME}" --import-ownertrust \
4b0bf39d	47	"$TEST_DIRECTORY"/lib-gpg/ownertrust &&
2b606491	48	gpg --homedir "${GNUPGHOME}" </dev/null >/dev/null \
b417ec5f	49	--sign -u committer@example.com
37d3e859 JK	50	;;
37d3e859 JK	51	esac
b417ec5f JS	52	'
b417ec5f JS	53
2f36339f KS	54	test_lazy_prereq GPG2 '
	55	gpg_version=$(gpg --version 2>&1)
	56	test $? != 127 \|\| exit 1
	57
	58	case "$gpg_version" in
	59	"gpg (GnuPG) "[01].*)
	60	say "This test requires a GPG version >= v2.0.0"
	61	exit 1
	62	;;
	63	*)
	64	(gpgconf --kill all \|\| : ) &&
	65	gpg --homedir "${GNUPGHOME}" --import \
	66	"$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
	67	gpg --homedir "${GNUPGHOME}" --import-ownertrust \
	68	"$TEST_DIRECTORY"/lib-gpg/ownertrust &&
	69	gpg --homedir "${GNUPGHOME}" </dev/null >/dev/null \
	70	--sign -u committer@example.com
	71	;;
	72	esac
	73	'
	74
b417ec5f JS	75	test_lazy_prereq GPGSM '
	76	test_have_prereq GPG &&
	77	# Available key info:
	78	# * see t/lib-gpg/gpgsm-gen-key.in
	79	# To generate new certificate:
	80	# * no passphrase
	81	# gpgsm --homedir /tmp/gpghome/ \
	82	# -o /tmp/gpgsm.crt.user \
	83	# --generate-key \
	84	# --batch t/lib-gpg/gpgsm-gen-key.in
	85	# To import certificate:
	86	# gpgsm --homedir /tmp/gpghome/ \
	87	# --import /tmp/gpgsm.crt.user
	88	# To export into a .p12 we can later import:
	89	# gpgsm --homedir /tmp/gpghome/ \
	90	# -o t/lib-gpg/gpgsm_cert.p12 \
	91	# --export-secret-key-p12 "committer@example.com"
2b606491 JS	92	echo \| gpgsm --homedir "${GNUPGHOME}" \
	93	--passphrase-fd 0 --pinentry-mode loopback \
	94	--import "$TEST_DIRECTORY"/lib-gpg/gpgsm_cert.p12 &&
b417ec5f	95
a075e79d FS	96	gpgsm --homedir "${GNUPGHOME}" -K --with-colons \|
	97	awk -F ":" "/^fpr:/ {printf \"%s S relax\\n\", \$10}" \
	98	>"${GNUPGHOME}/trustlist.txt" &&
fa47dd64	99	(gpgconf --reload all \|\| : ) &&
b417ec5f	100
2b606491 JS	101	echo hello \| gpgsm --homedir "${GNUPGHOME}" >/dev/null \
2b606491 JS	102	-u committer@example.com -o /dev/null --sign -
b417ec5f	103	'
e2b23972	104
b417ec5f JS	105	test_lazy_prereq RFC1991 '
b417ec5f JS	106	test_have_prereq GPG &&
2b606491	107	echo \| gpg --homedir "${GNUPGHOME}" -b --rfc1991 >/dev/null
b417ec5f	108	'
4b0bf39d	109
64625c72 FS	110	GPGSSH_KEY_PRIMARY="${GNUPGHOME}/ed25519_ssh_signing_key"
	111	GPGSSH_KEY_SECONDARY="${GNUPGHOME}/rsa_2048_ssh_signing_key"
	112	GPGSSH_KEY_UNTRUSTED="${GNUPGHOME}/untrusted_ssh_signing_key"
30770aa9 FS	113	GPGSSH_KEY_EXPIRED="${GNUPGHOME}/expired_ssh_signing_key"
	114	GPGSSH_KEY_NOTYETVALID="${GNUPGHOME}/notyetvalid_ssh_signing_key"
	115	GPGSSH_KEY_TIMEBOXEDVALID="${GNUPGHOME}/timeboxed_valid_ssh_signing_key"
	116	GPGSSH_KEY_TIMEBOXEDINVALID="${GNUPGHOME}/timeboxed_invalid_ssh_signing_key"
64625c72	117	GPGSSH_KEY_WITH_PASSPHRASE="${GNUPGHOME}/protected_ssh_signing_key"
350a2518	118	GPGSSH_KEY_ECDSA="${GNUPGHOME}/ecdsa_ssh_signing_key"
64625c72 FS	119	GPGSSH_KEY_PASSPHRASE="super_secret"
	120	GPGSSH_ALLOWED_SIGNERS="${GNUPGHOME}/ssh.all_valid.allowedSignersFile"
	121
	122	GPGSSH_GOOD_SIGNATURE_TRUSTED='Good "git" signature for'
	123	GPGSSH_GOOD_SIGNATURE_UNTRUSTED='Good "git" signature with'
	124	GPGSSH_KEY_NOT_TRUSTED="No principal matched"
	125	GPGSSH_BAD_SIGNATURE="Signature verification failed"
	126
	127	test_lazy_prereq GPGSSH '
	128	ssh_version=$(ssh-keygen -Y find-principals -n "git" 2>&1)
	129	test $? != 127 \|\| exit 1
	130	echo $ssh_version \| grep -q "find-principals:missing signature file"
	131	test $? = 0 \|\| exit 1;
ca7a5bf4	132
50992f96	133	# Setup some keys and an allowed signers file
64625c72 FS	134	mkdir -p "${GNUPGHOME}" &&
64625c72 FS	135	chmod 0700 "${GNUPGHOME}" &&
7140c498	136	(setfacl -k "${GNUPGHOME}" 2>/dev/null \|\| true) &&
64625c72	137	ssh-keygen -t ed25519 -N "" -C "git ed25519 key" -f "${GPGSSH_KEY_PRIMARY}" >/dev/null &&
64625c72	138	ssh-keygen -t rsa -b 2048 -N "" -C "git rsa2048 key" -f "${GPGSSH_KEY_SECONDARY}" >/dev/null &&
64625c72	139	ssh-keygen -t ed25519 -N "${GPGSSH_KEY_PASSPHRASE}" -C "git ed25519 encrypted key" -f "${GPGSSH_KEY_WITH_PASSPHRASE}" >/dev/null &&
ee1dc493	140	ssh-keygen -t ecdsa -N "" -f "${GPGSSH_KEY_ECDSA}" >/dev/null &&
50992f96 FS	141	ssh-keygen -t ed25519 -N "" -C "git ed25519 key" -f "${GPGSSH_KEY_UNTRUSTED}" >/dev/null &&
	142
	143	cat >"${GPGSSH_ALLOWED_SIGNERS}" <<-EOF &&
	144	"principal with number 1" $(cat "${GPGSSH_KEY_PRIMARY}.pub")"
	145	"principal with number 2" $(cat "${GPGSSH_KEY_SECONDARY}.pub")"
	146	"principal with number 3" $(cat "${GPGSSH_KEY_WITH_PASSPHRASE}.pub")"
ee1dc493	147	"principal with number 4" $(cat "${GPGSSH_KEY_ECDSA}.pub")"
50992f96 FS	148	EOF
	149
	150	# Verify if at least one key and ssh-keygen works as expected
	151	echo "testpayload" \|
	152	ssh-keygen -Y sign -n "git" -f "${GPGSSH_KEY_PRIMARY}" >gpgssh_prereq.sig &&
	153	ssh-keygen -Y find-principals -f "${GPGSSH_ALLOWED_SIGNERS}" -s gpgssh_prereq.sig &&
	154	echo "testpayload" \|
	155	ssh-keygen -Y verify -n "git" -f "${GPGSSH_ALLOWED_SIGNERS}" -I "principal with number 1" -s gpgssh_prereq.sig
30770aa9 FS	156	'
	157
	158	test_lazy_prereq GPGSSH_VERIFYTIME '
78e56cff	159	test_have_prereq GPGSSH &&
30770aa9	160	# Check if ssh-keygen has a verify-time option by passing an invalid date to it
20025fdf	161	ssh-keygen -Overify-time=INVALID -Y check-novalidate -n "git" -s doesnotmatter 2>&1 \| grep -q -F "Invalid \"verify-time\"" &&
50992f96 FS	162
50992f96 FS	163	# Set up keys with key lifetimes
30770aa9	164	ssh-keygen -t ed25519 -N "" -C "timeboxed valid key" -f "${GPGSSH_KEY_TIMEBOXEDVALID}" >/dev/null &&
50992f96	165	key_valid=$(cat "${GPGSSH_KEY_TIMEBOXEDVALID}.pub") &&
30770aa9	166	ssh-keygen -t ed25519 -N "" -C "timeboxed invalid key" -f "${GPGSSH_KEY_TIMEBOXEDINVALID}" >/dev/null &&
50992f96	167	key_invalid=$(cat "${GPGSSH_KEY_TIMEBOXEDINVALID}.pub") &&
30770aa9	168	ssh-keygen -t ed25519 -N "" -C "expired key" -f "${GPGSSH_KEY_EXPIRED}" >/dev/null &&
50992f96	169	key_expired=$(cat "${GPGSSH_KEY_EXPIRED}.pub") &&
30770aa9	170	ssh-keygen -t ed25519 -N "" -C "not yet valid key" -f "${GPGSSH_KEY_NOTYETVALID}" >/dev/null &&
50992f96 FS	171	key_notyetvalid=$(cat "${GPGSSH_KEY_NOTYETVALID}.pub") &&
	172
	173	# Timestamps outside of test_tick span
	174	ts2005a=20050401000000 ts2005b=200504020000 &&
	175	# Timestamps within test_tick span
	176	ts2005c=20050407000000 ts2005d=200504100000 &&
	177	# Definitely not yet valid / expired timestamps
	178	ts2000=20000101000000 ts2999=29990101000000 &&
	179
	180	cat >>"${GPGSSH_ALLOWED_SIGNERS}" <<-EOF &&
	181	"timeboxed valid key" valid-after="$ts2005c",valid-before="$ts2005d" $key_valid"
	182	"timeboxed invalid key" valid-after="$ts2005a",valid-before="$ts2005b" $key_invalid"
	183	"principal with expired key" valid-before="$ts2000" $key_expired"
	184	"principal with not yet valid key" valid-after="$ts2999" $key_notyetvalid"
	185	EOF
	186
	187	# and verify ssh-keygen verifies the key lifetime
	188	echo "testpayload" \|
	189	ssh-keygen -Y sign -n "git" -f "${GPGSSH_KEY_EXPIRED}" >gpgssh_verifytime_prereq.sig &&
	190	! (ssh-keygen -Y verify -n "git" -f "${GPGSSH_ALLOWED_SIGNERS}" -I "principal with expired key" -s gpgssh_verifytime_prereq.sig)
64625c72 FS	191	'
64625c72 FS	192
e2b23972 MG	193	sanitize_pgp() {
	194	perl -ne '
	195	/^-----END PGP/ and $in_pgp = 0;
	196	print unless $in_pgp;
	197	/^-----BEGIN PGP/ and $in_pgp = 1;
	198	'
	199	}