Commit acb01a8c authored by Xavier Guimard's avatar Xavier Guimard

LEMONLDAP::NG : Version 0.8.2.2

parent 3076ab1d
......@@ -27,7 +27,7 @@ print qq#<h1>Authentication succeed</h1>
<a href="/logout">logout</a>
<p>Authenticated user : $ENV{HTTP_AUTH_USER}</p>
<p>To know who is connected in your applications, you can read HTTP headers :</p>
<table border=1 style="font-size: small;">\n
<table border="1" style="font-size: small;">\n
<tr><th>Header</th><th>Perl CGI</th><th>PHP script</th><th>Value</th></tr>
#;
foreach(keys %$headers) {
......@@ -45,14 +45,20 @@ not spoof sessions.</p>
<p>You can access to any information (IP address or LDAP attribute) by customizing
exported headers with the
<a href="http://manager.example.com/">Lemonldap::NG Management interface</a></p>
<hr>';
<hr />';
print qq#<h2>Environment for Perl CGI :</h2>
<p>Be carefull, the \$ENV{REMOTE_USER} is set only if your script is in the
same server than Lemonldap::NG handler (\$whatToTrace parameter). If you use
it on a reverse-proxy, \$ENV{REMOTE_USER} is not set.</p>
<table border=0 style="font-size: small;">\n#;
print "<tr><td>$_</td><td>=&gt; $ENV{$_}</td></tr>\n" foreach(keys %ENV);
<table border="0" style="font-size: small;">\n#;
foreach(keys %ENV) {
my $tmp = $ENV{$_};
$tmp =~ s/&/&amp;/g;
$tmp =~ s/>/&gt;/g;
$tmp =~ s/</&lt;/g;
print "<tr><td>$_</td><td>=&gt; $tmp</td></tr>\n";
}
print '</table>';
print $cgi->end_html;
......@@ -3,8 +3,11 @@ lemonldap-ng (0.8.2.2) unstable; urgency=low
* Debian packages modifications due to Lintian control.
* New Debian package: lemonldap-ng-doc
* Little bug correction in Portal/CDA.pm
* Bug between Handler dependencies and Debian organization:
Lemonldap::NG::Handler::SharedConf must not depend from
Lemonldap::NG::Manager but Lemonldap::NG::Manager::Conf
-- Xavier Guimard <x.guimard@free.fr> Tue, 22 May 2007 10:18:43 +0200
-- Xavier Guimard <x.guimard@free.fr> Tue, 01 June 2007 07:18:43 +0200
lemonldap-ng (0.8.2.1) unstable; urgency=low
......
Revision history for Perl extension Lemonldap::NG::Handler.
0.82 Fri Jun 1 6:52:43 2007
- Little bug: SharedConf.pm needs Manager::Conf and not Manager
0.81 Fri Apr 15 7:15:56 2007
- More tests
0.8 Thu Apr 12 7:08:08 2007
- Little bug in unprotect function (Handler::Simple)
- New feature: Lemonldap::NG::Handler::CGI
......
......@@ -2,7 +2,7 @@ package Lemonldap::NG::Handler;
print STDERR
"See Lemonldap::NG::Handler(3) to know which Lemonldap::NG::Handler::* module to use.";
our $VERSION = "0.81";
our $VERSION = "0.82";
1;
......
......@@ -4,12 +4,12 @@ use strict;
use Lemonldap::NG::Handler::Simple qw(:all);
use Lemonldap::NG::Handler::Vhost;
use Lemonldap::NG::Manager;
use Lemonldap::NG::Manager::Conf;
use Cache::Cache qw($EXPIRES_NEVER);
our @ISA = qw(Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple);
our $VERSION = '0.54';
our $VERSION = '0.55';
our $cfgNum = 0;
our $lastReload = 0;
our $reloadTime;
......
......@@ -8,7 +8,7 @@ use AutoLoader qw(AUTOLOAD);
require Lemonldap::NG::Manager::_i18n;
use Lemonldap::NG::Manager::Conf::Constants;
our $VERSION = '0.27';
our $VERSION = '0.28';
# TODO: Delete buttons in headers and rules if 'read-only'
......@@ -445,12 +445,12 @@ qq#<script type="text/javascript" src="$ENV{SCRIPT_NAME}?lmQuery=lmjs"></script>
<div style="z-index: 2;" id="haut" class="clsPane">
<div id="buttons"></div>
<div id="formulaire" style="display:none;">
<form onSubmit="return false">
<form onsubmit="return false" action="$ENV{SCRIPT_NAME}">
<p></p>
<table border=1 width="100%" style="empty-cells:show;">
<table border="1" width="100%" style="empty-cells:show;">
<tr>
<th width=200>Champ</th>
<th width=400>Valeur</th>
<th width="200">Champ</th>
<th width="400">Valeur</th>
</tr>
<tr>
<td>
......
......@@ -21,13 +21,14 @@ if ( $portal->process() ) {
else {
print $portal->header;
print $portal->start_html;
print 'Error: ' . $portal->error . '<br>';
print '<form method="POST">';
print 'Error: ' . $portal->error . '<br />';
print '<form method="post" action="'.$ENV{SCRIPTNAME}.'">';
print '<input type="hidden" name="url" value="'
. $portal->param('url') . '">';
print 'Login : <input name="user"><br>';
. $portal->param('url') . '" />';
print 'Login : <input name="user" /><br />';
print 'Password : <input name="password" type="password" autocomplete="off"><br>';
print '<input type=submit value="OK">';
print '<input type="submit" value="OK" />';
print '</form>';
print $portal->end_html;
}
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