view release on metacpan or  search on metacpan

lib/Lemonldap/Handlers/LoginCASLDAPFake.pm  view on Meta::CPAN

        $Cookie_Name = $Conf_Domain->{Cookie};
        $page_html   = $Conf_Domain->{LoginCASPage};

################  enlevver ca ################

##############################################
        if ( !$html ) {
            my $file;
            open( $file, "<$page_html" );
            local $/;
            $/    = '';
            $html = <$file>;
            close $file;
        }

        $Ldap_Server        = $Conf_Domain->{ldap_server};
        $Ldap_Branch_People = $Conf_Domain->{ldap_branch_people};
        $Ldap_Dn_Manager    = $Conf_Domain->{DnManager};
        $Ldap_Pass_Manager  = $Conf_Domain->{passwordManager};
        $Ldap_Port          = $Conf_Domain->{ldap_port};
        $Ldap_Search_Bases  = $Ldap_Branch_People;

lib/Lemonldap/Handlers/LogoutCAS.pm  view on Meta::CPAN

        -name   => $Cookie_Name,
        -value  => 0,
        -domain => $dotdomain,
        -path   => $pathlemon,
    );
##############################################
    if ( !$html ) {
        my $file;
        open( $file, "<$page_html" );
        local $/;
        $/    = '';
        $html = <$file>;
        close $file;
    }
    $r->content_type('text/html');

    #  my $linecookie= "CASTGC=0;domain=$dotdomain;path=/cas/ ; $cookiename=0;
    #  $r->headers_out->{'Set-Cookie'}= [$LemonCookie,$CASCookie] ;
    $r->headers_out->add( 'Set-Cookie' => $CASCookie );
    $r->headers_out->add( 'Set-Cookie' => $LemonCookie );
     $html =~ s/%user%//g;