--- comics/fetch.pl.new 2015/02/05 18:05:58 1.16
+++ comics/fetch.pl.new 2015/05/07 12:31:43 1.18
@@ -2,6 +2,12 @@
###############################################################################
# $Log: fetch.pl.new,v $
+# Revision 1.18 2015/05/07 12:31:43 nick
+# Added favicon
+#
+# Revision 1.17 2015/02/19 14:56:10 nick
+# Fixed a problem that forced everything to JPG. This would kill GIF animations, but would not display the gifs either because 'convert' appends an index number to the end of the file name for each from of the GIF animation. I fixed this to maintain GIF compatibilty as well as rewritting how the script fetches the size of the file. Additionally, I updated the configuration for Questionable Content to search for GIF or JPG, which is what triggered this entire update.
+#
# Revision 1.16 2015/02/05 18:05:58 nick
# Changed the background and added a fancy title.
#
@@ -21,7 +27,7 @@ use Date::Calc qw/Date_to_Text_Long Toda
##
## Some default values
##
-my $ver = '$Id: fetch.pl.new,v 1.16 2015/02/05 18:05:58 nick Exp $';
+my $ver = '$Id: fetch.pl.new,v 1.18 2015/05/07 12:31:43 nick Exp $';
my $comicFile = "comics.conf";
my %comics = &readComicConfig ( $comicFile );
my %opts = &fetchOptions( );
@@ -50,13 +56,18 @@ foreach my $comic ( sort keys %comics )
( $comics{$comic}{'sunday'} == 0 ) ) { print "Skipping.\n"; next; }
$comics{$comic}{'error'} = &downloadComic ( \%comics, $comic, \%dates );
&writeComic ( \%comics, $comic, \%dates );
-}
-print "Finding in $imageDir/*-$dates{'day2'}.jpg\n";
-foreach my $file ( glob( "$imageDir/*-$dates{'day2'}.jpg" ) )
-{
- my $size = `/usr/bin/identify $file`;
- $size =~ s/.*\s(\d+)x\d+.*/$1/;
+ my $file = "$imageDir/$comic-$dates{'day2'}.$comics{$comic}{'ext'}";
+ my $size = 0;
+
+ my $cmd = "/usr/bin/identify -verbose $file|";
+ open(IMG, $cmd) || die ("Can't open: $!\n");
+ while() {
+ if ($_ =~ m/^\s+geometry:\s+(\d+)x\d+.*/i) {
+ $size = $1 if ( $size == 0);
+ }
+ }
+ close(IMG);
system( "/usr/bin/convert -resize 640 $file $file" )
if ( $size > 640 )
@@ -154,7 +165,7 @@ sub writeComic ($$) {
$comics->{$comic}{'url'}
-
+
@@ -250,6 +261,7 @@ sub writeTitle ($$) {
+
Daily Comics for $today
@@ -277,7 +289,7 @@ sub directDownload ($$) {
my $cDir = $date->{'mon2'} . $date->{'year2'};
my $cDate = $date->{'day2'};
- my $cmd = "wget -q $file --referer=\"" . $comics->{$comic}{'url'} ."\" --user-agent=\"$USER_AGENT\" -O - | /usr/bin/convert - jpeg:images/$cDir/$comic-$cDate.jpg";
+ my $cmd = "wget -q $file --referer=\"" . $comics->{$comic}{'url'} ."\" --user-agent=\"$USER_AGENT\" -O - | /usr/bin/convert - jpeg:images/$cDir/$comic-$cDate.jpg";
return system($cmd);
}
@@ -309,10 +321,10 @@ sub indexDownload ($$) {
## Find the comic strip URL based on the specified regex in the search
##
foreach my $line (@lines) {
- if ( $line =~ m/$comics->{$comic}{'search'}/ ) {
+ if ( $line =~ m/$comics->{$comic}{'search'}/i ) {
$comicLine = $1; chomp $comicLine;
}
- }
+ }
##
## Save the file to the appropriate directory
@@ -323,7 +335,7 @@ sub indexDownload ($$) {
if ( $comicLine ) {
if ( $comicLine =~ m/(gif|jpg|png)/i ) { $comics->{$comic}{'ext'} = $1; }
my $comicURL = ( $comicLine =~ m/http/ ) ? $comicLine : $mainURL . $comicLine;
- my $cmd = "wget --user-agent=\"$USER_AGENT\" --referer=\"" . $comics->{$comic}{'url'} . "\" -q $comicURL -O - | /usr/bin/convert - jpeg:images/$cDir/$comic-$cDate.jpg";
+ my $cmd = "wget --user-agent=\"$USER_AGENT\" --referer=\"" . $comics->{$comic}{'url'} . "\" -q $comicURL -O images/$cDir/$comic-$cDate.$comics->{$comic}{'ext'}";
system( $cmd );
return 0;
}
+