67 lines
2.1 KiB
Perl
Executable File
67 lines
2.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Lemonldap::NG::Common::CGI qw(fastcgi);
|
|
use Lemonldap::NG::Portal::SharedConf;
|
|
use HTML::Template;
|
|
use strict;
|
|
|
|
LMAUTH:
|
|
while (
|
|
my $portal = Lemonldap::NG::Portal::SharedConf->new(
|
|
{
|
|
|
|
# ACCESS TO CONFIGURATION
|
|
# By default, Lemonldap::NG uses the default lemonldap-ng.ini file to
|
|
# know where to find its configuration
|
|
# (generaly /etc/lemonldap-ng/lemonldap-ng.ini)
|
|
# You can specify by yourself this file :
|
|
#configStorage => { confFile => '/path/to/my/file' },
|
|
# or set explicitely parameters :
|
|
#configStorage => {
|
|
# type => 'File',
|
|
# dirName => '/usr/local/lemonldap-ng/data//conf'
|
|
#},
|
|
# Note that YOU HAVE TO SET configStorage here if you've declared this
|
|
# portal as SOAP configuration server in the manager
|
|
|
|
# OTHERS
|
|
# You can also overload any parameter issued from manager
|
|
# configuration. Example:
|
|
#globalStorage => 'Apache::Session::File',
|
|
#globalStorageOptions => {
|
|
# 'Directory' => '/var/lib/lemonldap-ng/sessions/',
|
|
# 'LockDirectory' => '/var/lib/lemonldap-ng/sessions/lock/',
|
|
#},
|
|
# Note that YOU HAVE TO SET globalStorage here if you've declared this
|
|
# portal as SOAP session server in the manager
|
|
}
|
|
)
|
|
)
|
|
{
|
|
|
|
# Get skin and template parameters
|
|
my ( $templateName, %templateParams ) = $portal->display();
|
|
|
|
# HTML template creation
|
|
my $template = HTML::Template->new(
|
|
filename => "$templateName",
|
|
die_on_bad_params => 0,
|
|
cache => 0,
|
|
global_vars => 1,
|
|
loop_context_vars => 1,
|
|
filter => [
|
|
sub { $portal->translate_template(@_) },
|
|
sub { $portal->session_template(@_) }
|
|
],
|
|
);
|
|
|
|
# Give parameters to the template
|
|
while ( my ( $k, $v ) = each %templateParams ) {
|
|
$template->param( $k, $v );
|
|
}
|
|
|
|
# Display it
|
|
print $portal->header('text/html; charset=utf-8');
|
|
print $template->output;
|
|
}
|