From a6ef6cb54112d465f974e4476b09362a735b802a Mon Sep 17 00:00:00 2001 From: ISHIKAWA Mutsumi Date: Thu, 24 Jun 2010 09:40:27 +0900 Subject: [PATCH] add cache_expire option --- lib/Keitairc/Config.pm | 1 + lib/Keitairc/View.pm | 1 + 2 files changed, 2 insertions(+) diff --git a/lib/Keitairc/Config.pm b/lib/Keitairc/Config.pm index f5f5dd9..030eac5 100644 --- a/lib/Keitairc/Config.pm +++ b/lib/Keitairc/Config.pm @@ -77,6 +77,7 @@ sub new{ 'irc_port' => {DEFAULT => 6667, VALIDATE => \&valid_int}, 'cookie_ttl' => {DEFAULT => 86400 * 3, VALIDATE => \&valid_int}, # 3 days 'session_ttl' => {DEFAULT => 60 * 30, VALIDATE => \&valid_int}, # 30 min + 'cache_expire' => {DEFAULT => 10800, VALIDATE => \&valid_int}, 'web_port' => {DEFAULT => 8080, VALIDATE => \&valid_int}, 'web_lines' => {DEFAULT => 100, VALIDATE => \&valid_int}, 'ping_delay' => {DEFAULT => 30, VALIDATE => \&valid_int}, diff --git a/lib/Keitairc/View.pm b/lib/Keitairc/View.pm index cd27b69..ce5a608 100644 --- a/lib/Keitairc/View.pm +++ b/lib/Keitairc/View.pm @@ -156,6 +156,7 @@ sub public{ my $response = HTTP::Response->new(200); $response->push_header('Content-type', $mime_type); + $response->expires(time + $me->{Config}->cache_expire()) if (!$me->{Config}->debug() && $me->{Config}->cache_expire()); $response->content($buf); return $response; } -- 2.11.0