#!/usr/bin/perl # These corrections makes index.html from the libgd 2.0.11 source # pass the weblint check. my @lines=<>; my $text = join "", @lines; # must contain all or none of the parameters $text =~ s|<(body)[^>]*>|<$1>|i; # is of higher order than $text =~ s|(]*)?>)|$2$1|gis; $text =~ s|()([^<]*)|$2$1|gi; # requires closing $text =~ s|(][^<]*<(a)\s[^<]*)()|$1$3|gis; $text =~ s|(
<(a)\sname=[^<]+?()?([^<]*$4$7|gis; # cannot be nested $text =~ s|([^<]*\)[^<]*)()|$1$3$2|gis; # HREF parameter of must be quoted $text =~ s|href=([^"][^\s">]*)|href="$1"|gi; # <> not defining a tag must be escaped $text =~ s|<([^\s"@<>]+\@[^\s"@<>]+)>|<$1>|g; $text =~ s|(\s)<(\s)|$1<$2|g; $text =~ s|([^-]-)>|$1>|g; $text =~ s||<xxx>|; # Correct typos... $text =~ s|(void gdImageJpegCtx[^<]*)|$1|; $text =~ s|\n(
)|$1|; $text =~ s|
\n(
)|$1gdImageAlpha$2|; $text =~ s|(int gdImageBlue[^<]*)|
$1|; $text =~ s|VALIGN="TOP >|VALIGN="TOP">|g; $text =~ s|(

\n

)|\n$1|gis; print $text;