Changeset 14619 in josm for trunk/scripts

Timestamp:

2018-12-31T14:51:46+01:00 (6 years ago)

Author:

stoecker

Message:

see #16123 - add logfile output, drop old ignores

File:

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

trunk/scripts/TestHTTPS.pl

@@ -10 +10 @@
 
 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 +67 @@
 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 +96 @@
   if($local) # skip test
   {
-    print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
+    doprint "* ".($known{$url} ? "~~" : "")."$url:$i\n";
     next;
   }
@@ -105 +108 @@
     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 +115 @@
     $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";
   }
 }