Subversion Repositories DevTools

<%
'===================================================================
'                                               Access Control Login
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
objAccessControl.objOraSession = OraSession         ' Create database link for orasession
objAccessControl.objOraDatabase = OraDatabase   ' Create database link for oradatabase
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------
' Determine if the website will force users to login
Function isForcedLogon()
    If IsEmpty (Application("ForceLogon")) Then
        isForcedLogon = TRUE
    Else
        isForcedLogon = CBool(Application("ForceLogon"))
   End If
End Function

'-----------------------------------------------------------------------------------------------------------------------------
'   Use the global variables  to control the operation
'   ForceLogon - Set via global.asa via the Application variable ForceLogon
'   PageLogon -  Can be set on per-page base. Default is TRUE. Only used if ForceLogon is false
'
Sub LoginCheck ()
    If isForcedLogon() Then ForcePageLogon = TRUE
    If ForcePageLogon Then
        If NOT objAccessControl.UserLogedIn Then  
            objPMod.PersistInQryString ( aPersistList )         ' Get all persistant parameters
            
            If NOT isPopupWindow Then
                If objPMod.GetParamValue("rfile") = "" Then Call objPMod.StoreParameter ( "rfile", scriptName )
                Call OpenInWindow ( "Login.asp?"& objPMod.ComposeURL() )
            Else
                Call OpenInParentWindow ( "Login.asp?"& objPMod.ComposeURL() )
                Call CloseWindow()
            End If
            
        End If
    End If

End Sub
'-----------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------

'--- Login Check ---
Call LoginCheck ()

'----------------------------------------------
%>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>