Commit 486666a6 authored by Yadd's avatar Yadd
Browse files

LEMONLDAP::NG : * Debian first install failed

                * Doxygen documentation in progress
                  => Version 0.9.3.2
parent bfab1a6e
lemonldap-ng (0.9.3.2) unstable; urgency=low
* Debian install failed (Closes: #510562, Closes: #510563 / bugs.debian.org)
-- Xavier Guimard <x.guimard@free.fr> Sat, 03 Jan 2009 09:47:21 +0100
lemonldap-ng (0.9.3.1) unstable; urgency=low
* Bug in Debian build
......
......@@ -112,7 +112,7 @@ binary-indep: build install
dh_installman
dh_link
dh_strip
dh_compress
dh_compress -X.pm -X.pl
dh_fixperms
# dh_perl
# dh_makeshlibs
......
## @file
# Help messages used by the manager.
## @class
# Import help messages subroutines in Lemonldap::NG::Manager in the wanted language.
package Lemonldap::NG::Manager::Help;
use AutoLoader qw(AUTOLOAD);
our $VERSION = '0.36';
## @fn void import(string lang)
# Import help messages subroutines in Lemonldap::NG::Manager in the wanted language.
# @param $lang Language string of "Accept-Language" HTTP header value
sub import {
my ($caller_package) = caller;
my $lang = shift;
......
## @file
# Session explorer
## @class
# Session explorer.
package Lemonldap::NG::Manager::Sessions;
use strict;
......@@ -8,11 +13,14 @@ our $VERSION = '0.1';
use base qw(Lemonldap::NG::Handler::CGI);
# Cleaner for Lemonldap::NG : removes old sessions from Apache::Session
#
# This module is written to be used by cron to clean old sessions from
# Apache::Session.
## @cmethod Lemonldap::NG::Manager::Sessions new(hashRef args)
# Constructor.
# @param $args Arguments for Lemonldap::NG::Handler::CGI::new(). Must contains
# 3 keys for Lemonldap::NG::Manager::Sessions:
# - jqueryUri HTTP path to jquery.js
# - personnalCss Optional HTTP path to custom CSS file
# - imagePath HTTP path to the images directory
# @return New Lemonldap::NG::Manager::Sessions object
sub new {
my ( $class, $args ) = @_;
my $self = $class->SUPER::new($args)
......@@ -27,6 +35,8 @@ sub new {
return $self;
}
## @rmethod void process()
# Main method.
sub process {
my $self = shift;
......@@ -362,6 +372,10 @@ sub process {
}
}
## @rfn protected string htmlquote(string s)
# Change <, > and & to HTML encoded values in the string
# @param $s HTML string
# @return HTML string
sub htmlquote {
my $s = shift;
$s =~ s/</&lt;/g;
......@@ -370,7 +384,8 @@ sub htmlquote {
return $s;
}
# HTML headers
## @rfn protected void start()
# Display HTTP and HTML headers.
sub start {
my $self = shift;
print $self->header( -type => 'text/html; charset=utf8', );
......@@ -428,14 +443,20 @@ sub start {
);
}
# Ajax node use by JQuery.simple.tree
## @rfn protected void ajaxnode(string id, string text, string param)
# Display tree node with Ajax functions inside for opening the node.
# @param $id HTML id of the element.
# @param $text text to display
# @param $param Parameters for the Ajax query
sub ajaxNode {
my ( $self, $id, $text, $param ) = @_;
print
"<li id=\"$id\"><span>$text</span>\n<ul class=\"ajax\"><li id=\"sub_$id\">{url:$ENV{SCRIPT_NAME}?$param}</li></ul></li>\n";
}
# Design of the main window
## @rfn protected void window(string root)
# Design the main window
# @param $root Text to display in the root node of the tree
sub window {
my $self = shift;
my $root = shift;
......@@ -457,7 +478,8 @@ sub window {
. '</span><ul>';
}
# End of HTML
## @rfn protected void end()
# Display the end of HTML page.
sub end {
my $self = shift;
print
......@@ -467,6 +489,8 @@ sub end {
1;
## @rfn protected css()
# Display the main CSS file (called by http://manager.example.com/sessions.pl/css)
sub css {
my $self = shift;
print <<"EOF";
......@@ -652,6 +676,8 @@ body
EOF
}
## @rfn protected js()
# Display the main javascript file (called by http://manager.example.com/sessions.pl/js)
sub js {
my $self = shift;
print <<"EOF";
......
## @file
# Messages translation for Lemonldap::NG::Manager
## @class
# Messages translation for Lemonldap::NG::Manager.
package Lemonldap::NG::Manager::_i18n;
# Developer warning : this file must be utf8 encoded
......@@ -5,6 +10,8 @@ package Lemonldap::NG::Manager::_i18n;
use AutoLoader qw(AUTOLOAD);
our $VERSION = '0.33';
## @fn void import(string lang)
# Import messages
sub import {
my ($caller_package) = caller;
my $lang = pop;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment