25 lines
613 B
Perl
Executable File
25 lines
613 B
Perl
Executable File
#!/usr/bin/perl
|
|
use Lemonldap::NG::Portal::Error;
|
|
use HTML::Template;
|
|
|
|
my $skin = "pastel";
|
|
my $skin_dir = "__SKINDIR__";
|
|
|
|
my $portal = Lemonldap::NG::Portal::Error->new();
|
|
|
|
my $portal_url = $portal->getPortal;
|
|
my $logout_url = "$portal_url?logout=1";
|
|
|
|
my $template = HTML::Template->new(
|
|
filename => "$skin_dir/$skin/error.tpl",
|
|
die_on_bad_params => 0,
|
|
cache => 0,
|
|
filter => sub{$portal->translate_template(@_)}
|
|
);
|
|
|
|
$template->param( PORTAL_URL => "$portal_url" );
|
|
$template->param( LOGOUT_URL => "$logout_url" );
|
|
|
|
print $portal->header('text/html; charset=utf8');
|
|
print $template->output;
|