|
|
| 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'} . |