[BACK]Return to fetch.pl.new CVS log [TXT] [DIR] Up to [Local Repository] / comics

Diff for /comics/fetch.pl.new between versions 1.4 and 1.5

version 1.4, 2011/09/23 01:36:54 version 1.5, 2012/12/20 16:18:45
Line 11  my $ver  = q/$Id$/; Line 11  my $ver  = q/$Id$/;
 my $comicFile   = "comics.conf";  my $comicFile   = "comics.conf";
 my %comics      = &readComicConfig ( $comicFile );  my %comics      = &readComicConfig ( $comicFile );
 my %dates       = &fetchDates();  my %dates       = &fetchDates();
   my $days_ago    = 0;  # Set this to fetch comics from X days ago
 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'}";
Line 26  print STDOUT "Starting comic fetch at $D Line 27  print STDOUT "Starting comic fetch at $D
 ##  ##
 &checkDir ( [ $imageDir, $indexDir ] );  &checkDir ( [ $imageDir, $indexDir ] );
   
 #&writeTitle ( \%dates );  &writeTitle ( \%dates );
   
 foreach my $comic ( sort keys %comics ) {  foreach my $comic ( sort keys %comics ) {
   next if ( $comic =~ m/config/ );    next if ( $comic =~ m/config/ );
Line 316  sub fetchDates () { Line 317  sub fetchDates () {
         ($dates{'day'}, $dates{'mon'}, $dates{'year'}, $dates{'dow'}) = (localtime)[3,4,5,6];          ($dates{'day'}, $dates{'mon'}, $dates{'year'}, $dates{'dow'}) = (localtime)[3,4,5,6];
   
         ## If you missed a day or two, reflect it here:          ## 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{'year'} += 1900;
         $dates{'year2'} = substr $dates{'year'}, 2, 2;          $dates{'year2'} = substr $dates{'year'}, 2, 2;
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>