dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Always clear previous hidden form value when PE_INFO is returned by autoRedirect and autoPost (#125)

Browse Source
This commit is contained in:
Clément Oudot 2010-08-20 10:52:52 +00:00
parent 5e6efebab1
commit a85958f90f
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSAML.pm
View File

@ -1443,9 +1443,6 @@ sub authFinish {
my $self = shift;
my %h;
# Clear SAML hidden fields (not used anymore)
$self->clearHiddenFormValue( ['SAMLRequest', 'SAMLResponse', 'Method', 'RelayState', 'SAMLart' ] );
# Real session was stored, get id and utime
my $id = $self->{id};
my $utime = $self->{sessionInfo}->{_utime};

4
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -457,7 +457,7 @@ sub getHiddenFormValue {
# Delete all keys if no keys provided
# @param keys Array reference of keys
# @return nothing
sub clearHiddenFormValues {
sub clearHiddenFormValue {
my ( $self, $keys ) = splice @_;
unless ( defined $keys ) {
@ -1616,6 +1616,7 @@ sub autoRedirect {
# Display info before redirecting
if ( $self->info() ) {
$self->{infoFormMethod} = "get";
$self->clearHiddenFormValue();
my ($query_string) = ( $self->{urldc} =~ /.+?\?(.+)/ );
if ($query_string) {
$self->lmLog(
@ -1708,6 +1709,7 @@ sub autoPost {
# Display info before redirecting
if ( $self->info() ) {
$self->{infoFormMethod} = "post";
$self->clearHiddenFormValue();
$self->{urldc} = $url;
foreach ( keys %$formFields ) {
$self->setHiddenFormValue( $_, $formFields->{$_}, "", 0 );