treebird/perl/embed.pm
nekobit c9eaaac234 Notifications embed
FossilOrigin-Name: 9ceac560758f39950f7edeaa79580d7cd0b212108a197efd7f57b24413c42dac
2022-08-19 03:52:26 +00:00

25 lines
374 B
Perl

package embed;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw( generate_embedded_page );
use template_helpers 'to_template';
sub generate_embedded_page
{
my ($ssn, $data, $content) = @_;
my %vars = (
prefix => '',
ssn => $ssn,
content => $content,
);
to_template(\%vars, \$data->{'embed.tt'});
}
1;