treebird/perl/timeline.pm
nekobit 1edf678d90 Create statuses
FossilOrigin-Name: 5767e0610e9a60b2c908fe7a62b2e723e761e4d372424a57d029ddb677fe3610
2022-08-07 22:03:46 +00:00

30 lines
668 B
Perl

package timeline;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw( content_timeline );
use template_helpers 'to_template';
use icons 'get_icon';
use postbox 'generate_postbox';
use status 'generate_status';
sub content_timeline
{
my ($ssn, $data, $statuses, $title, $show_post_box) = @_;
my %vars = (
prefix => '',
ssn => $ssn,
data => $data,
statuses => $statuses,
title => $title,
show_post_box => $show_post_box,
postbox => \&generate_postbox,
create_status => sub { generate_status($ssn, $data, shift); },
);
to_template(\%vars, \$data->{'timeline.tt'});
}