From: Emil Williams Date: Tue, 6 May 2025 19:12:27 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=8d6f61b4dca0978d2fc599901ca40bef8b6e889f;p=emil-3chen.org.git -- --- diff --git a/perl/Triple.pm b/perl/Triple.pm index e65bc6f..413f4fe 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -74,17 +74,18 @@ sub init { sub init_static { my $vars = { banana => 'sand', - }; - foreach (my ($path, @datum) = each %page) { - print Dumper @datum; + }; + foreach my $key (keys %hash) { + @set = $hash{$key}; + print Dumper @set; + } # if ($datum[0] == DYNAMIC_PAGE) { - # syslog("info", "Marking Dynamic '$path'"); - # next; + # syslog("info", "Marking Dynamic '$path'"); + # next; # } # syslog("info", "Marking Static '$path'"); - # $template->process($datum[1], $vars, \$_) or syslog("info", $template->error()); - # $static{$path} = $_; - } + # $template->process($datum[1], $vars, \$_) or syslog("info", $template->error()); + # $static{$path} = $_; } my ($sitename, $version) = preinit();