diff options
Diffstat (limited to '')
-rw-r--r-- | reporting/templates/tag.tmpl | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/reporting/templates/tag.tmpl b/reporting/templates/tag.tmpl new file mode 100644 index 0000000..d7c7271 --- /dev/null +++ b/reporting/templates/tag.tmpl @@ -0,0 +1,102 @@ +{ # No my/our in front of $q_tag or it will leave scope too soon! + $q_tag = html_quote($tag); + head("Lintian Tag: ${q_tag}") } + <h1><span class="type-{$code}">{$code}</span> {${q_tag}}</h1> + +{ if ($statistics{total} <= $shown_count) { + $OUT .= qq( + <p> + All reports of ${tag} for the archive. The extended description of this + tag is: + </p> +); + } else { + my $log_link = resource_path('lintian.log.gz'); + $OUT .= qq( + <p> + A subset of the reports of ${tag} for the archive. Unfortunately the full + list is too long, so only ${shown_count} instances are listed on this page. + At most ${tag_limit_per_package} tags are shown per package. + <a href="${log_link}">If you need the full list of tags, + please download the lintian.log.gz file and extract the data you need.</a> + </p> + <p> + The extended description of this tag is: + </p> + ); + } +} + + <blockquote class="type-{$code}"> +{$description} + </blockquote> + +{ + if ($graphs) { + my $graph_link = resource_path("${tag}.svg"); + $OUT .= qq( <p>\n); + $OUT .= qq( Evolution of the ${q_tag} Lintian tag over the past\n); + $OUT .= qq( $graphs_days days:</p>\n); + $OUT .= qq( <div class="graph"><a href="${graph_link}"><img class="graph"\n); + $OUT .= qq( src="${graph_link}" alt="The beforementioned graph for the ${q_tag} tag"\n); + $OUT .= qq( /></a></div>\n); + } + $OUT .= qq(<p>Emitted (non-overridden): $statistics{count}, ); + $OUT .= qq(overridden: $statistics{overrides}, ); + $OUT .= qq(total: $statistics{total}</p>); +} + + <p> + The package names link to the relevant maintainer page and the + corresponding report for the source package. The links go to the full + maintainer report page, which includes info and experimental tags and + overridden tags, rather than the default page that shows only errors + and warnings. + </p> +{ + # We get a list of tag data. We create a separate paragraph for each + # package name. + my ($last, $last_pi, $tag, $has_nonoverridden); + for my $info (sort { $a->{pkg_info}{package} cmp $b->{pkg_info}{package} } @tags) { + my $pkg_info = $info->{pkg_info}; + if (!$last + or "$pkg_info->{package} $pkg_info->{type} $pkg_info->{version}" ne "$last_pi->{package} $last_pi->{type} $last_pi->{version}") { + if ($last) { + my $overridden = $has_nonoverridden ? '' : qq{ <span class="type-O">overridden</span>}; + $OUT .= qq( <h2 class="tag"><a href="${path_prefix}full/$last->{pkg_info}{xref}">); + $OUT .= "$last_pi->{package} $last_pi->{version}</a> ($last_pi->{type}) (<em>$last_pi->{maintainer}</em>)$overridden</em></h2>\n"; + if ($tag) { + $OUT .= qq( <ul class="tag">\n); + $OUT .= $tag; + $OUT .= "</ul>\n"; + } else { + $OUT .= qq(<br class="tag" />\n); + } + } + $last = $info; + $last_pi = $pkg_info; + $tag = ''; + $has_nonoverridden = 0; + } + $has_nonoverridden = 1 if $info->{code} ne 'O'; + if ($info->{extra}) { + $tag .= qq{ <li class="type-$info->{code}">}; + $tag .= qq{<span class="type-O">O</span> } if $info->{code} eq 'O'; + $tag .= $info->{extra}; + my @archs = sort keys %{ $info->{archs} }; + $tag .= " <tt>[" . join(', ', @archs) . "]</tt>" if @archs > 1; + $tag .= "</li>"; + } + } + my $overridden = $has_nonoverridden ? '' : qq{ <span class="type-O">overridden</span>}; + $OUT .= qq( <h2 class="tag"><a href="${path_prefix}full/$last->{pkg_info}{xref}">); + $OUT .= "$last_pi->{package} $last_pi->{version}</a> ($last_pi->{type}) (<em>$last_pi->{maintainer}</em>)$overridden</h2>\n"; + if ($tag) { + $OUT .= qq( <ul class="tag">\n); + $OUT .= $tag; + $OUT .= "</ul>\n"; + } else { + $OUT .= qq(<br class="tag" />\n); + } +} +{ foot() } |