From: Emil Williams Date: Thu, 8 May 2025 03:25:20 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=5f3aeac02a7fd6cdc3f5cbc3deadde9ef38c4719;p=emil-3chen.org.git -- --- diff --git a/perl/Triple.pm b/perl/Triple.pm index 6d6f188..03ffd25 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -81,22 +81,27 @@ sub preinit { sub init { sub init_static { + my ($sitename, $version) = @_; my $vars = { - banana => 'sand', + # boards => \@Triple::boards, + # titles => \%Triple::titles, + # descriptions => \%Triple::descriptions, + sitename => $sitename, + version => $version, }; foreach my $key (keys %page) { my @set = @{$page{$key}}; next if $set[0] != STATIC_PAGE; syslog("info", "Marking Static '$key'"); - local $_; - $template->process($set[1], $vars, \$_) or syslog("info", $template->error()); - $static{$key} = $_; + my $temporary; + $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error()); + $static{$key} = $temporary; } } my ($sitename, $version) = preinit(); - init_static(); + init_static($sitename, $version); return $sitename, $version; }