kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

aggregate.cgi: cached source

Browse Source
This commit is contained in:
Milan
2022-11-18 23:12:44 +01:00
parent e7ee2e62f7
commit 267ebb33c0
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
website/agenda/aggregate.cgi
View File

@@ -4,6 +4,7 @@ use strict;
use warnings; use warnings;
no warnings 'redefine'; no warnings 'redefine';
use utf8; use utf8;
use feature 'state';
use config(); use config();
use params(); use params();
@@ -126,10 +127,14 @@ s/\&lt\;span id\=&quot\;calcms_title&quot\;\&gt\;[^\&]*\&lt\;\/span\&gt\;/\<span
sub load_file { sub load_file {
my ($filename) = @_; 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'}; open my $fh, '<:utf8', $filename or return qq{cannot load '$filename'};
local $/ = undef; local $/ = undef;
my $content = <$fh>; my $content = <$fh>;
close $fh or return qq{cannot load '$filename'}; close $fh or return qq{cannot load '$filename'};
$cache->{$filename} = {updated => time, content => $content};
return $content; return $content;
} }