Skip to content
GitLab
Commit b301a5b5 authored by Yadd's avatar Yadd
Browse files

New manager

parent 04ed7be6
Hide whitespace changes
Inline Side-by-side
build/lemonldap-ng/Makefile
View file @ b301a5b5
......@@ -31,8 +31,8 @@ LASPPORTALDIR=$(DOCUMENTROOT)/liberty-alliance-sp-portal
RLASPPORTALDIR=$(DESTDIR)/$(LASPPORTALDIR)
MANAGERDIR=$(DOCUMENTROOT)/manager
RMANAGERDIR=$(DESTDIR)/$(MANAGERDIR)
MANAGERDATADIR=$(MANAGERDIR)/imgs
RMANAGERDATADIR=$(DESTDIR)/$(MANAGERDATADIR)
MANAGERSKINSDIR=$(MANAGERDIR)/skins
RMANAGERSKINSDIR=$(DESTDIR)/$(MANAGERSKINSDIR)
SESSIONSEXPLORERDIR=$(MANAGERDIR)
RSESSIONSEXPLORERDIR=$(DESTDIR)/$(SESSIONSEXPLORERDIR)
SESSIONSEXPLORERDATADIR=$(SESSIONSEXPLORERDIR)/images
......@@ -259,27 +259,33 @@ install_site: install_manager_site install_portal_site install_handler_site inst
install_manager_site: install_conf_dir
# Manager install
@install -v -d ${RMANAGERDIR} ${RMANAGERDATADIR} \
@install -v -d ${RMANAGERDIR} ${RMANAGERSKINSDIR} \
${RSESSIONSEXPLORERDIR} $(RSESSIONSEXPLORERDATADIR) \
$(RCONFDIR)
@find ${RMANAGERDIR} -type l -name imgs -delete
@find ${RMANAGERDIR} -type l -name images -delete
@cp -pR --remove-destination ${SRCMANAGERDIR}/example/* ${RMANAGERDIR}
@rm -rf $$(find ${RMANAGERDIR} -type d -name .svn) ${RMANAGERDIR}/scripts ${RMANAGERDIR}/mrtg ${RMANAGERDIR}/soapserver.pl
@if [ "${RMANAGERDIR}/imgs/" != "${RMANAGERDATADIR}/" ]; then \
mv -f ${RMANAGERDIR}/imgs/* ${RMANAGERDATADIR}/; \
rm -rf ${RMANAGERDIR}/imgs; \
ln -s $$(echo ${MANAGERDATADIR} | sed -e 's/\/$$//') ${RMANAGERDIR}/imgs; \
$(RCONFDIR) ${RMANAGERDIR}/skins/
@for skin in $$(ls lemonldap-ng-manager/example/skins/); do \
[ -h $(RMANAGERDIR)/skins/$$skin ] && rm -f $(RMANAGERDIR)/skins/$$skin; \
install -v -d $(RMANAGERSKINSDIR)/$$skin; \
done
@find ${RSESSIONSEXPLORERDIR} -type l -name images -delete
@cp -pR --remove-destination ${SRCMANAGERDIR}/example/index.pl ${RMANAGERDIR}
@perl -i -pe 's#__SKINDIR__#$(MANAGERDIR)/skins#; \
s#__APPSXMLFILE__#$(CONFDIR)/apps-list.xml#;' ${RMANAGERDIR}/index.pl
@cp -pR --remove-destination ${SRCMANAGERDIR}/example/skins/* $(RMANAGERSKINSDIR)
@if [ "$(MANAGERDIR)/skins/" != "$(MANAGERSKINSDIR)/" ]; then \
for skin in $$(ls lemonldap-ng-manager/example/skins/); do \
rm -rf $(RMANAGERDIR)/skins/$$skin/; \
ln -s $(MANAGERSKINSDIR)/$$skin $(RMANAGERDIR)/skins/$$skin; \
done; \
fi
@perl -i -pe 's/__DNSDOMAIN__/$(DNSDOMAIN)/g' $(RCONFDIR)/$(CONFFILENAME)
# Sessions explorer install
@if [ "${MANAGERDIR}" != "$(SESSIONSEXPLORERDIR)" ]; then mv -f ${RMANAGERDIR}/sessions.pl $(RSESSIONSEXPLORERDIR); fi
@if [ "${MANAGERDIR}/images/" != "${SESSIONSEXPLORERDATADIR}/" ]; then \
mv -f ${RMANAGERDIR}/images/* ${RSESSIONSEXPLORERDATADIR}; \
@cp -pR --remove-destination ${SRCMANAGERDIR}/example/{sessions.pl,images} $(RSESSIONSEXPLORERDIR)
@if [ "${SESSIONSEXPLORERDIR}/images/" != "${SESSIONSEXPLORERDATADIR}/" ]; then \
mv -f ${RSESSIONSEXPLORERDIR}/images/* ${RSESSIONSEXPLORERDATADIR}; \
rm -rf ${RMANAGERDIR}/images; \
ln -s $$(echo ${SESSIONSEXPLORERDATADIR} | sed -e 's/\/$$//') ${RMANAGERDIR}/images; \
fi
@rm -rf $$(find ${RMANAGERDIR} ${RMANAGERDATADIR} \
@rm -rf $$(find ${RMANAGERDIR} ${RMANAGERSKINSDIR} \
${RSESSIONSEXPLORERDIR} $(RSESSIONSEXPLORERDATADIR) \
$(RCONFDIR) -type d -name .svn)
......@@ -344,7 +350,7 @@ install_examples_site:
cp -dpR --remove-destination lemonldap-ng-$$i/example $(REXAMPLESDIR)/$$i; \
done
@rm -rf $(REXAMPLESDIR)/portal/skins \
$(REXAMPLESDIR)/manager/imgs \
$(REXAMPLESDIR)/manager/skins \
$(REXAMPLESDIR)/manager/images \
@rm -rf $$(find $(REXAMPLESDIR) -type d -name .svn)
@perl -i -pe 's#__DIR__#$(LASPPORTALDIR)#g' $(REXAMPLESDIR)/portal/AuthLA/index.pl
......@@ -459,7 +465,7 @@ manager_cpan: manager_conf
static_example: example
@mkdir -p ${EXAMPLESDIR}/static
@cd ${EXAMPLESDIR}/static/;cp -a ../manager/{imgs,theme} .;cd -
@cd ${EXAMPLESDIR}/static/;cp -a ../manager/{skins} .;cd -
@../scripts/make_static_example.pl ${DESTMANAGERDIR}/index.pl ${SCRIPTSDIR}/static/index.html $(EXAMPLELANG)
documentation:
......
build/lemonldap-ng/debian/liblemonldap-ng-manager-perl.install
View file @ b301a5b5
debian/tmp/usr/share/perl5/Lemonldap/NG/Manager*
debian/tmp/usr/share/perl5/auto/Lemonldap/NG/Manager
debian/tmp/usr/share/man/man3/Lemonldap::NG::Manager.3pm
debian/tmp/usr/share/man/man3/Lemonldap::NG::Manager::SOAPServer.3pm
debian/tmp/usr/share/man/man3/Lemonldap::NG::Manager::Restricted.3pm
debian/tmp/etc/lemonldap-ng/apply.conf
debian/manager-apache*.conf /etc/lemonldap-ng
debian/tmp/usr/share/lemonldap-ng/manager-imgs
debian/tmp/usr/share/lemonldap-ng/manager-skins
debian/tmp/usr/share/lemonldap-ng/sessions-explorer-imgs
debian/tmp/var/lib/lemonldap-ng/manager
debian/tmp/usr/share/lemonldap-ng/bin/lmConfigEditor
build/lemonldap-ng/debian/po/ja.po
View file @ b301a5b5
# Copyright (C) 2009 Xavier Guimard <x.guimard@free.fr>
# This file is distributed under the same license as lemonldap-ng package.
# Hideki Yamane (Debian-JP) <henrich@debian.or.jp>, 2009.
#
msgid ""
msgstr ""
"Project-Id-Version: lemonldap-ng 0.9.4.1-2\n"
"Report-Msgid-Bugs-To: x.guimard@free.fr\n"
"POT-Creation-Date: 2007-09-22 13:08+0200\n"
"PO-Revision-Date: 2009-11-24 14:26+0900\n"
"Last-Translator: Hideki Yamane (Debian-JP) <henrich@debian.or.jp>\n"
"Language-Team: Japanese <debian-japanese@lists.debian.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:1001
msgid "LDAP server:"
msgstr "LDAP サーバ:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:1001
msgid ""
"Set here name or IP address of the LDAP server that has to be used by "
"Lemonldap::NG. You can modify this value later using the Lemonldap::NG "
"manager."
msgstr ""
"Lemonldap::NG が利用する LDAP サーバの名前、あるいは IP アドレスをここで"
"設定してください。Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:2001
msgid "Lemonldap::NG DNS domain:"
msgstr "Lemonldap::NG DNS ドメイン名:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:2001
msgid ""
"Set here the main domain protected by Lemonldap::NG. You can modify this "
"value later using the Lemonldap::NG manager."
msgstr ""
"ここで、Lemonldap::NG で保護するメインのドメイン名を設定してください。"
"Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:3001
msgid "Lemonldap::NG portal:"
msgstr "Lemonldap::NG ポータル::"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:3001
msgid ""
"Set here the Lemonldap::NG portal URL. You can modify this value later using "
"the Lemonldap::NG manager."
msgstr ""
"ここで、Lemonldap::NG ポータルの URL を設定してください。Lemonldap::NG "
"マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:4001
msgid "LDAP server port:"
msgstr "LDAP サーバのポート番号:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:4001
msgid ""
"Set here the port used by the LDAP server. You can modify this value later "
"using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP サーバが使うポート番号を設定してください。Lemonldap::NG マネージャ"
"を使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:5001
msgid "LDAP search base:"
msgstr "LDAP 検索ベース:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:5001
msgid ""
"Set here the search base to use in LDAP queries. You can modify this value "
"later using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP クエリで利用する検索ベースを設定してください。Lemonldap::NG "
"マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:6001
msgid "LDAP account:"
msgstr "LDAP アカウント:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:6001
msgid ""
"Set here the account that Lemonldap::NG has to use for its LDAP requests. "
"Leaving it blank causes Lemonldap::NG to use anonymous connections. You can "
"modify this value later using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP のリクエストに対して Lemonldap::NG が使う必要があるアカウントを設定"
"してください。この欄を空白のままにしておくと、Lemonldap::NG は匿名での接続を行う"
"ようになります。Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:7001
msgid "LDAP password:"
msgstr "LDAP パスワード:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:7001
msgid ""
"Set here the password for the Lemonldap::NG LDAP account. You can modify "
"this value later using the Lemonldap::NG manager."
msgstr ""
"Lemonldap::NG の LDAP アカウントのパスワードをここで設定してください。"
"Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#
msgid ""
msgstr ""
"Project-Id-Version: lemonldap-ng 0.9.4.1-2\n"
"Report-Msgid-Bugs-To: x.guimard@free.fr\n"
"POT-Creation-Date: 2007-09-22 13:08+0200\n"
"PO-Revision-Date: 2009-11-24 14:26+0900\n"
"Last-Translator: Hideki Yamane (Debian-JP) <henrich@debian.or.jp>\n"
"Language-Team: Japanese <debian-japanese@lists.debian.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:1001
msgid "LDAP server:"
msgstr "LDAP サーバ:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:1001
msgid ""
"Set here name or IP address of the LDAP server that has to be used by "
"Lemonldap::NG. You can modify this value later using the Lemonldap::NG "
"manager."
msgstr ""
"Lemonldap::NG が利用する LDAP サーバの名前、あるいは IP アドレスをここで設定"
"してください。Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:2001
msgid "Lemonldap::NG DNS domain:"
msgstr "Lemonldap::NG DNS ドメイン名:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:2001
msgid ""
"Set here the main domain protected by Lemonldap::NG. You can modify this "
"value later using the Lemonldap::NG manager."
msgstr ""
"ここで、Lemonldap::NG で保護するメインのドメイン名を設定してください。"
"Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:3001
msgid "Lemonldap::NG portal:"
msgstr "Lemonldap::NG ポータル::"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:3001
msgid ""
"Set here the Lemonldap::NG portal URL. You can modify this value later using "
"the Lemonldap::NG manager."
msgstr ""
"ここで、Lemonldap::NG ポータルの URL を設定してください。Lemonldap::NG マネー"
"ジャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:4001
msgid "LDAP server port:"
msgstr "LDAP サーバのポート番号:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:4001
msgid ""
"Set here the port used by the LDAP server. You can modify this value later "
"using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP サーバが使うポート番号を設定してください。Lemonldap::NG マネー"
"ジャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:5001
msgid "LDAP search base:"
msgstr "LDAP 検索ベース:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:5001
msgid ""
"Set here the search base to use in LDAP queries. You can modify this value "
"later using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP クエリで利用する検索ベースを設定してください。Lemonldap::NG マ"
"ネージャを使えば、後ほどこの値を変更できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:6001
msgid "LDAP account:"
msgstr "LDAP アカウント:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:6001
msgid ""
"Set here the account that Lemonldap::NG has to use for its LDAP requests. "
"Leaving it blank causes Lemonldap::NG to use anonymous connections. You can "
"modify this value later using the Lemonldap::NG manager."
msgstr ""
"ここで、LDAP のリクエストに対して Lemonldap::NG が使う必要があるアカウントを"
"設定してください。この欄を空白のままにしておくと、Lemonldap::NG は匿名での接"
"続を行うようになります。Lemonldap::NG マネージャを使えば、後ほどこの値を変更"
"できます。"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:7001
msgid "LDAP password:"
msgstr "LDAP パスワード:"
#. Type: string
#. Description
#: ../liblemonldap-ng-conf-perl.templates:7001
msgid ""
"Set here the password for the Lemonldap::NG LDAP account. You can modify "
"this value later using the Lemonldap::NG manager."
msgstr ""
"Lemonldap::NG の LDAP アカウントのパスワードをここで設定してください。"
"Lemonldap::NG マネージャを使えば、後ほどこの値を変更できます。"
build/lemonldap-ng/debian/rules
View file @ b301a5b5
......@@ -61,7 +61,7 @@ install: build
EXAMPLESDIR=/examples/ \
HANDLERDIR=$(LMVARDIR)handler/ \
PORTALSKINSDIR=$(LMSHAREDIR)portal-skins/ \
MANAGERDATADIR=$(LMSHAREDIR)manager-imgs/ \
MANAGERSKINSDIR=$(LMSHAREDIR)manager-skins/ \
SESSIONSEXPLORERDATADIR=$(LMSHAREDIR)sessions-explorer-imgs/ \
STORAGECONFFILE=/etc/lemonldap-ng/lemonldap-ng.ini \
TOOLSDIR=$(LMSHAREDIR)ressources/ \
......@@ -72,9 +72,7 @@ install: build
APACHEGROUP=www-data
# Since Lenny, jquery.js is provided by libjs-jquery
rm -f $(CURDIR)/debian/tmp$(LMSHAREDIR)portal-skins/*/jquery.js \
$(CURDIR)/debian/tmp$(LMVARDIR)manager/jquery.js \
debian/tmp/examples/manager/jquery.js
rm -f $(CURDIR)/debian/tmp$(LMSHAREDIR)*-skins/*/jquery.js
perl -i -pe 's#(["'"'"'])[\w-\./]*jquery.js#$$1/javascript/jquery/jquery.js#' \
$(CURDIR)/debian/tmp/examples/manager/*.pl \
$(CURDIR)/debian/tmp$(LMSHAREDIR)portal-skins/pastel/header.tpl
......
modules/lemonldap-ng-common/META.yml
View file @ b301a5b5
......@@ -13,6 +13,7 @@ build_requires:
requires:
Cache::Cache: 0
CGI: 3.08
Config::IniFiles: 0
Crypt::Rijndael: 0
DBI: 0
HTTP::Headers: 0
......@@ -20,7 +21,6 @@ requires:
Regexp::Assemble: 0
SOAP::Lite: 0
Storable: 0
Config::IniFiles: 0
no_index:
directory:
- t
......
modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI.pm
View file @ b301a5b5
......@@ -288,6 +288,33 @@ sub _sub {
}
}
##@method void translate_template(string text_ref, string lang)
# translate_template is used as an HTML::Template filter to tranlate strings in
# the wanted language
#@param text_ref reference to the string to translate
#@param lang optionnal language wanted. Falls to browser language instead.
#@return
sub translate_template {
my $self = shift;
my $text_ref = shift;
my $lang = shift || $ENV{HTTP_ACCEPT_LANGUAGE};
# Get the lang code (2 letters)
$lang = lc($lang);
$lang =~ s/-/_/g;
$lang =~ s/^(..).*$/$1/;
# Test if a translation is available for the selected language
# If not available, return the first translated string
# <lang en="Please enter your credentials" fr="Merci de vous autentifier"/>
if ( $$text_ref =~ m/$lang=\"(.*?)\"/ ) {
$$text_ref =~ s/<lang.*$lang=\"(.*?)\".*?\/>/$1/gx;
}
else {
$$text_ref =~ s/<lang\s+\w+=\"(.*?)\".*?\/>/$1/gx;
}
}
## @method private void quit()
# Simply exit.
sub quit {
......
modules/lemonldap-ng-manager/MANIFEST
View file @ b301a5b5
......@@ -30,73 +30,54 @@ example/images/tree.js
example/images/tree_line.gif
example/images/vframe.png
example/images/xlib.js
example/imgs/_customers.gif
example/imgs/blank.gif
example/imgs/book.gif
example/imgs/book_titel.gif
example/imgs/books_close.gif
example/imgs/books_open.gif
example/imgs/btn_up1.gif
example/imgs/btn_up2.gif
example/imgs/close2.gif
example/imgs/folderClosed.gif
example/imgs/folderOpen.gif
example/imgs/iconCheckAll.gif
example/imgs/iconCheckGray.gif
example/imgs/iconClient.gif
example/imgs/iconDeleteSelected.gif
example/imgs/iconJob.gif
example/imgs/iconReport.gif
example/imgs/iconTask.gif
example/imgs/iconTimeRecordsEdit.gif
example/imgs/iconUncheckAll.gif
example/imgs/item.gif
example/imgs/item2.gif
example/imgs/leaf.gif
example/imgs/line1.gif
example/imgs/line2.gif
example/imgs/line3.gif
example/imgs/line4.gif
example/imgs/magazines_close.gif
example/imgs/magazines_open.gif
example/imgs/minus.gif
example/imgs/minus2.gif
example/imgs/minus3.gif
example/imgs/minus4.gif
example/imgs/minus5.gif
example/imgs/minus_ar.gif
example/imgs/open2.gif
example/imgs/plus.gif
example/imgs/plus2.gif
example/imgs/plus3.gif
example/imgs/plus4.gif
example/imgs/plus5.gif
example/imgs/plus_ar.gif
example/imgs/tombs.gif
example/imgs/tombs_mag.gif
example/index.pl
example/jquery.js
example/lemonldap-ng-manager.js
example/mrtg/lmng-mrtg
example/mrtg/mrtg.cfg.example
example/scripts/lmConfigEditor
example/sessions.pl
example/theme/default.css
example/theme/hatch.gif
example/theme/logo_lemonldap-ng.png
example/skins/default/arrow_refresh.png
example/skins/default/collapsable-last.gif
example/skins/default/collapsable.gif
example/skins/default/cross.png
example/skins/default/disk.png
example/skins/default/expandable-last.gif
example/skins/default/expandable.gif
example/skins/default/folder_add.png
example/skins/default/folder_delete.png
example/skins/default/folder_edit.png
example/skins/default/hframe.png
example/skins/default/jquery.js
example/skins/default/leaf-last.gif
example/skins/default/leaf.gif
example/skins/default/line_bg.gif
example/skins/default/line_bg_over.gif
example/skins/default/line_bg_over_last.gif
example/skins/default/logo_lemonldap-ng.png
example/skins/default/manager.css
example/skins/default/manager.tpl
example/skins/default/minus.gif
example/skins/default/page_add.png
example/skins/default/page_delete.png
example/skins/default/page_edit.png
example/skins/default/plus.gif
example/skins/default/root.gif
example/skins/default/spacer.gif
example/skins/default/spinner.gif
example/skins/default/tree.js
example/skins/default/tree_line.gif
example/skins/default/vframe.png
example/skins/default/xlib.js
lib/Lemonldap/NG/Manager.pm
lib/Lemonldap/NG/Manager/_HTML.pm
lib/Lemonldap/NG/Manager/_i18n.pm
lib/Lemonldap/NG/Manager/_Response.pm
lib/Lemonldap/NG/Manager/_Struct.pm
lib/Lemonldap/NG/Manager/Downloader.pm
lib/Lemonldap/NG/Manager/Help.pm
lib/Lemonldap/NG/Manager/Restricted.pm
lib/Lemonldap/NG/Manager/Sessions.pm
lib/Lemonldap/NG/Manager/SOAPServer.pm
lib/Lemonldap/NG/Manager/Uploader.pm
Makefile.PL
MANIFEST
META.yml Module meta-data (added by MakeMaker)
MANIFEST This list of files
META.yml
README
t/10-Manager.t
t/20-Manager-i18n.t
t/99-pod.t
TODO
modules/lemonldap-ng-manager/META.yml
View file @ b301a5b5
--- #YAML:1.0
name: Lemonldap-NG-Manager
version: 0.91
version: 0.92
abstract: Perl extension for managing Lemonldap::NG Web-SSO
author:
- Xavier Guimard <x.guimard@free.fr>
......
modules/lemonldap-ng-manager/TODO deleted 100644 → 0
View file @ 04ed7be6
* system to alert if configuration as changed between get and update
modules/lemonldap-ng-manager/example/experimental.pl deleted 100755 → 0
View file @ 04ed7be6
#!/usr/bin/perl
#use Lemonldap::NG::Manager;
my $h = new Lemonldap::NG::Manager::Experimental(
{
jqueryUri => '/javascript/jquery/jquery.js',
imagePath => '/images/',
cssFile => 'theme/default.css',
textareaW => 50,
textareaH => 2,
inputSize => 30,
# OPTIONAL PARAMETERS
#jsFile => /path/to/lemonldap-ng-manager.js,
# ACCESS TO CONFIGURATION
# By default, Lemonldap::NG uses the default lemonldap-ng.ini file to know
# where to find is configuration
# (generaly /etc/lemonldap-ng/lemonldap-ng.ini)
# 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',
# dirName => '/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 die "Unable to start";
$h->doall();
package Lemonldap::NG::Manager::Experimental;
use strict;
use Lemonldap::NG::Handler::CGI qw(:globalStorage :locationRules);
our $VERSION = '0.1';
our @ISA;
BEGIN {
require Lemonldap::NG::Manager::Help; #inherits
*process = *doall;
@ISA =
qw(
Lemonldap::NG::Handler::CGI
Lemonldap::NG::Manager::Downloader
Lemonldap::NG::Manager::Uploader
Lemonldap::NG::Manager::_Struct
Lemonldap::NG::Manager::_i18n
);
}
sub new {
my ( $class, $args ) = @_;
my $self = $class->SUPER::new($args)
or $class->abort( 'Unable to start ' . __PACKAGE__,
'See Apache logs for more' );
$self->{imagePath} ||= 'images/';
return $self;
}
sub doall {