Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

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

'   sdk_opr_json.asp

'   Ajax support for SDK operations

'       addSdkName

'       getSdkNameData

'       updateSdkName

'       getSdkNames

'       getBaseViews

'       getSdkDetails

'       getSdkVersions

'       getSdkVersionDetails

'       updateSdkVersionDetails

'       getProjectList

'       getReleaseList

'       addNewSdkVersion

'       deleteSdkVersion

'       setSdkState

'       setSdkContentState

'

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

%>

<%

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 = canActionControl("AdminSdk")

    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 = "addSdkName") Then

    If canModify() Then addSdkName

ElseIf (parOpr = "getSdkNameData") Then

     getSdkNameData

ElseIf (parOpr = "updateSdkName") Then

    If canModify() Then updateSdkName

ElseIf (parOpr = "getSdkNames") Then

    getSdkNames

ElseIf (parOpr = "getBaseViews") Then

    getBaseViews

ElseIf (parOpr = "getSdkDetails") Then

    getSdkDetails

ElseIf (parOpr = "getSdkVersions") Then

    getSdkVersions

ElseIf (parOpr = "getSdkVersionDetails") Then

    getSdkVersionDetails

ElseIf (parOpr = "getSdkUsage") Then

    getSdkUsage

ElseIf (parOpr = "updateSdkVersionDetails") Then

    updateSdkVersionDetails

ElseIf (parOpr = "getProjectList") Then

    getProjectList

ElseIf (parOpr = "getReleaseList") Then

    getReleaseList

ElseIf (parOpr = "addNewSdkVersion") Then

    addNewSdkVersion

ElseIf (parOpr = "deleteSdkVersion") Then

    deleteSdkVersion

ElseIf (parOpr = "setSdkState") Then

    setSdkState

ElseIf (parOpr = "setSdkContentState") Then

    setSdkContentState

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

On error goto 0

'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:    addSdkName

' Description: Create a new SDK Name entry

Sub addSdkName

    Dim baseView : baseView = "SDK_" & QStrPar("sdkName") 

    Dim SEQ_view_id

    '   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

    OraDatabase.Parameters.Add "SDKBASEVIEW", baseView,             ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "SDKVIEWID",  0,                     ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "SDKPROJECT", QStrPar("sdkProject"), ORAPARM_INPUT, ORATYPE_NUMBER

     '  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

        ' Test for existance of Base View Name

        '

        SqlQry = "SELECT * FROM VIEWS WHERE UPPER(VIEW_NAME) = UPPER(:SDKBASEVIEW)"

        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

            ' Use existing base view

            SEQ_view_id = rsQry("VIEW_ID")

            OraDatabase.Parameters("SDKVIEWID").Value = SEQ_view_id 

        Else

            ' Create a new Base View for this SDK

            ' Return new Base View

            SEQ_view_id = Get_From_DUAL("SEQ_VIEW_ID.nextval")

            OraDatabase.Parameters("SDKVIEWID").Value = SEQ_view_id 

            On Error Resume Next

            OraDatabase.ExecuteSQL _

              "INSERT INTO views (view_id, view_name, owner_id, base_view, public_read)"&_

              " VALUES ("& SEQ_view_id &", '"& baseView  &"', 0,'S','Y')"

        End If

        If Err.Number = 0 Then

            SqlQry = "INSERT INTO SDK_NAMES (SDK_NAME, SDK_COMMENT, VIEW_ID, PROJ_ID) VALUES (:SDKNAME, :SDKCOMMENT, :SDKVIEWID, :SDKPROJECT )"

            On Error Resume Next

            OraDatabase.ExecuteSQL SqlQry

            If Err.Number = 0 Then

                result = 0

            End If

        End If

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

    End If

    OraDatabase.Parameters.Remove "SDKPROJECT"

    OraDatabase.Parameters.Remove "SDKVIEWID"

    OraDatabase.Parameters.Remove "SDKBASEVIEW"

    OraDatabase.Parameters.Remove "SDKCOMMENT"

    OraDatabase.Parameters.Remove "SDKNAME"

End Sub

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

' Function:    getSdkNameData

' Description: get data for a specified SDK Name

Sub getSdkNameData

    '   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:    updateSdkName

' Description: Update an existing SDK Names entry

Sub updateSdkName

    '

    '

    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

    OraDatabase.Parameters.Add "SDKBASEVIEW", QStrPar("sdkBaseView"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "SDKPROJECT", QStrPar("sdkProject"), ORAPARM_INPUT, ORATYPE_NUMBER

    '  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, VIEW_ID = :SDKBASEVIEW, PROJ_ID = :SDKPROJECT 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 "SDKPROJECT"

    OraDatabase.Parameters.Remove "SDKBASEVIEW"

    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 UPPER(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:    getBaseViews

' Description: Get Base Views

'              Array of:

'               VIEW_ID

'               VIEW_NAME

Sub getBaseViews

    '   Get Data for an existing entry

    '   Setup for the database access

    SqlQry = "SELECT VIEW_ID, VIEW_NAME from VIEWS WHERE base_view = 'S' order by UPPER(VIEW_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:    getSdkDetails

' Description: Get Details for a specific SDK Family

'              Hash of:

'               Lots of stuff

'

' Options:      sdk_id  - SDK to get

Sub getSdkDetails

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdk_id : sdk_id = QStrPar("sdk_id")

    OraDatabase.Parameters.Add "SDK_ID",      sdk_id, ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT * " &_

             "FROM SDK_NAMES " &_

             "WHERE SDK_ID = :SDK_ID"

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

on error goto 0

    ' Process Results

    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

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDK_ID"

End Sub

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

' Function:    getSdkVersions

' Description: Get SDK Versions information for a given family

'              Array of:

'               sdktag_id

'               sdktag_name

'               sdktag_state

'

' Options:      sdk_id  - Get versions for given sdk family

'               active  - true: Only active Releases, else use mode

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

Sub getSdkVersions

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdk_id : sdk_id = QStrPar("sdk_id")

    OraDatabase.Parameters.Add "SDK_ID",      sdk_id, ORAPARM_INPUT, ORATYPE_NUMBER

    '

    '   Limit Selection to non-closed releases

    '

    Dim limit

    If NOT QStrPar("mode") Then

        limit = " AND SDK_STATE NOT IN ('D')"

    End If

    If QStrPar("active") Then

        limit = " AND SDK_STATE NOT IN ('D','U')"

    End If

    SqlQry = "SELECT SDKTAG_ID,SDKTAG_NAME,SDK_STATE as SDKTAG_STATE from SDK_TAGS" &_

             " WHERE SDK_ID = :SDK_ID" & limit &_

             " ORDER BY UPPER(SDKTAG_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 = 0 to rsQry.Fields.Count - 1

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

        Next

       rsQry.MoveNext

    Wend

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDK_ID"

End Sub

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

' Function:    getSdkVersionDetails

' Description: Get Details for a specific SDK Version

'              Hash of:

'               Lots of stuff

'

' Options:      sdktag_id  - SDK Version to get

Sub getSdkVersionDetails

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")

    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT st.SDKTAG_ID, " &_

             "  SDKTAG_NAME, " &_

             "  DESCRIPTION, " &_

             "  st.SDK_ID, " &_

             "  TO_CHAR(CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP , " &_

             "  CREATOR_ID, " &_

             "  TO_CHAR(STATE_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as STATE_STAMP , " &_

             "  STATE_ID, " &_

             "  SDK_STATE, " &_

             "  SDK_NAME, " &_

             "  SDK_COMMENT " &_

             "FROM SDK_TAGS st, " &_

             "  SDK_NAMES sn " &_

             "WHERE st.SDKTAG_ID = :SDKTAG_ID " &_

             "AND st.SDK_ID = sn.SDK_ID "

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

on error goto 0

    ' Process Results

    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

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

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

' Function:    updateSdkVersionDetails

' Description: Update specific parts of the SDK Version Meta Data

'

' Options:      sdktag_id       - SDK Version to update

'               sdkTagName     -

'               sdkTagComment  -

Sub updateSdkVersionDetails

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")

    Dim sdkTagName : sdkTagName = QStrPar("sdkTagName")

    Dim sdkTagComment : sdkTagComment = QStrPar("sdkTagComment")

    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "SDKTAG_NAME",      sdkTagName, ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "DESCRIPTION",      sdkTagComment, ORAPARM_INPUT, ORATYPE_VARCHAR2

    '   Update an existing entry

    SqlQry = "UPDATE SDK_TAGS SET SDKTAG_NAME = :SDKTAG_NAME, DESCRIPTION = :DESCRIPTION WHERE SDKTAG_ID = :SDKTAG_ID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    OraDatabase.ExecuteSQL SqlQry

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    result = 0

    OraDatabase.Parameters.Remove "DESCRIPTION"

    OraDatabase.Parameters.Remove "SDKTAG_NAME"

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

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

' Function:    getSdkUsage

' Description: Get SDK Usage information for a given sdktag_id

'                Array of (unless countOnly is not empty):

'                 sdktag_id

'                 sdktag_name

'                 sdktag_state

'                useCount

'

' Options:      sdktag_id  - Get information for given sdktag

'               countOnly       - Just get count (Simple Test)

Sub getSdkUsage

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")

    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT DISTINCT p.proj_id, rc.rtag_id, p.PROJ_NAME, rt.RTAG_NAME" &_

             " FROM release_content rc," &_

             " release_tags rt, PROJECTS p" &_

             " WHERE rc.SDKTAG_ID = :SDKTAG_ID" &_

             " and rc.RTAG_ID = rt.RTAG_ID" &_

             " and p.PROJ_ID = rt.PROJ_ID" &_

             " ORDER BY UPPER(p.PROJ_NAME), UPPER(rt.RTAG_NAME)"

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    ' Process Results

    If QStrPar("countOnly") = "" Then

        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

    End If

    ' Return count too

    oJSON.data("useCount") = rsQry.RecordCount 

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDKTAG_ID"

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

'               Returns the SDKTAG_ID if the created entry

Sub addNewSdkVersion

    Dim userId : userId = objAccessControl.UserId()

    Dim sdkTagId

    '   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

    OraDatabase.Parameters.Add "SDKTAG_ID",     NULL,                   ORAPARM_BOTH, 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 = "BEGIN "&_

                 " 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)"&_

                 " RETURNING SDKTAG_ID INTO :SDKTAG_ID;" &_

                 " END;"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        sdkTagId = OraDatabase.Parameters("SDKTAG_ID").Value

        '

        '   Create the initial SDK_CONTENT

        '

        If Err.Number = 0 Then

            SqlQry = "INSERT INTO SDK_CONTENT ( SDKTAG_ID, PV_ID) SELECT :SDKTAG_ID, pv_id FROM RELEASE_CONTENT WHERE RTAG_ID = :RTAG_ID"

            OraDatabase.ExecuteSQL SqlQry

        End If

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        oJSON.data("SDKTAG_ID") = sdkTagId

        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"   

    OraDatabase.Parameters.Remove "SDKTAG_ID"   

End Sub

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

' Function:     deleteSdkVersion

' Description:  Delete the specified Sdk Version

'               Will delete SDK_NAME entry if this is the last one

'                   sdktag_id   - Version to delete

'

'   SHOULD have checks to ensure that its not in use

Sub deleteSdkVersion

    Dim sdkTagId : sdkTagId = QStrPar("sdktagId")

    '

    '   Setup for the database access

    '

    OraDatabase.Parameters.Add "SDKTAG_ID", sdkTagId, ORAPARM_INPUT, ORATYPE_NUMBER

     '  Test to see if the version is in use - simply to provide a Nice Error message

    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_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 does not exist"

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

    Else

        ' Determine if the SDK is in use

        '

        SqlQry = "SELECT distinct rtag_id FROM RELEASE_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"

        Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

        If rsQry.RecordCount  <> 0 Then

            oJSON.data("useCount") = rsQry.RecordCount

            result = 0

        Else

            ' Determine the number of times this SDK_TAG is in use

            ' Determine the sdk_tag

            SqlQry = "SELECT st.SDK_ID, st.SDKTAG_ID FROM SDK_TAGS st WHERE SDK_ID IN ( SELECT SDK_ID FROM SDK_TAGS WHERE SDKTAG_ID=:SDKTAG_ID)"

            Dim sdkId, sdkTagCount

            objEH.ErrorRedirect = FALSE

            objEH.TryORA ( OraSession )

            On Error Resume Next

            Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

            If Err.Number = 0 Then

                sdkTagCount = rsQry.RecordCount

                oJSON.data("sdkTagCount") = sdkTagCount

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

                    sdkId = rsQry.Fields(0)

                    oJSON.data("sdkId") = sdkId

                End If

                ' Delete content

                SqlQry = "DELETE FROM SDK_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"

                objEH.ErrorRedirect = FALSE

                objEH.TryORA ( OraSession )

                On Error Resume Next

                OraDatabase.ExecuteSQL SqlQry

                ' Delete tag

                If Err.Number = 0 Then

                    SqlQry = "DELETE FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"

                    OraDatabase.ExecuteSQL SqlQry

                End If

                If Err.Number = 0 Then

                    ' Possibly delete the Sdk Name entry

                    If sdkTagCount = 1 Then

                        SqlQry = "DELETE FROM SDK_NAMES WHERE SDK_ID = :SDK_ID"

                        OraDatabase.Parameters.Add "SDK_ID", sdkId, ORAPARM_INPUT, ORATYPE_NUMBER

                        OraDatabase.ExecuteSQL SqlQry

                        OraDatabase.Parameters.Remove "SDK_ID"   

                        oJSON.data("SdkNameRemoved") = sdkId

                    End If

                End If

            End If

            objEH.CatchORA ( OraSession )

            On Error GoTo 0

            result = 0

        End If

    End If

    OraDatabase.Parameters.Remove "SDKTAG_ID"   

End Sub

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

' Function:     setSdkState

' Description:  Update the state of the SDK Release

'               Request Parameters

'                   sdktag_id

'                   sdk_state

Sub setSdkState

    Dim userId : userId = objAccessControl.UserId()

    '

    '

    OraDatabase.Parameters.Add "SDKTAG_ID", QStrPar("sdktagId"),  ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "SDK_STATE", QStrPar("sdk_state"), ORAPARM_INPUT, ORATYPE_CHAR

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

        '   Update an existing entry

        SqlQry = "UPDATE SDK_TAGS SET SDK_STATE = :SDK_STATE, STATE_ID = :STATE_ID, STATE_STAMP = SYSTIMESTAMP WHERE SDKTAG_ID = :SDKTAG_ID"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        result = 0

    OraDatabase.Parameters.Remove "STATE_ID"

    OraDatabase.Parameters.Remove "SDK_STATE"

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

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

' Function:     setSdkContentState

' Description:  Update the state of a SDK conent item

'               Request Parameters

'                   sdktag_id

'                   pv_id

'                   sdkpkg_state

Sub setSdkContentState

    '

    '

    OraDatabase.Parameters.Add "SDKTAG_ID",     QStrPar("sdktagId"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "SDKPKG_STATE",  QStrPar("sdkpkg_state"), ORAPARM_INPUT, ORATYPE_CHAR

        '   Update an existing entry

        SqlQry = "UPDATE SDK_CONTENT SET SDKPKG_STATE = :SDKPKG_STATE WHERE SDKTAG_ID = :SDKTAG_ID AND PV_ID = :PV_ID"

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        OraDatabase.ExecuteSQL SqlQry

        objEH.CatchORA ( OraSession )

        On Error GoTo 0

        result = 0

    OraDatabase.Parameters.Remove "SDKPKG_STATE"

    OraDatabase.Parameters.Remove "PV_ID"

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

%>