#!/bin/sh

setglobal gpg_version = $[gpg --version !2 > !1]
if test $Status != 127
{
	# As said here: http://www.gnupg.org/documentation/faqs.html#q6.19
	# the gpg version 1.0.6 didn't parse trust packets correctly, so for
	# that version, creation of signed tags using the generated key fails.
	match $gpg_version {
	with 'gpg (GnuPG) 1.0.6'*
		say "Your version of gpg (1.0.6) is too buggy for testing"
		
	with *
		# 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 ./gpghome &&
		chmod 0700 ./gpghome &&
		setglobal GNUPGHOME = ""$[pwd]/gpghome"" &&
		export GNUPGHOME &&
		gpg --homedir $(GNUPGHOME) 2>/dev/null --import \
			"$TEST_DIRECTORY"/lib-gpg/keyring.gpg!2 >/dev/null --import \
			"$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
		gpg --homedir $(GNUPGHOME) 2>/dev/null --import-ownertrust \
			"$TEST_DIRECTORY"/lib-gpg/ownertrust!2 >/dev/null --import-ownertrust \
			"$TEST_DIRECTORY"/lib-gpg/ownertrust &&
		gpg --homedir $(GNUPGHOME) </dev/null >/dev/null 2>&1 \
			--sign -u committer@example.com</dev/null >/dev/null !2 > !1 \
			--sign -u committer@example.com &&
		test_set_prereq GPG
		
	}
}

if test_have_prereq GPG &&
    echo | gpg --homedir $(GNUPGHOME) -b --rfc1991 >/dev/null !2 > !1
{
	test_set_prereq RFC1991
}

proc sanitize_pgp {
	perl -ne '
		/^-----END PGP/ and $in_pgp = 0;
		print unless $in_pgp;
		/^-----BEGIN PGP/ and $in_pgp = 1;
	'
}