55 lines
2.1 KiB
Perl
Executable File
55 lines
2.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use Lemonldap::NG::Manager;
|
|
use HTML::Template;
|
|
|
|
my $manager = new Lemonldap::NG::Manager(
|
|
{
|
|
|
|
# ACCESS TO CONFIGURATION
|
|
|
|
# By default, Lemonldap::NG uses the default storage.conf file to know
|
|
# where to find is configuration
|
|
# (generaly /etc/lemonldap-ng/storage.conf)
|
|
# You can specify by yourself this file :
|
|
#configStorage => { confFile => '/path/to/my/file' },
|
|
|
|
# You can also specify directly the configuration
|
|
# (see Lemonldap::NG::Handler::SharedConf(3))
|
|
#configStorage => {
|
|
# type => 'File',
|
|
# directory => '/usr/local/lemonldap-ng/conf/'
|
|
#},
|
|
|
|
}
|
|
) or Lemonldap::NG::Common::CGI->abort('Unable to start manager');
|
|
|
|
our $skin = $manager->{managerSkin};
|
|
our $skin_dir = 'skins';
|
|
our $main_dir = $manager->getApacheHtdocsPath;
|
|
|
|
my $template = HTML::Template->new(
|
|
filename => "$main_dir/$skin_dir/$skin/manager.tpl",
|
|
die_on_bad_params => 0,
|
|
cache => 0,
|
|
filter => sub { $manager->translate_template(@_) },
|
|
);
|
|
$template->param( SCRIPT_NAME => $ENV{SCRIPT_NAME} );
|
|
$template->param( MENU => $manager->menu() );
|
|
$template->param( DIR => "$skin_dir/$skin" );
|
|
$template->param( CFGNUM => $manager->{cfgNum} );
|
|
$template->param( TREE_AUTOCLOSE => $manager->{managerTreeAutoClose} );
|
|
$template->param( TREE_JQUERYCSS => $manager->{managerTreeJqueryCss} );
|
|
$template->param( CSS => $manager->{managerCss} );
|
|
$template->param( CSS_THEME => $manager->{managerCssTheme} );
|
|
$template->param( VERSION => $Lemonldap::NG::Manager::VERSION );
|
|
$template->param( LANG => shift @{ $manager->{lang} } );
|
|
$template->param( PORTAL_URL => $manager->{portal} );
|
|
$template->param( LI_CLASS_CONFIGURATION => "active" );
|
|
$template->param( LI_CLASS_SESSION => "" );
|
|
$template->param( LI_CLASS_NOTIFICATION => "" );
|
|
print $manager->header('text/html; charset=utf-8');
|
|
print $template->output;
|
|
|