comics/fetch.pl.new - diff

Return to fetch.pl.new CVS log

Up to [Local Repository] / comics

version 1.3, 2011/09/18 14:04:29	version 1.4, 2011/09/23 01:36:54
Line 26 print STDOUT "Starting comic fetch at $D	Line 26 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 34 foreach my $comic ( sort keys %comics )	Line 34 foreach my $comic ( sort keys %comics )
&writeComic ( \%comics, $comic, \%dates );	&writeComic ( \%comics, $comic, \%dates );
}	}

	my $D = `date +%d`; chomp $D;
	print "Finding in $imageDir/*-$D.jpg\n";
	foreach my $file ( glob( "$imageDir/*-$D.jpg" ) )
	{
	my $size = `/usr/bin/identify $file`;
	$size =~ s/.\s(\d+)x\d+./$1/;

	system( "/usr/bin/convert -resize 640 $file $file" )
	if ( $size > 640 )
	}

## &writeMainIndex ( \%dates );	## &writeMainIndex ( \%dates );

&writeFooter( \%dates );	&writeFooter( \%dates );