--- comics/fetch.pl.new 2011/08/18 12:39:12 1.1 +++ comics/fetch.pl.new 2011/08/18 12:50:06 1.2 @@ -7,7 +7,7 @@ use Data::Dumper; ## ## Some default values ## -my $ver = q/$Id: fetch.pl.new,v 1.1 2011/08/18 12:39:12 nick Exp $/; +my $ver = q/$Id: fetch.pl.new,v 1.2 2011/08/18 12:50:06 nick Exp $/; my $comicFile = "comics.conf"; my %comics = &readComicConfig ( $comicFile ); my %dates = &fetchDates(); @@ -15,7 +15,7 @@ my $baseDir = $comics{'configs'}{'ba my $imageDir = $baseDir . "/" . ( $comics{'configs'}{'image_directory'} || "images" ) . "/$dates{'mon2'}$dates{'year2'}"; my $indexDir = $baseDir . "/" . ( $comics{'configs'}{'index_directory'} || "indexes" ); -my $USER_AGENT = "ozilla/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 $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 $DATE=`date`; chomp $DATE; @@ -162,7 +162,8 @@ sub writeFooter { open INDEX, ">>$indexFile"; print INDEX < -
Generated at $sysDate +
Generated at $sysDate
+Version: $ver

Valid XHTML 1.0 Transitional