Changeset 13585 in josm for trunk/scripts


Ignore:
Timestamp:
2018-03-30T15:16:19+02:00 (19 months ago)
Author:
stoecker
Message:

see #16123 - add domain ignore list to output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/scripts/TestHTTPS.pl

    r13556 r13585  
    88
    99my %urls;
     10
     11my %known = map {$_ => 1} qw(
     12  a.tile.osm-tools.org
     13  b.tile.osm-tools.org
     14  c.tile.osm-tools.org
     15  d.tile.osm-tools.org
     16  e-mapa.net
     17  ge.ch
     18  gis.mapa.lodz.pl
     19  osmdata.asitvd.ch
     20  siglon.londrina.pr.gov.br
     21  tiles.itoworld.com
     22  tms.cadastre.openstreetmap.fr
     23  wms.openstreetmap.de
     24  www.jgoodies.com
     25  www.osm-tools.org
     26  www.webatlasde.de
     27  zibi.openstreetmap.org.pl
     28);
    1029
    1130sub getmaps
     
    5776}
    5877
    59 print "Options: PLUGIN, STYLE, RULE, PRESET, MAP, GETPLUGIN, GETSTYLE, GETRULE, GETPRESET, GETMAP, LOCAL\n" if !@ARGV;
     78print "Options: PLUGIN STYLE RULE PRESET MAP GETPLUGIN GETSTYLE GETRULE GETPRESET GETMAP LOCAL\n" if !@ARGV;
    6079
    6180my $local = 0;
     
    8099  if($local) # skip test
    81100  {
    82     print "* $url:$i\n";
     101    print "* ".($known{$url} ? "~~" : "")."$url:$i\n";
    83102    next;
    84103  }
     
    92111    my($code, $mess, %h) = $s->read_response_headers;
    93112    alarm(0);
    94     print "* $url [$code $mess]: $i\n";
     113    print "* ".($known{$url} ? "~~" : "")."$url [$code $mess]: $i\n";
    95114  };
    96115  if($@ && $@ !~ "(--Alarm--|Connection refused)")
     
    99118    $e =~ s/[\r\n]//g;
    100119    $e =~ s/ at scripts\/TestHTTPS.pl .*//;
    101     print "* $url [Error $e] :$i\n";
     120    print "* ".($known{$url} ? "~~" : "")."$url [Error $e] :$i\n";
    102121  }
    103122}
Note: See TracChangeset for help on using the changeset viewer.