diff options
Diffstat (limited to 'httpd/cgi-bin/check')
| -rwxr-xr-x | httpd/cgi-bin/check | 40 |
1 files changed, 13 insertions, 27 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 5a1c515..a2dd6c2 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.716 2009-10-24 15:59:18 ville Exp $ +# $Id: check,v 1.717 2009-10-24 16:50:06 ville Exp $ # # Disable buffering on STDOUT! $| = 1; @@ -209,7 +209,7 @@ Directory not readable (permission denied): @_r # # Strings - $VERSION = q$Revision: 1.716 $; + $VERSION = q$Revision: 1.717 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # @@ -1468,31 +1468,17 @@ sub report_valid { if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}) { my $cfg = $CFG->{Types}->{$File->{DOCTYPE}}; - $T->param(have_badge => TRUE); - $T->param(badge_uri => $cfg->{Badge}->{URI}); - if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}->{'Local URI'}) { - $T->param(local_badge_uri => $cfg->{Badge}->{'Local URI'}); - $T->param(have_local_badge => TRUE); - } - if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}->{'ALT URI'}) { - $T->param(badge_alt_uri => $cfg->{Badge}->{'ALT URI'}); - if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}->{'Local ALT URI'}) { - $T->param(local_alt_badge_uri => $cfg->{Badge}->{'Local ALT URI'}); - } - $T->param(have_alt_badge => TRUE); - } - - if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}->{RDFa}) { - $T->param(have_badge_rdfa => TRUE); - $T->param(badge_rdfa => $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}->{RDFa}); - } else { - $T->param(have_badge_rdfa => FALSE); - } - - $T->param(badge_alt => $cfg->{Badge}->{Alt}); - $T->param(badge_h => $cfg->{Badge}->{Height}); - $T->param(badge_w => $cfg->{Badge}->{Width}); - $T->param(badge_tagc => ($cfg->{'Parse Mode'} eq 'XML' ? ' /' : '')); + $T->param( + badge_uri => $cfg->{Badge}->{URI}, + local_badge_uri => $cfg->{Badge}->{'Local URI'}, + badge_alt_uri => $cfg->{Badge}->{'Alt URI'}, + local_alt_badge_uri => $cfg->{Badge}->{'Local ALT URI'}, + badge_alt => $cfg->{Badge}->{Alt}, + badge_rdfa => $cfg->{Badge}->{RDFa}, + badge_h => $cfg->{Badge}->{Height}, + badge_w => $cfg->{Badge}->{Width}, + badge_tagc => $cfg->{'Parse Mode'} eq 'XML' ? ' /' : '', + ); } } elsif (defined $File->{Tentative}) { $T->param(is_tentative => TRUE); |