[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files In all URLs, insist on the prop...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/55546ab071c1
branches:  trunk
changeset: 515736:55546ab071c1
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Fri Jul 07 09:45:07 2006 +0000

description:
In all URLs, insist on the proper spelling of NetBSD.org.

diffstat:

 pkgtools/pkglint/files/pkglint.pl |  9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diffs (26 lines):

diff -r 5e3283c3b4bd -r 55546ab071c1 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Fri Jul 07 09:35:05 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Fri Jul 07 09:45:07 2006 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.638 2006/07/06 22:06:15 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.639 2006/07/07 09:45:07 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -4825,9 +4825,14 @@
                } elsif ($value =~ regex_unresolved) {
                        # No further checks
 
-               } elsif ($value =~ qr"^(?:http://|ftp://|gopher://)[-0-9A-Za-z.]+(?::\d+)?/([-%&+,./0-9:=?\@A-Z_a-z~]|\\#)*?$") {
+               } elsif ($value =~ qr"^(https?|ftp|gopher)://([-0-9A-Za-z.]+)(?::(\d+))?/([-%&+,./0-9:=?\@A-Z_a-z~]|\\#)*$") {
+                       my ($proto, $host, $port, $path) = ($1, $2, $3, $4);
                        my $sites = get_dist_sites();
 
+                       if ($host =~ qr"\.NetBSD\.org$"i && $host !~ qr"\.NetBSD\.org$") {
+                               $line->log_warning("Please write NetBSD.org instead of ${host}.");
+                       }
+
                        foreach my $site (keys(%{$sites})) {
                                if (index($value, $site) == 0) {
                                        my $subdir = substr($value, length($site));