59 lines
1.4 KiB
Perl
59 lines
1.4 KiB
Perl
package status;
|
|
use strict;
|
|
use warnings;
|
|
use HTML::Escape 'escape_html';
|
|
use string_helpers qw( reltime_to_str greentextify emojify format_username );
|
|
use icons qw( get_icon visibility_to_icon );
|
|
use attachments 'generate_attachment';
|
|
use postbox 'generate_postbox';
|
|
use emojis 'generate_emoji';
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( content_status generate_status );
|
|
|
|
use template_helpers 'to_template';
|
|
|
|
sub generate_status
|
|
{
|
|
my ($ssn, $data, $status) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
status => $status,
|
|
data => $data,
|
|
# Functions
|
|
icon => \&get_icon,
|
|
rel_to_str => \&reltime_to_str,
|
|
vis_to_icon => \&visibility_to_icon,
|
|
make_att => \&generate_attachment,
|
|
make_emoji => \&generate_emoji,
|
|
greentextify => \&greentextify,
|
|
emojify => \&emojify,
|
|
escape => \&escape_html,
|
|
format_username => \&format_username,
|
|
make_postbox => \&generate_postbox,
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'status.tt'});
|
|
}
|
|
|
|
sub content_status
|
|
{
|
|
my ($ssn, $data, $status, $statuses_before, $statuses_after) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
data => $data,
|
|
status => $status,
|
|
statuses_before => $statuses_before,
|
|
statuses_after => $statuses_after,
|
|
# Functions
|
|
create_status => \&generate_status,
|
|
);
|
|
|
|
|
|
to_template(\%vars, \$data->{'content_status.tt'});
|
|
}
|