--- comics/fetch.pl.new	2015/10/22 12:58:44	1.20
+++ comics/fetch.pl.new	2017/12/05 13:37:40	1.22
@@ -2,6 +2,12 @@
 
 ###############################################################################
 # $Log: fetch.pl.new,v $
+# Revision 1.22  2017/12/05 13:37:40  nick
+# Added the CVS config version to the outpuit.
+#
+# Revision 1.21  2015/10/26 14:25:40  nick
+# Fixed a bug that was improperly including the day of week string preventing the weekend comics from fetching proproperly.
+#
 # Revision 1.20  2015/10/22 12:58:44  nick
 # Added the ability for Sunday only comics.  Stonesoup is no longer weekdays, this has been added to Sunday only.  I also added Foxtrot Classics for weekdays and Foxtrot for Sundays.
 #
@@ -28,13 +34,14 @@ use Data::Dumper;
 use Pod::Usage;
 use Getopt::Long;
 
-use Date::Calc qw/Date_to_Text_Long Today/;
+use Date::Calc qw/Date_to_Text_Long Today Day_of_Week Day_of_Week_to_Text/;
 
 ## 
 ## Some default values
 ##
-my $ver		= '$Id: fetch.pl.new,v 1.20 2015/10/22 12:58:44 nick Exp $';
+my $ver		= '$Id: fetch.pl.new,v 1.22 2017/12/05 13:37:40 nick Exp $';
 my $comicFile   = "comics.conf";
+my $comicConfigVer = "Unknown";
 my %comics	= &readComicConfig ( $comicFile );
 my %opts        = &fetchOptions( );
 my $days_ago    = $opts{'days'} || 0;
@@ -60,16 +67,16 @@ foreach my $comic ( sort keys %comics )
 
   ## Skip if this is Sunday and the comic is weekdays only
   next if ( $comic =~ m/config/ );
-  if (($dates{'day2'} eq "Sunday") && 
+  if (($dates{'wday'} eq "Sunday") && 
       ($comics{$comic}{'sunday'} == 0)) {
     print "Skipping '$comic'; Weekdays only.\n";
     next;
   }
 
   ## Skip if Sunday only comic and it's not Sunday.
-  if (($dates{'day2'} ne "Sunday") &&
+  if (($dates{'wday'} ne "Sunday") &&
       ($comics{$comic}{'sunday_only'} == 1)) {
-    print "Skipping '$comic'; Sunday only.\n";
+    print "Skipping '$comic' ($comics{$comic}{'sunday_only'}); Sunday only.\n";
     next
   }
 
@@ -143,6 +150,9 @@ sub readComicConfig ($$) {
 
 	open FILEN, "<$comicFile";
 		while (<FILEN>) {
+            if ($_ =~ m/^#.* \$Id: fetch.pl.new,v 1.22 2017/12/05 13:37:40 nick Exp $/) {
+                $comicConfigVer = $1;
+            }
 			if ( ( $_ !~ m/^#/ ) && ( $_ =~ m/,.*,/) ){
                 $_ =~ s/__YEAR__/$year/g;
                 $_ =~ s/__MON__/$mon/g;
@@ -154,8 +164,8 @@ sub readComicConfig ($$) {
 				$comicConfig{$res[0]}{'mode'} 	  = $res[3];
 				$comicConfig{$res[0]}{'fullName'} = $res[4];
 				$comicConfig{$res[0]}{'ext'} 	  = $res[5];
-                $comicConfig{$res[0]}{'sunday'}   = $res[6] || 1;
-                $comicConfig{$res[0]}{'sunday_only'} = $res[7] || 0;
+                $comicConfig{$res[0]}{'sunday'}   = sprintf("%d", $res[6] || 1);
+                $comicConfig{$res[0]}{'sunday_only'} = sprintf("%d", $res[7] || 0);
 				$comicConfig{$res[0]}{'error'} 	  = 0;
 			}
 			elsif ( $_ =~ m/(.*)\s+=\s+(.*)/ ) {
@@ -240,6 +250,7 @@ sub writeFooter {
 <font size="2">
 Generated on: <font color="green">$sysDate</font><br/>
 Version: <font color="green">$ver</font><br />
+Config Version: <font color="green">$comicConfigVer</font><br />
 CVS: <a href="http://demandred.dyndns.org/cgi-bin/cvsweb/comics/">http://demandred.dyndns.org/cgi-bin/cvsweb/comics/</a>
   <p>
     <a href="http://validator.w3.org/check?uri=referer"><img
@@ -399,6 +410,8 @@ sub fetchDates () {
 	$dates{'day2'}  = ( $dates{'day'} < 10 ) ? "0" . $dates{'day'} : $dates{'day'}; 
 	$dates{'mon'}++;
 	$dates{'mon2'}  = ( $dates{'mon'} < 10 ) ? "0".$dates{'mon'} : $dates{'mon'};
+    my @days = qw/ Sunday Monday Tuesday Wednesday Thursday Friday Saturday /;
+    $dates{'wday'} = $days[$dates{'dow'}];
 
 	return %dates;
 }