X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_master_badip_files.pl;h=37e1747a618923800220d8ecd366b01f5207a11a;hb=378cbf24f1b918e78d8b93c9e7ce3cf46fe28ec7;hp=3244983b0191d1c735aff3643f749740873e9fc8;hpb=d3568fec5fb3e19f72dc4813dd2e18a7031dd6bb;p=spider.git

diff --git a/perl/create_master_badip_files.pl b/perl/create_master_badip_files.pl
index 3244983b..37e1747a 100755
--- a/perl/create_master_badip_files.pl
+++ b/perl/create_master_badip_files.pl
@@ -33,6 +33,7 @@ use LWP::Simple;
 use JSON;
 use Date::Parse;
 use File::Copy;
+use DXUtil;
 
 DXDebug::dbginit();
 
@@ -69,6 +70,7 @@ my $data = decode_json($content);
 my $now = time;
 my $ecount = 0;
 my $rcount = 0;
+my $error = 0;
 
 my $rand = rand;
 open RELAY, ">$relayfn.$rand" or die "$0: cannot open $relayfn $!";
@@ -85,25 +87,35 @@ foreach my $e (@{$data->{relays}}) {
 	my $es = join ', ', @exit;
 	dbg "$0: $e->{nickname} $e->{last_seen} relays: [$ors] exits: [$es]" if $debug;
 	for (@or) {
-		print RELAY "$_\n";
-		++$rcount;
+		if (is_ipaddr($_)) {
+			print RELAY "$_\n";
+			++$rcount;
+		} else {
+			print STDERR "$_\n";
+			++$error;
+		}
 	}
 	for (@exit) {
-		print EXIT "$_\n";
-		++$ecount;
+		if (is_ipaddr($_)) {
+			print EXIT "$_\n";
+			++$ecount;
+		} else {
+			print STDERR "$_\n";
+			++$error;
+		}
 	}
 }
 
 close RELAY;
 close EXIT;
 
-dbg("$0: $rcount relays $ecount exits found");
+dbg("$0: $rcount relays $ecount exits $error error(s) found.");
 move "$relayfn.$rand", $relayfn if $rcount;
 move "$exitfn.$rand", $exitfn if $ecount;
 unlink "$relayfn.$rand";
 unlink "$exitfn.$rand";
 
-exit 0;
+exit $error;
 
 sub clean_addr
 {