comics/fetch.pl.new - diff

Return to fetch.pl.new CVS log

Up to [Local Repository] / comics

version 1.5, 2012/12/20 16:18:45	version 1.6, 2012/12/20 16:48:06
Line 10 use Data::Dumper;	Line 10 use Data::Dumper;
my $ver = q/$Id$/;	my $ver = q/$Id$/;
my $comicFile = "comics.conf";	my $comicFile = "comics.conf";
my %comics = &readComicConfig ( $comicFile );	my %comics = &readComicConfig ( $comicFile );
my %dates = &fetchDates();
my $days_ago = 0; # Set this to fetch comics from X days ago	my $days_ago = 0; # Set this to fetch comics from X days ago
	my %dates = &fetchDates();
my $baseDir = $comics{'configs'}{'base_directory'} \|\| ".";	my $baseDir = $comics{'configs'}{'base_directory'} \|\| ".";
my $imageDir = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} \|\| "images" ) .	my $imageDir = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} \|\| "images" ) .
"/$dates{'mon2'}$dates{'year2'}";	"/$dates{'mon2'}$dates{'year2'}";