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

template.pm: invalidate includes if changed

Browse Source
This commit is contained in:
Milan
2022-11-18 22:03:39 +01:00
parent c14d6a21b0
commit 580aa66db6
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/calcms/template.pm
View File

@@ -3,6 +3,7 @@ package template;
use strict; use strict;
use warnings; use warnings;
no warnings 'redefine'; no warnings 'redefine';
use feature 'state';
use Data::Dumper; use Data::Dumper;
use HTML::Template::Compiled(); use HTML::Template::Compiled();
@@ -11,7 +12,7 @@ use HTML::Template::Compiled::Plugin::XMLEscape();
#use HTML::Template::JIT(); #use HTML::Template::JIT();
use JSON(); use JSON();
use Cwd(); use Cwd();
use Digest::MD5 qw(md5_hex);
use config(); use config();
use params(); use params();
use project(); use project();
@@ -73,15 +74,20 @@ sub process($$$$) {
unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' ); unless ( defined $params->{extern} ) && ( $params->{extern} eq '1' );
$html_template->param($params); $html_template->param($params);
my $out = $html_template->output();
my $version = "?v=".substr(md5_hex(join("",(stat "js",stat "css",stat "image"))),0,8);
$out =~ s{(src="js/.*\.js)"}{$1$version"}g;
$out =~ s{(href="css/.*\.css)"}{$1$version"}g;
$out =~ s{(src="image/.*\.svg)"}{$1$version"}g;
if ( ( defined $_[1] ) && ( $_[1] eq 'print' ) ) { if ( ( defined $_[1] ) && ( $_[1] eq 'print' ) ) {
print $html_template->output(); print $out;
} else { } else {
$_[1] = $html_template->output(); $_[1] = $out;
} }
} }
sub initTemplate($) { sub initTemplate($) {
my $filename = shift; my ($filename) = @_;
my $default_escape = 'none'; my $default_escape = 'none';
$default_escape = 'js' if ( $filename =~ /\.js$/ ); $default_escape = 'js' if ( $filename =~ /\.js$/ );