<% 

    Dim nof_rootDir, nof_sitePath, nof_scriptDir, nof_debug, nof_componentName, _
            nof_componentId, nof_scriptInterfaceFile, nof_langFile, nof_locale
    
    nof_rootDir = Request.Form("nof_rootDir")
    nof_sitePath = Request.Form("nof_sitePath")
    nof_scriptDir = Request.Form("nof_scriptDir")
    nof_debug = Request.Form("nof_debug")
    nof_componentName = Request.Form("nof_componentName")
    nof_componentId = Request.Form("nof_componentId")
    nof_scriptInterfaceFile = Request.Form("nof_scriptInterfaceFile")
    nof_langFile = Request.Form("nof_langFile")
    set nof_locale = ssLocaleToDictionary(nof_sitePath & nof_scriptDir, nof_langFile)
   
    Call ssLoginMain()
    
    Sub ssLoginMain()
        
        On Error Resume Next 
        
 
        Application("LoginField") = "UserName"
        Application("PassField") = "Password"
        Application("MailField") = "Email"
        Application("AdminField") = "AdminStatus"
        Application("ValidField") = "ValidationFlag"

        Dim suiteTags
        Set suiteTags = Server.CreateObject("scripting.dictionary")
        suiteTags.Add "dbpath", "dbPath"
        suiteTags.Add "uploaddir", "dbFileUploadDir"
        suiteTags.Add "sendemail", "sendEmail"
        suiteTags.Add "smtpip", "emailServer"
        suiteTags.Add "smtpport", "emailServerPort"
        suiteTags.Add "emailto", "emailToAddress"
        suiteTags.Add "emailfrom", "emailFromAddress"
        suiteTags.Add "debug", "publishInDebugMode"
        suiteTags.Add "dbcolumns", "dbColumns"
        
        set compGeneralTags = Server.CreateObject("scripting.dictionary")
        compGeneralTags.Add "currentpage", "currentPage"
        compGeneralTags.Add "nextpage", "nextPage"
        compGeneralTags.Add "errormark", "errorMark"
        compGeneralTags.Add "accessdeniedpage", "accessDeniedPage"
        
        Err.Clear() 
        Dim XMLDoc
        Set XMLDoc = ssOpenXMLFile(nof_sitePath & nof_scriptDir & "\" & nof_scriptInterfaceFile)
        
        If Err.number <> 0 then
            Call ssRaiseFatalError(err, "div", nof_debug)
            Response.End()
        end if
 
        
        Dim ComponentNode
        Set ComponentNode = ssGetNode(XMLDoc,,"Component", Array("name","id"), Array("login", nof_componentId), -1)
 
         
        If ComponentNode Is Nothing Then
            Err.Raise 400, "ss_login_post.main.20", ssGetLocaleString("Error.400", Null)
            Call ssRaiseFatalError(err, "div", nof_debug)
            Response.End()       
        End If
     
        dbPath = ssGetProperty(ComponentNode, suiteTags.Item("dbpath"))
        if dbPath = "" then
            Err.Raise 526, "ss_signuppost.main.40", ssGetLocaleString(Array("526"))
            Call ssRaiseFatalError(err, "div", gDebug)
            Response.End
        end if
        
        dbFields = ssGetDBFields(ComponentNode, suiteTags.Item("dbcolumns"))
        if dbFields = "" then
            set signupNode = ssGetByDBpath(XMLDoc, "signup", suiteTags.Item("dbpath"), dbPath)
            dbFields = ssGetDBFields(signupNode, suiteTags.Item("dbcolumns"))
            set signupNode = nothing
        end if
        
        Dim absPath, relPath
        if not inStr(1, dbPath, "\", 1) > 0 then
            set relPath = nothing
            set relPath = ssReFind(dbPath, "\.\./")
                
             absPath = Server.MapPath(".")
            if not relPath is nothing then
                if relPath.count > 0 then
                    for i=1 to relPath.count
                        absPath = Left(absPath, inStrRev(absPath,"\") - 1)
                        dbPath = Replace(dbPath, "../", "", 1, 1)
                    next
                else
                    if inStr(1, dbPath, "./") > 0 then
                        dbPath = Replace(dbPath, "./", "", 1, 1)
                    end if
                end if
                set relPath = nothing
            end if
                    
            dbPath = absPath & "\" & Replace(dbPath, "/", "\")
        end if

        
        fields = split(request.form,"&")
    %>
    <html>
    <head></head>
    <body>
    <form action="<%=Request.ServerVariables("HTTP_REFERER")%>" method="post" target='_self'>
    <%
        
        errLocal=""
        for i=0 to UBound(fields) - 1
            fieldName = split(fields(i),"=")(0)
            fieldValue = EncodeValue(request.form(fieldName))
            call ssBuildHiddenField(fieldName, fieldValue)
            
            errFlag = CheckFields(ComponentNode, fieldName, fieldValue)
            if LCase(errFlag) <> "false" then
                errLocal = errLocal & "<li>" & errFlag & "</li>"
                call ssBuildHiddenField(nof_componentId & "_" & fieldName & "ErrImg", ssGetProperty(ComponentNode, compGeneralTags.Item("errormark")) )
            end if
        next
        
        If Len(errLocal) = 0 then
            if ssFileExists(dbPath) then
                'check if the fields are the same  
                tableHead = ssGetLine(dbPath)

                if LCase(dbFields) <> LCase(tableHead) then
                    'create the database
                    ssCreateDB dbPath, dbFields
                    if (Err.Number <> 0) Then
                        Call ssRaiseFatalError(err, null, nof_debug)
                        Response.End
                    end if
                    tableHead = ssGetLine(dbPath)
                end if
            else
                'create the database
                ssCreateDB dbPath, dbFields
                if (Err.Number <> 0) Then
                    Call ssRaiseFatalError(err, null, nof_debug)
                    Response.End
                end if
                tableHead = ssGetLine(dbPath)
            end if

            set admin = ssGetByDBpath( XMLDoc, "admin", suiteTags.Item("dbpath"), ssGetProperty(ComponentNode, suiteTags.Item("dbpath")) )
            
            if not admin is nothing then
                set field = GetXMLElementByName(admin, "adminuser")
                if not field is nothing then
                    admName = ssGetProperty(field, "username")
                    admPass = ssGetProperty(field, "password")
                    if LCase(admName) = LCase(request.form(LCase(Application("LoginField")))) then
                        if admPass = request.form(LCase(Application("PassField"))) then

                            usrReqPage = Session("ssUserReqPage")

                            session("ssMemberID") = admName
                            session("ssAdminStat") = "true"
                            Session("ssUserReqPage") = ""

                            if Len(usrReqPage) > 0 then
                                response.write "<script>" & vbcrlf
                                response.write "top.document.location.href = """ & _
                                    usrReqPage & """" & vbcrlf
                                response.write "</script>" & vbcrlf
                            else
                                response.write "<script>" & vbcrlf
                                response.write "top.document.location.href = ""../" & _
                                GetNextCurrentPage(ssGetProperty(ComponentNode, compGeneralTags.Item("nextpage")) ) & """" & vbcrlf
                                response.write "</script>" & vbcrlf
                            end if
                        else
                            errLocal = ""
                            set errEvent = getErrorEvent(ComponentNode, "password", "invalidpassword")
                            propValue = ""
                            if not errEvent is nothing then 
                                propValue = ssGetProperty(errEvent, "message")
                            end if
                            errLocal = "<ul><li>" & propValue & "</li></ul>"

                            call ssBuildHiddenField(nof_componentId & "_" & fieldName & "ErrImg", ssGetProperty(ComponentNode, compGeneralTags.Item("errormark")) )
                        end if
                    end if
                end if
            else
                Err.Clear
            end if
            
            if not Len(errLocal) > 0 then
                lgStat = Login(Trim(request.form(LCase(Application("LoginField")))),_
                    Trim(request.form(LCase(Application("PassField")))), dbpath)
                if ( err.number <> 0 ) then
                    Call ssRaiseFatalError(err, null, nof_debug)
                    exit sub
                end if
                
                if lgStat = "ok" then
                    usrReqPage = Session("ssUserReqPage")

                    Session("ssUserReqPage") = ""
                    
                    if CBool(Session("ssAdminStat")) then
                        if Len(usrReqPage) > 0 then
                            response.write "<script>" & vbcrlf
                            response.write "top.document.location.href = """ & _
                            usrReqPage & """" & vbcrlf
                            response.write "</script>" & vbcrlf
                        else
                            response.write "<script>" & vbcrlf
                            response.write "top.document.location.href = ""../" & _
                            GetNextCurrentPage(ssGetProperty( ComponentNode, compGeneralTags.Item("nextpage") )) & """" & vbcrlf
                            response.write "</script>" & vbcrlf
                        end if
                    else
                        if Len(usrReqPage) > 0 AND Session("ssReqPageType") <> "a" then
                            response.write "<script>" & vbcrlf
                            response.write "top.document.location.href = """ & _
                            usrReqPage & """" & vbcrlf
                            response.write "</script>" & vbcrlf
                        else
                            response.write "<script>" & vbcrlf
                            response.write "top.document.location.href = ""../" & _
                            GetNextCurrentPage(ssGetProperty(ComponentNode, compGeneralTags.Item("nextpage"))) & """" & vbcrlf
                            response.write "</script>" & vbcrlf
                        end if
                    end if
                elseif lgStat = "valid" then
                    set errEvent = getErrorEvent(ComponentNode, "username", "accountdisabled")
                    propValue = ""
                    if not errEvent is nothing then 
                        propValue = ssGetProperty(errEvent, "message")
                    end if
                    errLocal = "<li>" & propValue & "</li>"
                    
                    call ssBuildHiddenField(nof_componentId & "_" & "usernameErrImg", ssGetProperty(ComponentNode, compGeneralTags.Item("errormark")))
                elseif lgStat = "user" then
                    set errEvent = getErrorEvent(ComponentNode, "username", "invalidusername")
                    propValue = ""
                    if not errEvent is nothing then 
                        propValue = ssGetProperty(errEvent, "message")
                    end if
                    errLocal = "<li>" & propValue & "</li>"
                    
                    call ssBuildHiddenField(nof_componentId & "_" & "usernameErrImg", ssGetProperty(ComponentNode, compGeneralTags.Item("errormark")))
                elseif lgStat = "pass" then
                    set errEvent = getErrorEvent(ComponentNode, "password", "invalidpassword")
                    propValue = ""
                    if not errEvent is nothing then 
                        propValue = ssGetProperty(errEvent, "message")
                    end if
                    errLocal = "<li>" & propValue & "</li>"
                    
                    call ssBuildHiddenField(nof_componentId & "_" & "passwordErrImg", ssGetProperty(ComponentNode, compGeneralTags.Item("errormark")))
                end if
            end if
        end if  
        if Len(errLocal) > 0 then errLocal = "<ul>" & errLocal & "</ul>"

        set ComponentNode = nothing
        set XMLDoc = nothing
        
        call ssBuildHiddenField(nof_componentId & "_" & "Errors", errLocal)
%>
        </form> 
        </body>
        <script type='text/javascript'>
            document.forms[0].submit();
        </script>
        </html>
<%  end sub %>

<%
Function CheckFields(ByVal compNode, ByVal fieldName, ByVal fieldValue)
    Dim errEvent
    
    CheckFields = false
    
    set errEvent = getErrorEvent(CompNode, fieldName, "required")
    propValue = ""
    if not errEvent is nothing then 
        propValue = ssGetProperty(errEvent, "message")
    end if
    
    if Len(propValue) > 0 then
        if not fieldValue <> "" then
            CheckFields = propValue
        end if
    end if
    
end function
%>

<!-- #include file="ss_XMLlib.asi" -->