comics/fetch.pl.new - diff

Return to fetch.pl.new CVS log

Up to [Local Repository] / comics

version 1.24, 2018/02/06 14:31:06	version 1.25, 2018/02/12 13:30:58
Line 2	Line 2

###############################################################################	###############################################################################
# $Log$	# $Log$
	# Revision 1.25 2018/02/12 13:30:58 nick
	# Added an easier to compare date string to determine if the status json file was updated today and report if it wasn't.
	#
# Revision 1.24 2018/02/06 14:31:06 nick	# Revision 1.24 2018/02/06 14:31:06 nick
# A status report is now generated in JSON that can easily be scanned so that	# A status report is now generated in JSON that can easily be scanned so that
# I can be alerted when there are failures that I miss if I don't read the	# I can be alerted when there are failures that I miss if I don't read the
Line 202 sub readComicConfig ($$) {	Line 205 sub readComicConfig ($$) {
sub writeStatusReportJSON ($$) {	sub writeStatusReportJSON ($$) {
my ( $comicsRef, $filename ) = @_;	my ( $comicsRef, $filename ) = @_;
my %comics = %$comicsRef;	my %comics = %$comicsRef;
my %json = ('date' => $DATE, 'comics' => []);	my $shortDate = sprintf("%d%02d%02d", (localtime)[5] + 1900,
	(localtime)[4] + 1,
	(localtime)[3]);
	my %json = ('date' => $shortDate, 'comics' => []);
my $totalErrors = 0;	my $totalErrors = 0;

foreach my $comic (sort keys %comics) {	foreach my $comic (sort keys %comics) {