Changeset 13585 in josm for trunk/scripts

Timestamp:

2018-03-30T15:16:19+02:00 (7 years ago)

Author:

stoecker

Message:

see #16123 - add domain ignore list to output

File:

• trunk/scripts/TestHTTPS.pl (modified) (5 diffs)

trunk/scripts/TestHTTPS.pl

@@ -8 +8 @@
 
 my %urls;
+
+my %known = map {$_ => 1} qw(
+  a.tile.osm-tools.org
+  b.tile.osm-tools.org
+  c.tile.osm-tools.org
+  d.tile.osm-tools.org
+  e-mapa.net
+  ge.ch
+  gis.mapa.lodz.pl
+  osmdata.asitvd.ch
+  siglon.londrina.pr.gov.br
+  tiles.itoworld.com
+  tms.cadastre.openstreetmap.fr
+  wms.openstreetmap.de
+  www.jgoodies.com
+  www.osm-tools.org
+  www.webatlasde.de
+  zibi.openstreetmap.org.pl
+);
 
 sub getmaps
@@ -57 +76 @@
 }
 
-print "Options: PLUGIN, STYLE, RULE, PRESET, MAP, GETPLUGIN, GETSTYLE, GETRULE, GETPRESET, GETMAP, LOCAL\n" if !@ARGV;
+print "Options: PLUGIN STYLE RULE PRESET MAP GETPLUGIN GETSTYLE GETRULE GETPRESET GETMAP LOCAL\n" if !@ARGV;
 
 my $local = 0;
@@ -80 +99 @@
   if($local) # skip test
   {
-    print "* $url:$i\n";
+    print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
     next;
   }
@@ -92 +111 @@
     my($code, $mess, %h) = $s->read_response_headers;
     alarm(0);
-    print "* $url [$code $mess]: $i\n";
+    print "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
   };
   if($@ && $@ !~ "(--Alarm--|Connection refused)")
@@ -99 +118 @@
     $e =~ s/[\r\n]//g;
     $e =~ s/ at scripts\/TestHTTPS.pl .*//;
-    print "* $url [Error $e] :$i\n";
+    print "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
   }
 }