From 4fcff7688ff46ed5d6f8fb013a659f8bce027226 Mon Sep 17 00:00:00 2001 From: Daniel Kahn Gillmor Date: Tue, 3 Feb 2009 21:32:50 -0500 Subject: [PATCH] accept environment variables to adjust the behavior of pem2openpgp --- src/keytrans/pem2openpgp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp index 3d9f6f8..0910d07 100755 --- a/src/keytrans/pem2openpgp +++ b/src/keytrans/pem2openpgp @@ -352,7 +352,21 @@ my $hash_algo = pack('C', $digests->{sha1}); # could an environment variable (if set) override the current time, to # be able to create a standard key? If we read the key from a file # instead of stdin, should we use the creation time on the file? -my $timestamp = time(); +my $timestamp = $ENV{PEM2OPENPGP_TIMESTAMP}; +if (! defined $timestamp) + $timestamp = time(); + +my $flags = 0; +if (! defined $ENV{PEM2OPENPGP_USAGE_FLAGS}) + $flags = $usage_flags->{authenticate}; +else { + my @ff = split(",", $ENV{PEM2OPENPGP_USAGE_FLAGS}); + foreach $f (@ff) { + if (! defined $usage_flags->{$f}) + die "No such flag $f"; + $flags |= $usage_flags->{$f}; + } +} my $creation_time_packet = pack('CCN', 5, $subpacket_types->{sig_creation_time}, $timestamp); -- 2.25.1