526 |
$content =~ s/<\/body>//i; # remove if any |
$content =~ s/<\/body>//i; # remove if any |
527 |
$content =~ s/<\/html>//i; # remove if any |
$content =~ s/<\/html>//i; # remove if any |
528 |
|
|
529 |
$status = sprintf "Slide %2d: %s %s\n", $nr, $title, $subtitle; |
$status = sprintf "Slide %2d: %s %s", $nr, $title, $subtitle; |
530 |
$status =~ s/<[^>]+>//g; |
$status =~ s/<[^>]+>//g; |
531 |
print STDERR $status; |
$status =~ s/[\n\r]+/ /g; |
532 |
|
print STDERR "$status\n"; |
533 |
|
|
534 |
&verify_html($content); # check the html |
&verify_html($content); # check the html |
535 |
&check_tags($content); # check open and closed tags |
&check_tags($content); # check open and closed tags |