Changeset 14619 in josm


Ignore:
Timestamp:
2018-12-31T14:51:46+01:00 (3 weeks ago)
Author:
stoecker
Message:

see #16123 - add logfile output, drop old ignores

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/TestHTTPS.pl

    r14444 r14619  
    1010
    1111my %known = map {$_ => 1} qw(
    12   ge.ch
    13   gis.mapa.lodz.pl
    14   osmdata.asitvd.ch
    1512  siglon.londrina.pr.gov.br
    1613  tiles.itoworld.com
    1714  tms.cadastre.openstreetmap.fr
    18   wms.openstreetmap.de
    1915  www.jgoodies.com
    20   www.osm-tools.org
    2116  zibi.openstreetmap.org.pl
    2217);
     
    7267print "Options: PLUGIN STYLE RULE PRESET MAP GETPLUGIN GETSTYLE GETRULE GETPRESET GETMAP LOCAL\n" if !@ARGV;
    7368
     69open OUTFILE,">>","josm_https.txt" or die "Could not open output file";
     70
     71sub doprint($)
     72{
     73  print OUTFILE $_[0];
     74  print $_[0];
     75}
     76
    7477my $local = 0;
    7578for my $ARG (@ARGV)
     
    9396  if($local) # skip test
    9497  {
    95     print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
     98    doprint "* ".($known{$url} ? "~~" : "")."$url:$i\n";
    9699    next;
    97100  }
     
    105108    my($code, $mess, %h) = $s->read_response_headers;
    106109    alarm(0);
    107     print "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
     110    doprint "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
    108111  };
    109112  if($@ && $@ !~ "(--Alarm--|Connection refused)")
     
    112115    $e =~ s/[\r\n]//g;
    113116    $e =~ s/ at scripts\/TestHTTPS.pl .*//;
    114     print "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
     117    doprint "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
    115118  }
    116119}
Note: See TracChangeset for help on using the changeset viewer.