From: Emil Williams Date: Thu, 8 May 2025 04:19:37 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=c63b713536304cf5a9457fafdf8566afbc60aa5c;p=emil-3chen.org.git -- --- diff --git a/perl/Triple.pm b/perl/Triple.pm index c88826d..bc87554 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -39,13 +39,16 @@ sub Triple::main { while($request->Accept() >= 0) { my $cgi = CGI->new; + my $vars = { + + }; + my $path = $ENV{'REQUEST_URI'} // '/'; print $cgi->header( -Content_Type => 'text/html', -charset => 'UTF-8', ); - print %static{$path} // %static{''}; } } @@ -92,13 +95,13 @@ sub init { page => \%Triple::page, sitename => $sitename, version => $version, - description => '', }; foreach my $key (keys %page) { my @set = @{$page{$key}}; next if $set[0] != STATIC_PAGE; syslog("info", "Marking Static '$key'"); $vars->{"uri"} = "$key"; + $vars->{"description"} = "$set[3]"; my $temporary; $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error()); $static{$key} = $temporary;