5f32afa0cd
All that is left is we carry current config values FossilOrigin-Name: d91f87afec897d986b251b80428e97355244c4307d440f8aea9c29803f171755
35 lines
503 B
Perl
35 lines
503 B
Perl
package config;
|
|
use strict;
|
|
use warnings;
|
|
|
|
our @EXPORT = qw( general appearance );
|
|
use Exporter 'import';
|
|
|
|
use template_helpers 'to_template';
|
|
|
|
sub general
|
|
{
|
|
my ($ssn, $data) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'config_general.tt'});
|
|
}
|
|
|
|
sub appearance
|
|
{
|
|
my ($ssn, $data) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'config_appearance.tt'});
|
|
}
|
|
|
|
1;
|