version 1.18, 2015/05/07 12:31:43
|
version 1.19, 2015/07/13 12:56:58
|
Line 2
|
Line 2
|
|
|
############################################################################### |
############################################################################### |
# $Log$ |
# $Log$ |
|
# 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'. |
|
# |
# Revision 1.18 2015/05/07 12:31:43 nick |
# Revision 1.18 2015/05/07 12:31:43 nick |
# Added favicon |
# Added favicon |
# |
# |
Line 69 foreach my $comic ( sort keys %comics )
|
Line 72 foreach my $comic ( sort keys %comics )
|
} |
} |
close(IMG); |
close(IMG); |
|
|
|
|
system( "/usr/bin/convert -resize 640 $file $file" ) |
system( "/usr/bin/convert -resize 640 $file $file" ) |
if ( $size > 640 ) |
if ( $size > 640 ) |
} |
} |
Line 301 sub indexDownload ($$) {
|
Line 305 sub indexDownload ($$) {
|
my ( @lines, $comicLine, $mainURL ); |
my ( @lines, $comicLine, $mainURL ); |
my $comicIndex = "indexes/index.$comic"; |
my $comicIndex = "indexes/index.$comic"; |
|
|
`wget -q $comics->{$comic}{'url'} -O $comicIndex`; |
my $wget_cmd = "wget -q --referer=\"$comics->{$comic}{'url'}\" " . |
|
"--user-agent=\"$USER_AGENT\" " . |
|
"$comics->{$comic}{'url'} -O $comicIndex"; |
|
system($wget_cmd); |
|
|
if ( ! open FILEN, "<$comicIndex" ) { |
if ( ! open FILEN, "<$comicIndex" ) { |
return "ERROR: Can't open index file for " . $comics->{$comic}{'fullName'} . |
return "ERROR: Can't open index file for " . $comics->{$comic}{'fullName'} . |