59 lines
1.1 KiB
Perl
59 lines
1.1 KiB
Perl
use strict;
|
|
use warnings;
|
|
# Modules
|
|
use Template;
|
|
use l10n qw( &lang %L10N );
|
|
use notifications qw( generate_notification content_notifications );
|
|
use template_helpers qw( &to_template );
|
|
use timeline;
|
|
use icons 'get_icon';
|
|
use status;
|
|
use account;
|
|
use lists;
|
|
use search;
|
|
use chat;
|
|
use config;
|
|
use embed;
|
|
use meta;
|
|
use login;
|
|
|
|
# use Devel::Leak;
|
|
|
|
# my $handle;
|
|
# Devel::Leak::NoteSV($handle);
|
|
|
|
# sub leaky_friend
|
|
# {
|
|
# $count = Devel::Leak::CheckSV($handle);
|
|
# my $leakstr = "Memory: $count SVs\n";
|
|
# print STDERR $leakstr;
|
|
# }
|
|
|
|
sub base_page
|
|
{
|
|
my ($ssn,
|
|
$data,
|
|
$main,
|
|
$notifs) = @_;
|
|
my $result;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
title => $L10N{'EN_US'}->{'APP_NAME'},
|
|
lang => \&lang,
|
|
main => $main,
|
|
icon => \&get_icon,
|
|
sidebar_opacity => $ssn->{config}->{sidebar_opacity} / 255,
|
|
acct => $ssn->{account},
|
|
data => $data,
|
|
notifs => $notifs,
|
|
notification => \&generate_notification,
|
|
);
|
|
|
|
my $ret = to_template(\%vars, \$data->{'main.tt'});
|
|
|
|
# leaky_friend();
|
|
|
|
return $ret;
|
|
}
|