+++ /dev/null
-{ head("Lintian Package Index: $section") }
- <h1>Package Index: {$section}</h1>
-
- <p>
- This is a list of all source or binary packages that have at least one
- lintian tag. This includes all tags, even experimental and info tags
- and tags that were overridden. The list is huge, so it's broken into
- four separate pages. This page covers package names starting with
- {$section}.
- </p>
-
- <p>
- <a href="packages_1.html">0-9, A-F</a>
- | <a href="packages_2.html">G-L</a>
- | <a href="packages_3.html">M-R</a>
- | <a href="packages_4.html">S-Z</a>
- </p>
-
-{
- # Put headings before each new initial letter.
- my $letter = '';
- for my $package (@list) {
- my $first = uc substr($package, 0, 1);
- if ($first ne $letter) {
- $OUT .= " </p>\n\n" if $letter;
- $OUT .= qq( <h2>$first</h2>\n\n <p>\n);
- $letter = $first;
- }
- $OUT .= qq( <a href="full/$packages{$package}">$package</a>\n);
- }
-} </p>
-{ foot() }