Changeset 18737 in josm

Timestamp:

2023-05-30T15:12:14+02:00 (19 months ago)

Author:

stoecker

Message:

small script fix to ignore non-URLs

File:

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

trunk/scripts/TestHTTPS.pl

@@ -33 +33 @@
     for my $e ($xpc->findnodes(".//j:*", $entry))
     {
-      if($e->textContent =~ /^http:\/\/(.*?)(:\d+)?[\/]/)
+      if($e->textContent =~ /^http:\/\/([^ ]+?)(:\d+)?[\/]/)
       {
         my $u = $1;
@@ -72 +72 @@
       }
     }
-    if($line =~ /http:\/\/(.*?)(:\d+)?[\/]/)
+    if($line =~ /http:\/\/([^ ]+?)(:\d+)?[\/]/)
     {
       $urls{$1}{$name}++;