Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

make the ancient poller work again

git-svn-id: https://svn.develooper.com/projects/pgeodns/trunk@420 e01dd7d5-6be1-0310-aa60-dbbdb055a346
  • Loading branch information...
commit 84b1ceb16d848656af42a0810feecdaf672df54a 1 parent 890aa25
@abh authored
View
3  poller/perl/Poller/CPAN.pm
@@ -27,7 +27,8 @@ sub convert {
next unless m/\S/;
chomp;
my ($url, $host, $bandwidth, $contact, $country) = map { $_ =~ s/\s*$//; $_ } split /\t/, $_;
- next unless $url =~ m!ftp://[^/]+/pub/CPAN/?\b!;
+ next unless $url =~ m!ftp://([^/]+)/pub/CPAN/?\b!;
+ $host = $1;
#print "$host / $bandwidth / $country\n";
my $ip = join ".", unpack('C4',((gethostbyname($host))[4])[0]);
View
2  poller/perl/Regions.pm
@@ -88,6 +88,7 @@ my %continent_country = (
'Kazakhstan',
'North Korea',
'South Korea',
+ 'Republic of Korea',
'Kuwait',
'Kyrgyzstan',
'Laos',
@@ -352,6 +353,7 @@ km Comoros
kn Saint Kitts & Nevis Anguilla
kp North Korea
kr South Korea
+kr Republic of Korea
kw Kuwait
ky Cayman Islands
kz Kazakhstan
View
1  poller/poller
@@ -42,7 +42,6 @@ while (1) {
}
close CONF or die "Could not close $tmp_file: $!";
rename $tmp_file, $opt_file or die "Could not rename $tmp_file to $opt_file: $!";
- kill 1, `cat dinamed.53.pid`;
}
logit "waiting";
View
2  poller/poller.conf
@@ -1,3 +1,3 @@
-@poller_modules = qw(CPAN Apache);
+@poller_modules = qw(CPAN); # Apache
Please sign in to comment.
Something went wrong with that request. Please try again.