--- comics/fetch.pl.new 2012/12/20 16:18:45 1.5 +++ comics/fetch.pl.new 2012/12/20 16:48:06 1.6 @@ -7,11 +7,11 @@ use Data::Dumper; ## ## Some default values ## -my $ver = q/$Id: fetch.pl.new,v 1.5 2012/12/20 16:18:45 nick Exp $/; +my $ver = q/$Id: fetch.pl.new,v 1.6 2012/12/20 16:48:06 nick Exp $/; my $comicFile = "comics.conf"; my %comics = &readComicConfig ( $comicFile ); -my %dates = &fetchDates(); 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" ) . "/$dates{'mon2'}$dates{'year2'}";