--- comics/fetch.pl.new 2019/04/15 12:50:23 1.27 +++ comics/fetch.pl.new 2020/06/10 21:14:31 1.28 @@ -2,6 +2,9 @@ ############################################################################### # $Log: fetch.pl.new,v $ +# Revision 1.28 2020/06/10 21:14:31 nick +# Updated for w3 validation. +# # Revision 1.27 2019/04/15 12:50:23 nick # The script was unable to handle html '&' and convert it, so I added that. I probably should see if there's a library or something that handles all those automagically but I just tossed a regex in there for now that does the trick. # @@ -62,7 +65,7 @@ use Date::Calc qw/Date_to_Text_Long Toda ## ## Some default values ## -my $ver = '$Id: fetch.pl.new,v 1.27 2019/04/15 12:50:23 nick Exp $'; +my $ver = '$Id: fetch.pl.new,v 1.28 2020/06/10 21:14:31 nick Exp $'; my $comicFile = "comics.conf"; my $comicConfigVer = "Unknown"; my $reportFile = "/home/httpd/html/daily/comics/status_report.json"; @@ -247,6 +250,7 @@ sub writeComic ($$) { my $indexFile = $indexDir . "/index-" . $date->{'year2'} . $date->{'mon2'} . $date->{'day2'} . "-" . $sd . ".html"; + $comics->{$comic}{'fullName'} =~ s/&/&/g; my $content = <{$comic}{'fullName'}) ******* --> @@ -309,15 +313,13 @@ sub writeFooter { print INDEX <
- -Generated on: $sysDate
-Version: $ver
-Config Version: $comicConfigVer
-CVS: http://demandred.dyndns.org/cgi-bin/cvsweb/comics/ -

+Generated on: $sysDate
+Version: $ver
+Config Version: $comicConfigVer
+CVS: http://demandred.dyndns.org/cgi-bin/cvsweb/comics/ +
Valid XHTML 1.0 Transitional -

@@ -354,19 +356,15 @@ sub writeTitle ($$) { - - + + Daily Comics for $today - -
- + - - EOF close (INDEX); }
Comic Page Heading
$today_long