version 1.19, 2015/07/13 12:56:58
|
version 1.20, 2015/10/22 12:58:44
|
Line 2
|
Line 2
|
|
|
############################################################################### |
############################################################################### |
# $Log$ |
# $Log$ |
|
# Revision 1.20 2015/10/22 12:58:44 nick |
|
# Added the ability for Sunday only comics. Stonesoup is no longer weekdays, this has been added to Sunday only. I also added Foxtrot Classics for weekdays and Foxtrot for Sundays. |
|
# |
# Revision 1.19 2015/07/13 12:56:58 nick |
# Revision 1.19 2015/07/13 12:56:58 nick |
# Added Sally Forth and Pearls Before Swine. Adding Sally Forth required a change in the 'wget' command for fetching the index file to include 'user-agent' and 'referer'. |
# Added Sally Forth and Pearls Before Swine. Adding Sally Forth required a change in the 'wget' command for fetching the index file to include 'user-agent' and 'referer'. |
# |
# |
Line 54 print STDOUT "Starting comic fetch at $D
|
Line 57 print STDOUT "Starting comic fetch at $D
|
&writeTitle ( \%dates ); |
&writeTitle ( \%dates ); |
|
|
foreach my $comic ( sort keys %comics ) { |
foreach my $comic ( sort keys %comics ) { |
|
|
|
## Skip if this is Sunday and the comic is weekdays only |
next if ( $comic =~ m/config/ ); |
next if ( $comic =~ m/config/ ); |
if ( ( $dates{'day2'} eq "Sunday" ) && |
if (($dates{'day2'} eq "Sunday") && |
( $comics{$comic}{'sunday'} == 0 ) ) { print "Skipping.\n"; next; } |
($comics{$comic}{'sunday'} == 0)) { |
|
print "Skipping '$comic'; Weekdays only.\n"; |
|
next; |
|
} |
|
|
|
## Skip if Sunday only comic and it's not Sunday. |
|
if (($dates{'day2'} ne "Sunday") && |
|
($comics{$comic}{'sunday_only'} == 1)) { |
|
print "Skipping '$comic'; Sunday only.\n"; |
|
next |
|
} |
|
|
$comics{$comic}{'error'} = &downloadComic ( \%comics, $comic, \%dates ); |
$comics{$comic}{'error'} = &downloadComic ( \%comics, $comic, \%dates ); |
&writeComic ( \%comics, $comic, \%dates ); |
&writeComic ( \%comics, $comic, \%dates ); |
|
|
Line 139 sub readComicConfig ($$) {
|
Line 155 sub readComicConfig ($$) {
|
$comicConfig{$res[0]}{'fullName'} = $res[4]; |
$comicConfig{$res[0]}{'fullName'} = $res[4]; |
$comicConfig{$res[0]}{'ext'} = $res[5]; |
$comicConfig{$res[0]}{'ext'} = $res[5]; |
$comicConfig{$res[0]}{'sunday'} = $res[6] || 1; |
$comicConfig{$res[0]}{'sunday'} = $res[6] || 1; |
|
$comicConfig{$res[0]}{'sunday_only'} = $res[7] || 0; |
$comicConfig{$res[0]}{'error'} = 0; |
$comicConfig{$res[0]}{'error'} = 0; |
} |
} |
elsif ( $_ =~ m/(.*)\s+=\s+(.*)/ ) { |
elsif ( $_ =~ m/(.*)\s+=\s+(.*)/ ) { |