--- comics/fetch.pl.new	2011/09/23 01:36:54	1.4
+++ comics/fetch.pl.new	2013/01/10 14:25:57	1.7
@@ -7,9 +7,10 @@ use Data::Dumper;
 ## 
 ## Some default values
 ##
-my $ver		= q/$Id: fetch.pl.new,v 1.4 2011/09/23 01:36:54 nick Exp $/;
+my $ver		= q/$Id: fetch.pl.new,v 1.7 2013/01/10 14:25:57 nick Exp $/;
 my $comicFile   = "comics.conf";
 my %comics	= &readComicConfig ( $comicFile );
+my $days_ago    = 0;  # Set this to fetch comics from X days ago
 my %dates 	= &fetchDates();
 my $baseDir     = $comics{'configs'}{'base_directory'} || ".";
 my $imageDir    = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} || "images" ) . 
@@ -26,7 +27,7 @@ print STDOUT "Starting comic fetch at $D
 ##
 &checkDir ( [ $imageDir, $indexDir ] );
 
-#&writeTitle ( \%dates );
+&writeTitle ( \%dates );
 
 foreach my $comic ( sort keys %comics ) {
   next if ( $comic =~ m/config/ );
@@ -176,7 +177,8 @@ sub writeFooter {
 <center>
 <font size="2">
 Generated on: <font color="green">$sysDate</font><br/>
-Version: <font color="green">$ver</font></font>
+Version: <font color="green">$ver</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
       src="http://www.w3.org/Icons/valid-xhtml10-blue" alt="Valid XHTML 1.0 Transitional" height="31" width="88" border="0" /></a>
@@ -316,7 +318,7 @@ sub fetchDates () {
 	($dates{'day'}, $dates{'mon'}, $dates{'year'}, $dates{'dow'}) = (localtime)[3,4,5,6];
 
 	## If you missed a day or two, reflect it here:
-	# $dates{'day'}-=1;  ## <-- 5 days ago
+	$dates{'day'} -= $days_ago;  ## <-- 5 days ago
 
 	$dates{'year'} += 1900;
 	$dates{'year2'} = substr $dates{'year'}, 2, 2;