add cache_expire option

diff --git a/lib/Keitairc/Config.pm b/lib/Keitairc/Config.pm
index f5f5dd9..030eac5 100644 (file)
--- 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 (file)
--- 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;
        }