Index: /trunk/scripts/TestHTTPS.pl
===================================================================
--- /trunk/scripts/TestHTTPS.pl	(revision 13584)
+++ /trunk/scripts/TestHTTPS.pl	(revision 13585)
@@ -8,4 +8,23 @@
 
 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,5 +76,5 @@
 }
 
-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,5 +99,5 @@
   if($local) # skip test
   {
-    print "* $url:$i\n";
+    print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
     next;
   }
@@ -92,5 +111,5 @@
     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,5 +118,5 @@
     $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";
   }
 }