--- comics/fetch.pl.new 2015/10/26 14:25:40 1.21 +++ comics/fetch.pl.new 2017/12/05 13:37:40 1.22 @@ -2,6 +2,9 @@ ############################################################################### # $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. # @@ -36,8 +39,9 @@ use Date::Calc qw/Date_to_Text_Long Toda ## ## Some default values ## -my $ver = '$Id: fetch.pl.new,v 1.21 2015/10/26 14:25:40 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; @@ -146,6 +150,9 @@ sub readComicConfig ($$) { open FILEN, "<$comicFile"; while () { + 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; @@ -243,6 +250,7 @@ sub writeFooter { Generated on: $sysDate
Version: $ver
+Config Version: $comicConfigVer
CVS: http://demandred.dyndns.org/cgi-bin/cvsweb/comics/