LEMONLDAP::NG : Version 0.8.2.2
This commit is contained in:
Xavier Guimard
parent
3076ab1deb
commit
acb01a8c1a
|
|
@ -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>=> $ENV{$_}</td></tr>\n" foreach(keys %ENV);
|
||||
<table border="0" style="font-size: small;">\n#;
|
||||
foreach(keys %ENV) {
|
||||
my $tmp = $ENV{$_};
|
||||
$tmp =~ s/&/&/g;
|
||||
$tmp =~ s/>/>/g;
|
||||
$tmp =~ s/</</g;
|
||||
print "<tr><td>$_</td><td>=> $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
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,11 @@
|
|||
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;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue