--- comics/fetch.pl.new 2015/01/16 14:17:56 1.14 +++ comics/fetch.pl.new 2015/02/05 18:05:58 1.16 @@ -1,15 +1,27 @@ #!/usr/bin/perl -w +############################################################################### +# $Log: fetch.pl.new,v $ +# Revision 1.16 2015/02/05 18:05:58 nick +# Changed the background and added a fancy title. +# +# Revision 1.15 2015/01/19 13:46:19 nick +# *** empty log message *** +# +############################################################################### + use strict; use File::Path; use Data::Dumper; use Pod::Usage; use Getopt::Long; +use Date::Calc qw/Date_to_Text_Long Today/; + ## ## Some default values ## -my $ver = q/$Id: fetch.pl.new,v 1.14 2015/01/16 14:17:56 nick Exp $/; +my $ver = '$Id: fetch.pl.new,v 1.16 2015/02/05 18:05:58 nick Exp $'; my $comicFile = "comics.conf"; my %comics = &readComicConfig ( $comicFile ); my %opts = &fetchOptions( ); @@ -22,7 +34,6 @@ my $indexDir = $baseDir . "/" . ( $co my $USER_AGENT = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.18) Gecko/20110628 Ubuntu/10.10 (maverick) Firefox/3.6.18"; my @days = qw/ Sunday Monday Tuesday Wednesday Thursday Friday Saturday /; - my $DATE=`date`; chomp $DATE; print STDOUT "Starting comic fetch at $DATE\n"; @@ -229,6 +240,7 @@ sub writeTitle ($$) { $date->{'mon2'} . $date->{'day2'} . "-" . $sd . ".html"; my $today = $days[$date->{'dow'}] . " " . $date->{'mon'} . "/" . $date->{'day'} . "/" . $date->{'year'}; + my $today_long = Date_to_Text_Long(Today()); open INDEX, ">$indexFile"; print INDEX <Daily Comics for $today -

Daily Comics for $today

+
+ + + + + + EOF close (INDEX); }
$today_long