Subversion Repositories DevTools

Rev

Rev 5050 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5050 Rev 5052
Line 67... Line 67...
67 
    getSdkNames
 67 
    getSdkNames
68 
 
 68 
 
69 
ElseIf (parOpr = "getSdkVersions") Then
 69 
ElseIf (parOpr = "getSdkVersions") Then
70 
    getSdkVersions
 70 
    getSdkVersions
71 
 
 71 
 
- 
 
 72 
ElseIf (parOpr = "getSdkVersionDetails") Then
- 
 
 73 
    getSdkVersionDetails
- 
 
 74 
 
72 
ElseIf (parOpr = "getProjectList") Then
 75 
ElseIf (parOpr = "getProjectList") Then
73 
    getProjectList
 76 
    getProjectList
74 
 
 77 
 
75 
ElseIf (parOpr = "getReleaseList") Then
 78 
ElseIf (parOpr = "getReleaseList") Then
76 
    getReleaseList
 79 
    getReleaseList
77 
 
 80 
 
78 
ElseIf (parOpr = "addNewSdkVersion") Then
 81 
ElseIf (parOpr = "addNewSdkVersion") Then
79 
    addNewSdkVersion
 82 
    addNewSdkVersion
80 
 
 83 
 
- 
 
 84 
ElseIf (parOpr = "setSdkState") Then
- 
 
 85 
    setSdkState
- 
 
 86 
 
81 
ElseIf (parOpr = "setSdkContentState") Then
 87 
ElseIf (parOpr = "setSdkContentState") Then
82 
    setSdkContentState
 88 
    setSdkContentState
83 
 
 89 
 
84 
Else
 90 
Else
85 
    oJSON.data("error") = 1
 91 
    oJSON.data("error") = 1
Line 104... Line 110...
104 
    oJSON.data("errnum") = Err.number
 110 
    oJSON.data("errnum") = Err.number
105 
    oJSON.data("errtxt") = Err.description
 111 
    oJSON.data("errtxt") = Err.description
106 
    oJSON.data("errsrc") = Err.source
 112 
    oJSON.data("errsrc") = Err.source
107 
    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description
 113 
    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description
108 
End If
 114 
End If
109 
 
 115 
On error goto 0
110 
'Write single value
 116 
'Write single value
111 
oJSON.data("result") = result
 117 
oJSON.data("result") = result
112 
 
 118 
 
113 
'function Sleep(seconds)
 119 
'function Sleep(seconds)
114 
'    dim oshell, cmd
 120 
'    dim oshell, cmd
Line 339... Line 345...
339 
 
 345 
 
340 
    OraDatabase.Parameters.Remove "SDK_ID"
 346 
    OraDatabase.Parameters.Remove "SDK_ID"
341 
End Sub
 347 
End Sub
342 
 
 348 
 
343 
'-------------------------------------------------
 349 
'-------------------------------------------------
- 
 
 350 
' Function:    getSdkVersionDetails
- 
 
 351 
' Description: Get Details for a specific SDK Version
- 
 
 352 
'              Hash of:
- 
 
 353 
'               Lots of stuff
- 
 
 354 
'
- 
 
 355 
' Options:      sdktag_id  - SDK Version to get
- 
 
 356 
 
- 
 
 357 
Sub getSdkVersionDetails
- 
 
 358 
    '   Get Data for an existing entry
- 
 
 359 
    '   Setup for the database access
- 
 
 360 
    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
- 
 
 361 
    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 362 
    SqlQry = "SELECT st.SDKTAG_ID, " &_
- 
 
 363 
             "  SDKTAG_NAME, " &_
- 
 
 364 
             "  DESCRIPTION, " &_
- 
 
 365 
             "  st.SDK_ID, " &_
- 
 
 366 
             "  TO_CHAR(CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP , " &_
- 
 
 367 
             "  CREATOR_ID, " &_
- 
 
 368 
             "  TO_CHAR(STATE_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as STATE_STAMP , " &_
- 
 
 369 
             "  STATE_ID, " &_
- 
 
 370 
             "  SDK_STATE, " &_
- 
 
 371 
             "  SDK_NAME, " &_
- 
 
 372 
             "  SDK_COMMENT " &_
- 
 
 373 
             "FROM SDK_TAGS st, " &_
- 
 
 374 
             "  SDK_NAMES sn " &_
- 
 
 375 
             "WHERE st.SDKTAG_ID = :SDKTAG_ID " &_
- 
 
 376 
             "AND st.SDK_ID = sn.SDK_ID "
- 
 
 377 
 
- 
 
 378 
    ' Perform Query
- 
 
 379 
    objEH.ErrorRedirect = FALSE
- 
 
 380 
    objEH.TryORA ( OraSession )
- 
 
 381 
    On Error Resume Next
- 
 
 382 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 383 
    objEH.CatchORA ( OraSession )
- 
 
 384 
on error goto 0
- 
 
 385 
    ' Process Results
- 
 
 386 
    Dim resultSet : Set resultSet = oJSON.Collection()
- 
 
 387 
    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
- 
 
 388 
        Dim ii
- 
 
 389 
        for ii = 0 to rsQry.Fields.Count - 1
- 
 
 390 
            resultSet (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 391 
        Next
- 
 
 392 
        Set oJSON.data("aaData") = resultSet
- 
 
 393 
        result = 0
- 
 
 394 
    End If
- 
 
 395 
 
- 
 
 396 
    result = 0
- 
 
 397 
    rsQry.Close
- 
 
 398 
    Set rsQry = Nothing
- 
 
 399 
 
- 
 
 400 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
- 
 
 401 
End Sub
- 
 
 402 
 
- 
 
 403 
'-------------------------------------------------
344 
' Function:    getProjectList
 404 
' Function:    getProjectList
345 
' Description: Get Project information
 405 
' Description: Get Project information
346 
'              Array of:
 406 
'              Array of:
347 
'               proj_id
 407 
'               proj_id
348 
'               proj_name
 408 
'               proj_name
Line 513... Line 573...
513 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
573 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
514 
 
 574 
 
515 
End Sub
 575 
End Sub
516 
 
 576 
 
517 
'-------------------------------------------------
 577 
'-------------------------------------------------
- 
 
 578 
' Function:     setSdkState
- 
 
 579 
' Description:  Update the state of the SDK Release
- 
 
 580 
'               Request Parameters
- 
 
 581 
'                   sdktag_id
- 
 
 582 
'                   sdk_state
- 
 
 583 
Sub setSdkState
- 
 
 584 
    Dim userId : userId = objAccessControl.UserId()
- 
 
 585 
    '
- 
 
 586 
    '
- 
 
 587 
    OraDatabase.Parameters.Add "SDKTAG_ID", QStrPar("sdktagId"),  ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 588 
    OraDatabase.Parameters.Add "SDK_STATE", QStrPar("sdk_state"), ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 589 
    OraDatabase.Parameters.Add "STATE_ID",  userId,               ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 590 
 
- 
 
 591 
        '   Update an existing entry
- 
 
 592 
        SqlQry = "UPDATE SDK_TAGS SET SDK_STATE = :SDK_STATE, STATE_ID = :STATE_ID, STATE_STAMP = SYSTIMESTAMP WHERE SDKTAG_ID = :SDKTAG_ID"
- 
 
 593 
        objEH.ErrorRedirect = FALSE
- 
 
 594 
        objEH.TryORA ( OraSession )
- 
 
 595 
        On Error Resume Next
- 
 
 596 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 597 
        objEH.CatchORA ( OraSession )
- 
 
 598 
        On Error GoTo 0
- 
 
 599 
        result = 0
- 
 
 600 
 
- 
 
 601 
    OraDatabase.Parameters.Remove "STATE_ID"
- 
 
 602 
    OraDatabase.Parameters.Remove "SDK_STATE"
- 
 
 603 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
- 
 
 604 
 
- 
 
 605 
End Sub
- 
 
 606 
 
- 
 
 607 
'-------------------------------------------------
518 
' Function:     setSdkContentState
 608 
' Function:     setSdkContentState
519 
' Description:  Update the state of a SDK conent item
 609 
' Description:  Update the state of a SDK conent item
520 
'               Request Parameters
 610 
'               Request Parameters
521 
'                   sdktag_id
 611 
'                   sdktag_id
522 
'                   pv_id
 612 
'                   pv_id