blob: 1bf267e0988dd27980071112311837bed6317872 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl
#
# Copyright (c) 2003 Oliver Eikemeier. All rights reserved.
#
# BSD licensed.
#
#
# List all the ports with FATAL errors:
#
# portlintgrep ^FATAL:
#
require 5.005;
use diagnostics;
use strict;
use Carp;
my $make = $ENV{MAKE} ? $ENV{MAKE} : '/usr/bin/make';
my $portlint = $ENV{PORTLINT} ? $ENV{PORTLINT} : '/usr/local/bin/portlint';
my $portsdir = $ENV{PORTSDIR} ? $ENV{PORTSDIR} : '/usr/ports';
my $portlint_args = $ENV{PORTLINT_ARGS} ? $ENV{PORTLINT_ARGS} : '';
die "Usage: portlintgrep <regex>\n" if $#ARGV != 0;
my $regex = qr/$ARGV[0]/;
my %failedports;
my @categories = split ' ', `cd $portsdir; $make -VSUBDIR`;
foreach my $category (@categories) {
my @ports = split ' ', `cd "$portsdir/$category"; $make -VSUBDIR`;
foreach my $port (@ports) {
my @result =
`cd "$portsdir/$category/$port"; $portlint $portlint_args`;
map chomp, @result;
my @filteredresult = grep /$regex/o, @result;
if (@filteredresult) {
my $maintainer =
`cd "$portsdir/$category/$port"; $make -VMAINTAINER`;
chomp $maintainer;
push @{$failedports{$maintainer}}, "$category/$port";
print join("\n ",
"$category/$port <$maintainer>:",
@filteredresult),
"\n";
}
}
}
print "\nPorts sorted by maintainer:\n";
foreach my $maintainer (sort { lc $a cmp lc $b } keys %failedports) {
print join("\n - ", $maintainer, @{$failedports{$maintainer}}), "\n";
}
|
