X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=keyanalyze%2Fscripts%2Ftop50.pl;h=9bd01293979167176f685e3802a2764206c79b85;hb=2dfca062aa06bb487599ff81386803979bdfc80c;hp=5a30de65b00e93539f1397e824dbb0ef1138d7b7;hpb=399de2651b9ae515825eb9a261fe87a213274de1;p=pgp-tools.git

diff --git a/keyanalyze/scripts/top50.pl b/keyanalyze/scripts/top50.pl
index 5a30de6..9bd0129 100755
--- 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;
 }