From 7e5f16598513d83c17f0207261a83f50aa885809 Mon Sep 17 00:00:00 2001 From: Yorhel Date: Thu, 19 Jul 2012 17:13:29 +0200 Subject: [PATCH] Fix HTTP date parsing for dates in December --- www/index.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/www/index.pl b/www/index.pl index b67a67a..dbae566 100755 --- a/www/index.pl +++ b/www/index.pl @@ -606,7 +606,7 @@ sub htmlFooter { sub setLastMod { my($s, $d) = @_; return if $d !~ /^(\d{4})-(\d{2})-(\d{2})/; - my @t = gmtime timegm 0,0,0,$3,$2,$1; + my @t = gmtime timegm 0,0,0,$3,$2-1,$1; $s->resHeader('Last-Modified', sprintf '%s, %02d %s %04d %02d:%02d:%02d GMT', (qw|Sun Mon Tue Wed Thu Fri Sat|)[$t[6]], $t[3], (qw|Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec|)[$t[4]],