Index: trunk/scripts/TestHTTPS.pl
===================================================================
--- trunk/scripts/TestHTTPS.pl	(revision 14600)
+++ trunk/scripts/TestHTTPS.pl	(revision 14619)
@@ -10,13 +10,8 @@
 
 my %known = map {$_ => 1} qw(
-  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
   zibi.openstreetmap.org.pl
 );
@@ -72,4 +67,12 @@
 print "Options: PLUGIN STYLE RULE PRESET MAP GETPLUGIN GETSTYLE GETRULE GETPRESET GETMAP LOCAL\n" if !@ARGV;
 
+open OUTFILE,">>","josm_https.txt" or die "Could not open output file";
+
+sub doprint($)
+{
+  print OUTFILE $_[0];
+  print $_[0];
+}
+
 my $local = 0;
 for my $ARG (@ARGV)
@@ -93,5 +96,5 @@
   if($local) # skip test
   {
-    print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
+    doprint "* ".($known{$url} ? "~~" : "")."$url:$i\n";
     next;
   }
@@ -105,5 +108,5 @@
     my($code, $mess, %h) = $s->read_response_headers;
     alarm(0);
-    print "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
+    doprint "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
   };
   if($@ && $@ !~ "(--Alarm--|Connection refused)")
@@ -112,5 +115,5 @@
     $e =~ s/[\r\n]//g;
     $e =~ s/ at scripts\/TestHTTPS.pl .*//;
-    print "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
+    doprint "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
   }
 }