Make pool.sks-keyservers.net the default keyserver (closes: #527941).

[pgp-tools.git] / keyanalyze / scripts / top50.pl

diff --git a/keyanalyze/scripts/top50.pl b/keyanalyze/scripts/top50.pl
index 5a30de65b00e93539f1397e824dbb0ef1138d7b7..9bd01293979167176f685e3802a2764206c79b85 100755 (executable)
--- a/keyanalyze/scripts/top50.pl
+++ b/keyanalyze/scripts/top50.pl
@@ -16,7 +16,7 @@ use Getopt::Std;
 
 #my $keyserver = "http://pks.gpg.cz:11371/pks/lookup?op=vindex&fingerprint=on&search=0x";
 #my $keyserver = "http://keyserver.noreply.org/pks/lookup?op=index&fingerprint=on&search=0x";
-my $keyserver = "http://subkeys.pgp.net:11371/pks/lookup?op=index&fingerprint=on&search=0x";
+my $keyserver = "http://pool.sks-keyservers.net:11371/pks/lookup?op=index&fingerprint=on&search=0x";
 my %options;
 getopts('c:k:n:', \%options);
 my $comments = $options{c} || "top50comments.txt";
@@ -34,7 +34,7 @@ if (open F, $comments) {
 
 my %msd;
 while (my $line = <>) {
-       $line =~ /^\w+\s+(\w+)\s+([\d\.]+)/ or die "cannot parse line $.: $_";
+       $line =~ /^\w+\s+(\w+)\s+([\d\.]+)/ or die "cannot parse line $.: $line";
        $msd{$1} = $2;
 }