From 267ebb33c0989d1ef062a7ee710ea7df784b47ae Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Fri, 18 Nov 2022 23:12:44 +0100
Subject: [PATCH] aggregate.cgi: cached source

---
 website/agenda/aggregate.cgi | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/website/agenda/aggregate.cgi b/website/agenda/aggregate.cgi
index 9a13cd7..b78d49a 100755
--- a/website/agenda/aggregate.cgi
+++ b/website/agenda/aggregate.cgi
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 no warnings 'redefine';
 use utf8;
+use feature 'state';
 
 use config();
 use params();
@@ -126,10 +127,14 @@ s/\&lt\;span id\=&quot\;calcms_title&quot\;\&gt\;[^\&]*\&lt\;\/span\&gt\;/\<span
 
 sub load_file {
     my ($filename) = @_;
+    state $cache;
+    my $cached = $cache->{$filename};
+    return $cached->{content} if defined $cached and $cached->{updated} > time - 60;  
     open my $fh, '<:utf8', $filename or return qq{cannot load '$filename'};
     local $/ = undef;
     my $content = <$fh>;
     close $fh or return qq{cannot load '$filename'};
+    $cache->{$filename} = {updated => time, content => $content};
     return $content;
 }