Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'   sdk_opr_json.asp

'   Ajax support for SDK operations

'       addNew          - New SDK Name

'       updateEntry     - Update Sdk Name

'       getData         - Get single Sdk Name Entry

'=====================================================

%>

<%

Option explicit

' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)

Response.ContentType = "text/html"

Response.AddHeader "Content-Type", "text/html;charset=UTF-8"

Response.CodePage = 65001

Response.CharSet = "UTF-8"

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="_access_control_general.asp"-->

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT> 

<%

'------------ Variable Definition -------------

Dim parOpr

Dim result

Dim SqlQry

Dim rsQry

parOpr = QStrPar("action")

result = -1

' Init the output JSON class

'   Operations can add data

'   Default data will be added at the end

Dim oJSON

Set oJSON = New aspJSON

Dim newitem

Function canModify

    canModify = objAccessControl.IsActive("CreateNewProject")

    If NOT canModify Then

        result = -4

        oJSON.data("error") = 1

        oJSON.data("emsgSummary") = "Permission denied"

        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")

    End If

End Function

'   

'   Perform the body of the operations within a Sub and use

'   On Error Resule Next to catch errors that accur in the code

'

On Error Resume Next

If (parOpr = "addNew") Then

    If canModify() Then addNewEntry

ElseIf (parOpr = "getData") Then

     getData

ElseIf (parOpr = "updateEntry") Then

    If canModify() Then updateEntry

ElseIf (parOpr = "getSdkNames") Then

    getSdkNames

ElseIf (parOpr = "getProjectList") Then

    getProjectList

ElseIf (parOpr = "getReleaseList") Then

    getReleaseList

ElseIf (parOpr = "addNewSdkVersion") Then

    addNewSdkVersion

Else

    oJSON.data("error") = 1

    oJSON.data("emsgSummary") = "Unknown JSON Operation"

    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr

End If

' SQL error detection and reporting

If objEH.LastOraFailed Then

    oJSON.data("error") = 1

    result = -1

    oJSON.data("emsgSummary") = objEH.MessageSummary

    oJSON.data("emsgDetails") = objEH.MessageDetails

    oJSON.data("SqlQry") = SqlQry

'

'   Detect program errors

ElseIf Err.number <> 0 Then

    result = -3

    oJSON.data("error") = 2

    oJSON.data("errnum") = Err.number

    oJSON.data("errtxt") = Err.description

    oJSON.data("errsrc") = Err.source

    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description

End If

'Write single value

oJSON.data("result") = result

'function Sleep(seconds)

'    dim oshell, cmd

'    set oShell = CreateObject("Wscript.Shell")

'    cmd = "cmd.exe /c timeout " & seconds & " /nobreak"

'    oShell.Run cmd,0,1

'End function

'

'Sleep(2)

' DEBUG: A Hash of the user provided requests

<!--oJSON.data("QueryString") = Request.QueryString       -->

<!--                                                      -->

<!--Dim requestSet : Set requestSet = oJSON.Collection()  -->

<!--Set oJSON.data("Request") = requestSet                -->

<!--Dim variableName                                      -->

<!--for each variableName in Request.QueryString          -->

<!--    requestSet.add variableName, Request(variableName)-->

<!--next                                                  -->

<!--for each variableName in Request.Form                 -->

<!--    requestSet.add variableName, Request(variableName)-->

<!--next                                                  -->

'Return the object

Response.Write oJSON.JSONoutput()

%>

<%

'-------------------------------------------------

' Function:    addNewEntry

' Description: Create a new SDK Name entry

Sub addNewEntry

    '   Add a new entry

    '

    '   Setup for the database access

    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2

     '  Test existance - simply to provide a Nice Error message

    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    If rsQry.RecordCount <> 0 Then

        result = -3

        oJSON.data("error") = -1

        oJSON.data("emsgSummary") = "SDK Name already exists"

        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")

    Else

        SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT) VALUES (:SDKNAME, :SDKCOMMENT)"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        result = 0

    End If

    OraDatabase.Parameters.Remove "SDKCOMMENT"

    OraDatabase.Parameters.Remove "SDKNAME"

End Sub

'-------------------------------------------------

' Function:    getData

' Description: get data for a specified SDK Name

Sub getData

    '   Get Data for an existing entry

    '   Setup for the database access

    OraDatabase.Parameters.Add "SDKID",    QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT * from SDK_NAMES where SDK_ID=:SDKID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    OraDatabase.Parameters.Remove "SDKID"

    Dim resultSet : Set resultSet = oJSON.Collection()

    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

        Dim ii

        for ii = 0 to rsQry.Fields.Count - 1

            resultSet (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

        Set oJSON.data("aaData") = resultSet

        result = 0

    End If

    rsQry.Close

    Set rsQry = Nothing

End Sub

'-------------------------------------------------

' Function:    updateEntry

' Description: Update an exxisting SDK Names entry

Sub updateEntry

    '

    '

    OraDatabase.Parameters.Add "SDKID",      QStrPar("sdkId"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "SDKNAME",    QStrPar("sdkName"), ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "SDKCOMMENT", QStrPar("sdkComment"), ORAPARM_INPUT, ORATYPE_VARCHAR2

    '  Test existance - simply to provide a Nice Error message

    SqlQry = "SELECT * FROM SDK_NAMES WHERE SDK_NAME = :SDKNAME AND  SDK_ID != :SDKID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    If rsQry.RecordCount <> 0 Then

        result = -3

        oJSON.data("error") = -1

        oJSON.data("emsgSummary") = "SDK Name already exists"

        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")

    Else

        '   Update an existing entry

        SqlQry = "UPDATE SDK_NAMES SET SDK_NAME = :SDKNAME, SDK_COMMENT = :SDKCOMMENT WHERE SDK_ID = :SDKID"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        result = 0

    End If

    OraDatabase.Parameters.Remove "SDKCOMMENT"

    OraDatabase.Parameters.Remove "SDKNAME"

    OraDatabase.Parameters.Remove "SDKID"

End Sub

'-------------------------------------------------

' Function:    getSdkNames

' Description: Get Project information

'              Array of:

'               SDK_ID

'               SDK_NAME

Sub getSdkNames

    '   Get Data for an existing entry

    '   Setup for the database access

    SqlQry = "SELECT SDK_ID,SDK_NAME from SDK_NAMES order by SDK_NAME ASC"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    Set oJSON.data("aaData") = oJSON.Collection()

   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))

         Dim ii

        for ii = 0 to rsQry.Fields.Count - 1

            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

       rsQry.MoveNext

    Wend

    result = 0

    rsQry.Close

    Set rsQry = Nothing

End Sub

'-------------------------------------------------

' Function:    getProjectList

' Description: Get Project information

'              Array of:

'               proj_id

'               proj_name

Sub getProjectList

    '   Get Data for an existing entry

    '   Setup for the database access

    SqlQry = "SELECT PROJ_ID,PROJ_NAME from PROJECTS order by PROJ_NAME ASC"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    Set oJSON.data("aaData") = oJSON.Collection()

   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))

         Dim ii

        for ii = 0 to rsQry.Fields.Count - 1

            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

       rsQry.MoveNext

    Wend

    result = 0

    rsQry.Close

    Set rsQry = Nothing

End Sub

'-------------------------------------------------

' Function:    getReleaseList

' Description: Get Release information for a project

'              Array of:

'               rtag_id

'               rtag_name

'               official

'              Also

'               proj_id

'

' Options:      proj_id - Get Releases for given project

'               rtag_id - Get Releases for project of this release

'               mode    - true: All Releases, otherwise only non-closed releases

Sub getReleaseList

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim rtag_id : rtag_id = QStrPar("rtag_id")

    Dim proj_id : proj_id = QStrPar("proj_id")

    OraDatabase.Parameters.Add "PROJ_ID",      proj_id, ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "RTAG_ID",      rtag_id, ORAPARM_INPUT, ORATYPE_NUMBER

    '

    '   Limit Selection to non-closed releases

    '

    Dim limit

    If NOT QStrPar("mode") Then

        limit = " AND OFFICIAL NOT IN ('Y', 'A')"

    End If

    Dim where

    If rtag_id <> "" Then

        where = " WHERE proj_id = (SELECT PROJ_ID from RELEASE_TAGS where RTAG_ID=:RTAG_ID)" 

    Else

        where = " WHERE PROJ_ID=:PROJ_ID"

    End If

    SqlQry = "SELECT PROJ_ID,RTAG_ID,RTAG_NAME,OFFICIAL  from RELEASE_TAGS" &_

             where & limit &_

             " ORDER BY RTAG_NAME ASC"

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    ' Process Results

    Set oJSON.data("aaData") = oJSON.Collection()

    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

        Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))

        Dim ii

        for ii = 1 to rsQry.Fields.Count - 1

            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

        proj_id = rsQry.Fields(0) 

       rsQry.MoveNext

    Wend

    oJSON.data("proj_id") = proj_id

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "RTAG_ID"

    OraDatabase.Parameters.Remove "PROJ_ID"

End Sub

'-------------------------------------------------

' Function:     addNewSdkVersion

' Description:  Add a New Sdk Version

Sub addNewSdkVersion

    Dim userId : userId = objAccessControl.UserId()

    '   Add a new entry

    '

    '   Setup for the database access

    '

    OraDatabase.Parameters.Add "SDKTAG_NAME",   QStrPar("sdkName"),     ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "DESCRIPTION",   QStrPar("sdkComment"),  ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "SDK_ID",        QStrPar("sdk_id"),      ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "CREATOR_ID",    userId,                 ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "STATE_ID",      userId,                 ORAPARM_INPUT, ORATYPE_NUMBER

     '  Test existance - simply to provide a Nice Error message

    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_NAME = :SDKTAG_NAME AND SDK_ID = :SDK_ID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    If rsQry.RecordCount <> 0 Then

        result = -3

        oJSON.data("error") = -1

        oJSON.data("emsgSummary") = "SDK Verion Name already exists in this SDK family"

        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")

    Else

        SqlQry = "INSERT INTO SDK_TAGS (SDKTAG_NAME, DESCRIPTION, SDK_ID, RTAG_ID, CREATOR_ID, STATE_ID) VALUES (:SDKTAG_NAME, :DESCRIPTION, :SDK_ID, :RTAG_ID, :CREATOR_ID, :STATE_ID)"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        result = 0

    End If

    OraDatabase.Parameters.Remove "SDKTAG_NAME"

    OraDatabase.Parameters.Remove "DESCRIPTION"

    OraDatabase.Parameters.Remove "SDK_ID"

    OraDatabase.Parameters.Remove "RTAG_ID"    

    OraDatabase.Parameters.Remove "CREATOR_ID" 

    OraDatabase.Parameters.Remove "STATE_ID"   

End Sub

%>