[tor-commits] [webwml/staging] Link keys.txt at the signing keys page (#27702)

hiro at torproject.org hiro at torproject.org
Mon Oct 22 13:10:35 UTC 2018


commit 7d2ce4e7a391eda56ae7ab5a4e5b6f210684c9aa
Author: traumschule <traumschuleriebau at riseup.net>
Date:   Fri Sep 14 12:12:49 2018 +0200

    Link keys.txt at the signing keys page (#27702)
---
 docs/en/update_signing-keys.pl | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/docs/en/update_signing-keys.pl b/docs/en/update_signing-keys.pl
index 11c04eda..db7ce738 100755
--- a/docs/en/update_signing-keys.pl
+++ b/docs/en/update_signing-keys.pl
@@ -53,7 +53,10 @@ if (-f $wmifile && qx/[ $wmifile -nt $keysfile ]/) {
 
 open my $out, '>', "$wmifile"
   or die "Could not write to $wmifile; $!\n";
-print $out "#!/usr/bin/env wml\n<p>The signing keys we use are:</p>\n<ul>\n";
+print $out "#!/usr/bin/env wml\n<p>
+This page is automatically generated from
+<a href='/include/keys.txt'>keys.txt</a>.
+The signing keys we use are:\n</p>\n<ul>\n";
 my %fingerprints;
 foreach my $project (@projects) {
   my $owners = '';
@@ -96,11 +99,12 @@ foreach my $project (@projects) {
     $suf = 'ed' if ($project =~ /older/);
     print $out "<li>$owners sign$suf <strong>$project</strong></li>\n";
   }
-  my $keyids = join (' ', @keysinproject);
-  # update keys form keyserver pool
-  if ($forcekeyupdates or not $skipkeyupdates) {
-    print "Fetching $keyids from keyserver:\n";
-    qx/gpg --recv-key $keyids/;
+  foreach my $key (@keysinproject) {
+    # update keys form keyserver pool
+    if ($forcekeyupdates or not $skipkeyupdates) {
+      print "Fetching $key from keyserver:\n";
+      qx/gpg --recv-key $key/ or die "Failed to fetch $key;
+    }
   }
   # save gpg output for later
   my $str = qx/gpg --list-keys --keyid-format 0xlong --with-fingerprint $keyids/;





More information about the tor-commits mailing list