You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.9 KiB
56 lines
1.9 KiB
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use Lemonldap::NG::Manager;
|
|
use HTML::Template;
|
|
|
|
my $manager = new Lemonldap::NG::Manager(
|
|
{
|
|
# MANAGER CUSTOMIZATION
|
|
#managerSkin => 'default',
|
|
#managerCss => 'manager.css',
|
|
#managerTreeAutoClose => 'false',
|
|
#managerTreeJqueryCss => 'false',
|
|
|
|
# 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 => { type => 'File', dirName => '/path/to/my/file' },
|
|
|
|
# You can also specify directly the configuration
|
|
# (see Lemonldap::NG::Handler::SharedConf(3))
|
|
#configStorage => {
|
|
# type => 'File',
|
|
# directory => '/usr/local/lemonlda-ng/conf/'
|
|
#},
|
|
|
|
# CUSTOM FUNCTION
|
|
# If you want to create customFunctions in rules, declare them here:
|
|
#customFunctions => 'function1 function2',
|
|
#customFunctions => 'Package::func1 Package::func2',
|
|
}
|
|
) or Lemonldap::NG::Common::CGI->abort('Unable to start manager');
|
|
|
|
our $skin = $manager->{managerSkin};
|
|
our $skin_dir ='skins';
|
|
our $main_dir = $ENV{DOCUMENT_ROOT};
|
|
|
|
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});
|
|
print $manager->header('text/html; charset=utf-8');
|
|
print $template->output;
|
|
|
|
|