vcs.maemo.org Git - maemian/blob - nokia-lintian/reporting/templates/maintainers.tmpl

   1 { head("Lintian Reports by Maintainer") }
   2   <h1>Maintainers</h1>
   3
   4   <p>
   5     Maintainers are listed sorted case-insensitively by package maintainer
   6     string.  This is an unsophisticated sort that doesn't take into
   7     account any national collating sequence, only Unicode strings, so
   8     maintainers whose names start with non-ASCII characters will sort at
   9     the end of this page.
  10   </p>
  11
  12   <p>
  13     Jump to: { join (' ', map { qq(<a href="#$_">$_</a>) } 'A'..'Z') }
  14   </p>
  15
  16 {
  17     # Put headings before each new initial letter and add anchors, except
  18     # for non-ASCII initial characters.  For those, since we can't be
  19     # assured we'll get combining characters right, just accumulate them
  20     # under a heading of Other.
  21     my $letter = '';
  22     for my $maintainer (sort { lc ($a) cmp lc ($b) } keys %maintainers) {
  23         my ($url) = $maintainers{$maintainer};
  24         my $first = uc substr($maintainer, 0, 1);
  25         if ($first lt 'A' || $first gt 'Z') {
  26             $first = 'Other';
  27         }
  28         if ($first ne $letter) {
  29             unless ($letter) {
  30                 $OUT .= "  </p>\n\n";
  31             }
  32             $letter = $first;
  33             if ($letter eq 'Other') {
  34                 $OUT .= qq(  </p>\n\n  <h2>Other</h2>\n\n  <p>\n);
  35             } else {
  36                 $OUT .= qq(  </p>\n\n  <h2 id="$letter"><a name="$letter">)
  37                     . $letter . "</a></h2>\n\n  <p>\n";
  38             }
  39         }
  40         $OUT .= qq(    <a href="maintainer/$url">$maintainer</a>)
  41             . qq{ (<a href="full/$url">full report</a>)<br />\n};
  42     }
  43 }  </p>
  44 { foot() }