aboutsummaryrefslogtreecommitdiffstats
path: root/ports-mgmt
diff options
context:
space:
mode:
Diffstat (limited to 'ports-mgmt')
-rw-r--r--ports-mgmt/portlint/Makefile16
-rw-r--r--ports-mgmt/portlint/pkg-descr3
-rw-r--r--ports-mgmt/portlint/src/portlint.11
-rw-r--r--ports-mgmt/portlint/src/portlint.pl194
4 files changed, 173 insertions, 41 deletions
diff --git a/ports-mgmt/portlint/Makefile b/ports-mgmt/portlint/Makefile
index f8f298613b42..e10bd1dde1fd 100644
--- a/ports-mgmt/portlint/Makefile
+++ b/ports-mgmt/portlint/Makefile
@@ -8,8 +8,7 @@
#
PORTNAME= portlint
-PORTVERSION= 2.3.3
-PORTREVISION= 5
+PORTVERSION= 2.4.0
CATEGORIES= devel
MASTER_SITES= # none
DISTFILES= # none
@@ -18,8 +17,9 @@ MAINTAINER= marcus@FreeBSD.org
COMMENT= A verifier for FreeBSD port directory
NO_BUILD= yes
-NO_WRKSUBDIR= yes
+WRKSRC= ${WRKDIR}/src
USE_PERL5= yes
+USE_REINPLACE= yes
SRC= ${.CURDIR}/src
@@ -28,8 +28,14 @@ MAN1= portlint.1
do-fetch:
@${DO_NADA}
+pre-patch:
+ @${CP} -R ${SRC} ${WRKDIR}
+
+post-patch:
+ @${REINPLACE_CMD} -e 's|/usr/bin/perl|${PERL}|' ${WRKSRC}/portlint.pl
+
do-install:
- ${INSTALL_SCRIPT} ${SRC}/portlint.pl ${PREFIX}/bin/portlint
- ${INSTALL_MAN} ${SRC}/portlint.1 ${MAN1PREFIX}/man/man1
+ ${INSTALL_SCRIPT} ${WRKSRC}/portlint.pl ${PREFIX}/bin/portlint
+ ${INSTALL_MAN} ${WRKSRC}/portlint.1 ${MAN1PREFIX}/man/man1
.include <bsd.port.mk>
diff --git a/ports-mgmt/portlint/pkg-descr b/ports-mgmt/portlint/pkg-descr
index 39bf003d355e..9c4a594cd44e 100644
--- a/ports-mgmt/portlint/pkg-descr
+++ b/ports-mgmt/portlint/pkg-descr
@@ -1,7 +1,8 @@
portlint makes a small set of sanity checks for port directory.
-usage: portlint [-abctvN] [-B#] [port_directory]
+usage: portlint [-AabctvN] [-B#] [port_directory]
-a additional check for scripts/* and pkg/*
+ -A turn on all additional checks (equivalent to -abcNt)
-b warn $(VARIABLE)
-c committer mode
-v verbose mode
diff --git a/ports-mgmt/portlint/src/portlint.1 b/ports-mgmt/portlint/src/portlint.1
index b1e9a8e039ef..4e5df9394949 100644
--- a/ports-mgmt/portlint/src/portlint.1
+++ b/ports-mgmt/portlint/src/portlint.1
@@ -138,6 +138,7 @@ can be overriden by setting the
environment variable.
.Sh AUTHORS
+.An Joe Marcus Clarke Aq marcus@FreeBSD.org
.An Michael Haro Aq mharo@FreeBSD.org
.An Jun-ichiro Hagino Aq itojun@itojun.org
and
diff --git a/ports-mgmt/portlint/src/portlint.pl b/ports-mgmt/portlint/src/portlint.pl
index cd92ae79cb62..d6c65488a12f 100644
--- a/ports-mgmt/portlint/src/portlint.pl
+++ b/ports-mgmt/portlint/src/portlint.pl
@@ -17,10 +17,10 @@
# OpenBSD and NetBSD will be accepted.
#
# $FreeBSD$
-# $Id: portlint.pl,v 1.28.2.1 2000/04/24 02:12:36 mharo Exp $
+# $Id: portlint.pl,v 1.3 2003/07/20 00:24:42 marcus Exp $
#
-use vars qw/ $opt_a $opt_b $opt_c $opt_h $opt_t $opt_v $opt_M $opt_N $opt_B $opt_V /;
+use vars qw/ $opt_a $opt_A $opt_b $opt_c $opt_h $opt_t $opt_v $opt_M $opt_N $opt_B $opt_V /;
use Getopt::Std;
use File::Find;
use IPC::Open2;
@@ -82,8 +82,9 @@ my $re_lang_pref = '(' . join('|', @lang_pref) . ')-';
my ($prog) = ($0 =~ /([^\/]+)$/);
sub usage {
print STDERR <<EOF;
-usage: $prog [-abchvtN] [-M ENV] [-B#] [port_directory]
+usage: $prog [-AabchvtN] [-M ENV] [-B#] [port_directory]
-a additional check for scripts/* and pkg-*
+ -A turn on all additional checks (equivalent to -abcNt)
-b warn \$(VARIABLE)
-c committer mode
-h show summary of command line options
@@ -216,9 +217,9 @@ open(MK, $sites_mk) || die "$sites_mk: $!";
my @site_groups = grep($_ = /^MASTER_SITE_(\w+)/ && $1, <MK>);
close(MK);
-my $cmd = join(' -V MASTER_SITE_', "make $makeenv -f - all", @site_groups);
+$cmd = join(' -V MASTER_SITE_', "make $makeenv -f - all", @site_groups);
-my $i = 0;
+$i = 0;
open2(IN, OUT, $cmd);
@@ -288,6 +289,12 @@ foreach my $i (@checker) {
}
}
}
+
+# Check to make sure there is no pkg-comment file anymore.
+if (-f 'pkg-comment') {
+ &perror("FATAL: Use of pkg-comment is obsolete. Use the COMMENT macro within the port's Makefile instead.");
+}
+
if ($committer) {
sub find_proc {
return if /^\.\.?$/;
@@ -308,8 +315,7 @@ if ($committer) {
&perror("FATAL: $fullname: empty file and should be removed. ".
"If it still needs to be there, put a dummy comment ".
"to state that the file is intentionally left empty.");
- $problem = 1;
- } elsif (-d && scalar(@x = <$_/{*,.?*}>) <= 1) {
+ } elsif (-d && scalar(my @x = <$_/{*,.?*}>) <= 1) {
&perror("FATAL: $fullname: empty directory should be removed.");
} elsif (/^\./) {
&perror("Warning: $fullname: dotfiles are not preferred. ".
@@ -396,13 +402,21 @@ sub checkdescr {
sub checkplist {
my($file) = @_;
my($curdir) = ($localbase);
+ my(%omfremoveseen) = ();
+ my(%omfinstallseen) = ();
+ my(%omfseen) = ();
my($inforemoveseen, $infoinstallseen, $infoseen) = (0, 0, 0);
+ my(%omfafterinstall) = ();
+ my(%omfafterremove) = ();
my($infobeforeremove, $infoafterinstall) = (0, 0);
my($infooverwrite) = (0);
my($rcsidseen) = (0);
+ my(@exec_omf) = ();
my(@exec_info) = ();
+ my(@unexec_omf) = ();
my(@unexec_info) = ();
+ my(@omffile) = ();
my(@infofile) = ();
open(IN, "< $file") || return 0;
@@ -420,6 +434,10 @@ sub checkplist {
&perror("WARN: $file $.: use of <\$ARCH> deprecated, ".
"use \${MACHINE_ARCH} instead.");
}
+ if (m'lib/perl5/site_perl/%%PERL_VER%%') {
+ &perror("WARN: $file $.: use \%\%SITE_PERL\%\% ".
+ "instead of lib/perl5/site_perl/\%\%PERL_VER\%\%.");
+ }
if ($_ =~ /^\@/) {
if ($_ =~ /^\@(cwd|cd)[ \t]+(\S+)/) {
$curdir = $2;
@@ -428,9 +446,19 @@ sub checkplist {
&perror("WARN: use \"\@dirrm\" ".
"instead of \"\@unexec rmdir\".");
}
+ } elsif ($_ =~ /^\@exec[ \t]+scrollkeeper-install[ \t]+-q\s+(\S+)\s+.+$/) {
+ push(@exec_omf, $1);
+ my $ot = $1;
+ $ot =~ s/^\%D\///;
+ $omfinstallseen{$ot} = $.;
} elsif ($_ =~ /^\@exec[ \t]+install-info\s+(.+)\s+(.+)$/) {
$infoinstallseen = $.;
push(@exec_info, $1);
+ } elsif ($_ =~ /^\@unexec[ \t]+scrollkeeper-uninstall[ \t]+-q\s+(\S+)\s+.+$/) {
+ push(@unexec_omf, $1);
+ my $ot = $1;
+ $ot =~ s/^\%D\///;
+ $omfremoveseen{$ot} = $.;
} elsif ($_ =~ /^\@unexec[ \t]+install-info[ \t]+--delete\s+(.+)\s+(.+)$/) {
$inforemoveseen = $.;
push(@unexec_info, $1);
@@ -475,6 +503,13 @@ sub checkplist {
"please define INSTALLS_SHLIB as appropriate");
}
+ if ($_ =~ /.*\.omf$/) {
+ $omfseen{$_} = $.;
+ $omfafterinstall{$_}++ if ($omfinstallseen{$_});
+ $omfafterremove{$_}++ if ($omfremoveseen{$_});
+ push(@omffile, $_);
+ }
+
if ($_ =~ /^info\/.*info(-[0-9]+)?$/) {
$infoseen = $.;
$infoafterinstall++ if ($infoinstallseen);
@@ -489,6 +524,14 @@ sub checkplist {
$infooverwrite++;
}
+ if ($_ =~ /^(\%\%PORTDOCS\%\%)?share\/doc\//) {
+ &perror("WARN: $file $.: consider using DOCSDIR macro");
+ }
+
+ if ($_ =~ /^share\/examples\//) {
+ &perror("WARN: $file $.: consider using EXAMPLESDIR macro");
+ }
+
if ($_ =~ m#man/([^/]+/)?man([$manchapters])/([^\.]+\.[$manchapters])(\.gz)?$#) {
if ($4 eq '') {
$plistman{$2} .= ' ' . $3;
@@ -526,6 +569,21 @@ sub checkplist {
}
}
+ # Check that each OMF file has an install and deinstall line.
+ my $omf_install = join(" ", @exec_omf);
+ $omf_install .= ' ';
+ my $omf_deinstall = join(" ", @unexec_omf);
+ $omf_deinstall .= ' ';
+
+ foreach my $of (@omffile) {
+ if ($omf_install !~ /\%D\/\Q$of\E/) {
+ &perror("FATAL: you need an '\@exec scrollkeeper-install -q \%D/$of 2>/dev/null || /usr/bin/true' line in your pkg-plist");
+ }
+ if ($omf_deinstall !~ /\%D\/$of/) {
+ &perror("FATAL: you need an '\@unexec scrollkeeper-uninstall -q \%D/$of 2>/dev/null || /usr/bin/true' line in your pkg-plist");
+ }
+ }
+
# check that every infofile has an exec install-info and unexec install-info
my $exec_install = join(" ", @exec_info);
$exec_install .= ' ';
@@ -547,30 +605,61 @@ sub checkplist {
"in $file as \@comment.")
}
- if (!$infoseen) {
+ if (!$infoseen && !scalar(keys %omfseen)) {
close(IN);
return 1;
}
- if (!$infoinstallseen) {
- if ($infooverwrite) {
- &perror("FATAL: install-info must be used to ".
- "add/delete entries into \"info/dir\".");
- }
- &perror("FATAL: \"\@exec install-info \%D/... \%D/info/dir\" must be placed ".
- "after all the info files.");
- } elsif ($infoafterinstall) {
- &perror("FATAL: move \"\@exec install-info\" line to make ".
- "sure that it is placed after all the info files. ".
- "(currently on line $infoinstallseen in $file)");
- }
- if (!$inforemoveseen) {
- &perror("FATAL: \"\@unexec install-info --delete \%D/... \%D/info/dir\" must ".
- "be placed before any of the info files listed.");
- } elsif ($infobeforeremove) {
- &perror("FATAL: move \"\@exec install-info --delete\" ".
- "line to make sure ".
- "that it is placed before any of the info files. ".
- "(currently on line $inforemoveseen in $file)");
+ if (scalar(keys %omfseen)) {
+ if (!scalar(keys %omfinstallseen)) {
+ &perror("FATAL: scrollkeeper-install must be used to ".
+ "add/delete entries from the ScrollKeeper OMF database.");
+ } else {
+ foreach my $of (keys %omfseen) {
+ if ($omfafterinstall{$of}) {
+ &perror("FATAL: move \"\@exec scrollkeeper-install\" ".
+ "line to make sure that it is placed after ".
+ "the $of entry. (currently on line ".
+ "$omfinstallseen{$of} in $file)");
+ }
+ }
+ }
+ if (!scalar(keys %omfremoveseen)) {
+ &perror("FATAL: \"\@unexec scrollkeeper-uninstall\" must be ".
+ "placed after the OMF file it uninstalls.");
+ } else {
+ foreach my $of (keys %omfseen) {
+ if ($omfafterremove{$of}) {
+ &perror("FATAL: move \"\@unexec scrollkeeper-uninstall\" ".
+ "line to make sure that it is placed after ".
+ "the $of entry. (currently on line ".
+ "$omfremoveseen{$of} in $file)");
+ }
+ }
+ }
+ }
+
+ if ($infoseen) {
+ if (!$infoinstallseen) {
+ if ($infooverwrite) {
+ &perror("FATAL: install-info must be used to ".
+ "add/delete entries into \"info/dir\".");
+ }
+ &perror("FATAL: \"\@exec install-info \%D/... \%D/info/dir\" must be placed ".
+ "after all the info files.");
+ } elsif ($infoafterinstall) {
+ &perror("FATAL: move \"\@exec install-info\" line to make ".
+ "sure that it is placed after all the info files. ".
+ "(currently on line $infoinstallseen in $file)");
+ }
+ if (!$inforemoveseen) {
+ &perror("FATAL: \"\@unexec install-info --delete \%D/... \%D/info/dir\" must ".
+ "be placed before any of the info files listed.");
+ } elsif ($infobeforeremove) {
+ &perror("FATAL: move \"\@exec install-info --delete\" ".
+ "line to make sure ".
+ "that it is placed before any of the info files. ".
+ "(currently on line $inforemoveseen in $file)");
+ }
}
close(IN);
}
@@ -779,8 +868,8 @@ sub checkmakefile {
my %cmdnames = ();
print "OK: checking direct use of command names.\n" if ($verbose);
foreach my $i (qw(
-awk basename cat chmod chown cp echo expr false gmake grep gzcat
-ldconfig ln md5 mkdir mv patch rm rmdir sed sh touch tr which xmkmf
+awk basename cat chmod chown cp echo expr false file find gmake grep gzcat
+ldconfig ln md5 mkdir mv patch rm rmdir sed sh strip touch tr which xargs xmkmf
)) {
$cmdnames{$i} = "\$\{\U$i\E\}";
}
@@ -796,7 +885,8 @@ ldconfig ln md5 mkdir mv patch rm rmdir sed sh touch tr which xmkmf
$j =~ s/([ \t][\@-]?)(echo|\$[\{\(]ECHO[\}\)]|\$[\{\(]ECHO_MSG[\}\)])[ \t]+("(\\'|\\"|[^"])*"|'(\\'|\\"|[^'])*')[ \t]*[;\n]/$1$2;/; #"
foreach my $i (keys %cmdnames) {
if ($j =~ /[ \t\/]$i[ \t\n;]/
- && $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+$i/) {
+ && $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+$i/
+ && $j !~ /^COMMENT(.)?=/) {
&perror("WARN: possible direct use of command \"$i\" ".
"found. use $cmdnames{$i} instead.");
}
@@ -834,6 +924,23 @@ ldconfig ln md5 mkdir mv patch rm rmdir sed sh touch tr which xmkmf
&abspathname($whole, $file);
#
+ # whole file: SITE_PERL
+ #
+ print "OK: checking SITE_PERL.\n" if ($verbose);
+ if ($whole =~ /\nSITE_PERL[?:]?=/) {
+ &perror("FATAL: use of SITE_PERL discouraged. ".
+ "it is set in bsd.port.mk.");
+ }
+
+ #
+ # whole file: ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}
+ #
+ if ($j =~ m'\${(?:LOCALBASE|PREFIX)}/lib/perl5/site_perl/\${PERL_VER}') {
+ &perror("WARN: possible use of \"\${LOCALBASE}/lib/perl5/site_perl/\${PERL_VER}\" ".
+ "found. use \"\${SITE_PERL}\" instead.");
+ }
+
+ #
# slave port check
#
my $masterdir = $makevar{MASTERDIR};
@@ -1019,7 +1126,13 @@ DISTFILES DIST_SUBDIR EXTRACT_ONLY
print "OK: seen MASTER_SITES, sanity checking URLs.\n"
if ($verbose);
my @sites = split(/\s+/, $1);
+ my $skipnext = 0;
foreach my $i (@sites) {
+ if ($skipnext) {
+ $skipnext = 0;
+ next;
+ }
+ $skipnext++ if ($i =~ /^#/);
if ($i =~ m#^\w+://#) {
&urlcheck($i);
unless (&is_predefined($i)) {
@@ -1102,7 +1215,7 @@ DISTFILES DIST_SUBDIR EXTRACT_ONLY
# should be
# DISTNAME= package-1.0
# EXTRACT_SUFX= .tgz
- if ($distfiles =~ /^\S+$/) {
+ if ($distfiles =~ /^\S+$/ && $distfiles !~ /:[^\/:]+$/) {
$bogusdistfiles++;
print "OK: seen DISTFILES with single item, checking value.\n"
if ($verbose);
@@ -1208,6 +1321,9 @@ MAINTAINER COMMENT
if ($addr =~ /[\s,<>()]/) {
&perror("FATAL: MAINTAINER should be a single address without comment.");
}
+ if ($addr !~ /^[^\@]+\@[\w\d\-\.]+$/) {
+ &perror("FATAL: MAINTAINER address, $addr, does not appear to be a valid email address.");
+ }
$tmp =~ s/\nMAINTAINER\??=[^\n]+//;
} elsif ($whole !~ /\nMAINTAINER[?]?=/) {
&perror("FATAL: no MAINTAINER listed in $file.") unless ($slaveport && $makevar{MAINTAINER} ne '');
@@ -1241,7 +1357,8 @@ MAINTAINER COMMENT
# NOTE: EXEC_DEPENDS is obsolete, so it should not be listed.
@linestocheck = qw(
-LIB_DEPENDS BUILD_DEPENDS RUN_DEPENDS FETCH_DEPENDS DEPENDS DEPENDS_TARGET
+EXTRACT_DEPENDS LIB_DEPENDS PATCH_DEPENDS BUILD_DEPENDS RUN_DEPENDS
+FETCH_DEPENDS DEPENDS DEPENDS_TARGET
);
if ($tmp =~ /(LIB_|BUILD_|RUN_|FETCH_)?DEPENDS/) {
@@ -1318,6 +1435,13 @@ LIB_DEPENDS BUILD_DEPENDS RUN_DEPENDS FETCH_DEPENDS DEPENDS DEPENDS_TARGET
"USE_QT.");
}
+ # check USE_GETOPT_LONG
+ if ($m{'dep'} =~ /^(gnugetopt\.\d)+$/) {
+ &perror("WARN: dependency to $1 ".
+ "listed in $j. consider using ".
+ "USE_GETOPT_LONG.");
+ }
+
# check backslash in LIB_DEPENDS
if ($osname eq 'NetBSD' && $j eq 'LIB_DEPENDS'
&& $m{'dep'} =~ /\\\\./) {
@@ -1707,9 +1831,9 @@ sub urlcheck {
if ($url !~ m#^\w+://#) {
&perror("WARN: \"$url\" doesn't appear to be a URL to me.");
}
- if ($url !~ m#/$#) {
+ if ($url !~ m#/(:[^/:]+)?$#) {
&perror("FATAL: URL \"$url\" should ".
- "end with \"/\".");
+ "end with \"/\" or a group name (e.g. :something).");
}
if ($url =~ m#://[^/]*:/#) {
&perror("FATAL: URL \"$url\" contains ".