Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6123 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 6122
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'                  Update Package Version
 4 
'       Update Package Version
- 
 
 5 
'           _json_updateVersion.asp
5 
'       Designed to be called via AJAX and to return
 6 
'       Designed to be called via AJAX and to return
6 
'       JSON formatted data to dynamic page
 7 
'       JSON formatted data to dynamic page
- 
 
 8 
'   Ajax support for operaions on a package-version:
- 
 
 9 
'
- 
 
 10 
'       updateVer
- 
 
 11 
'       setDeployable
- 
 
 12 
'
7 
'=====================================================
 13 
'=====================================================
8 
%>
 14 
%>
9 
<%
 15 
<%
10 
Option explicit
 16 
Option explicit
11 
' Good idea to set when using redirect
 17 
' Good idea to set when using redirect
Line 18... Line 24...
18 
<!--#include file="common/common_dbedit.asp"-->
 24 
<!--#include file="common/common_dbedit.asp"-->
19 
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT>
25 
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT>
20 
<%
 26 
<%
21 
'------------ Variable Definition -------------
 27 
'------------ Variable Definition -------------
22 
Dim parOpr
 28 
Dim parOpr
23 
Dim parPkgName
 - 
 
24 
Dim result
 29 
Dim result
25 
Dim SqlQry
 30 
Dim SqlQry
26 
Dim rsQry
 31 
Dim rsQry
27 
 
 32 
 
28 
parOpr = QStrPar("Opr")
 33 
parOpr = QStrPar("Opr")
29 
parPkgName = Trim(QStrPar("packageName"))
 - 
 
30 
result = -1
 34 
result = -1
31 
 
 35 
 
32 
' Init the output JSON class
 36 
' Init the output JSON class
33 
'   Operations can add data
 37 
'   Operations can add data
34 
'   Default data will be added at the end
 38 
'   Default data will be added at the end
Line 41... Line 45...
41 
 
 45 
 
42 
    oJSON.data("emsgSummary") = "User no longer logged in"
 46 
    oJSON.data("emsgSummary") = "User no longer logged in"
43 
    oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 47 
    oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
44 
 
 48 
 
45 
ElseIf (parOpr = "updateVer") Then
 49 
ElseIf (parOpr = "updateVer") Then
- 
 
 50 
    updateVersion
- 
 
 51 
 
- 
 
 52 
ElseIf (parOpr = "setDeployable") Then
- 
 
 53 
    setDeployable
- 
 
 54 
 
- 
 
 55 
Else
- 
 
 56 
    oJSON.data("error") = 1
- 
 
 57 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
- 
 
 58 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
- 
 
 59 
End If
- 
 
 60 
 
- 
 
 61 
' SQL error detection and reporting
- 
 
 62 
If objEH.LastOraFailed Then
- 
 
 63 
    oJSON.data("error") = 1
- 
 
 64 
    result = -1
- 
 
 65 
 
- 
 
 66 
    oJSON.data("emsgSummary") = objEH.MessageSummary
- 
 
 67 
    oJSON.data("emsgDetails") = objEH.MessageDetails
- 
 
 68 
    oJSON.data("SqlQry") = SqlQry
- 
 
 69 
'
- 
 
 70 
'   Detect program errors
- 
 
 71 
ElseIf Err.number <> 0 Then
- 
 
 72 
    result = -3
- 
 
 73 
    oJSON.data("error") = 2
- 
 
 74 
    oJSON.data("errnum") = Err.number
- 
 
 75 
    oJSON.data("errtxt") = Err.description
- 
 
 76 
    oJSON.data("errsrc") = Err.source
- 
 
 77 
    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description
- 
 
 78 
End If
- 
 
 79 
On error goto 0
- 
 
 80 
'Write single value
- 
 
 81 
oJSON.data("result") = result
- 
 
 82 
 
- 
 
 83 
'function Sleep(seconds)
- 
 
 84 
'    dim oshell, cmd
- 
 
 85 
'    set oShell = CreateObject("Wscript.Shell")
- 
 
 86 
'    cmd = "cmd.exe /c timeout " & seconds & " /nobreak"
- 
 
 87 
'    oShell.Run cmd,0,1
- 
 
 88 
'End function
- 
 
 89 
'
- 
 
 90 
'Sleep(2)
- 
 
 91 
 
- 
 
 92 
' DEBUG: A Hash of the user provided requests
- 
 
 93 
<!--oJSON.data("QueryString") = Request.QueryString       -->
- 
 
 94 
<!--                                                      -->
- 
 
 95 
<!--Dim requestSet : Set requestSet = oJSON.Collection()  -->
- 
 
 96 
<!--Set oJSON.data("Request") = requestSet                -->
- 
 
 97 
<!--Dim variableName                                      -->
- 
 
 98 
<!--for each variableName in Request.QueryString          -->
- 
 
 99 
<!--    requestSet.add variableName, Request(variableName)-->
- 
 
 100 
<!--next                                                  -->
- 
 
 101 
<!--for each variableName in Request.Form                 -->
- 
 
 102 
<!--    requestSet.add variableName, Request(variableName)-->
- 
 
 103 
<!--next                                                  -->
- 
 
 104 
 
46 
 
 105 
 
- 
 
 106 
'Return the object
- 
 
 107 
Response.Write oJSON.JSONoutput()
- 
 
 108 
Set oJSON = Nothing
- 
 
 109 
Call Destroy_All_Objects
- 
 
 110 
%>
- 
 
 111 
<%
- 
 
 112 
'-------------------------------------------------
- 
 
 113 
' Function:    updateVersion
- 
 
 114 
' Description: Update version information
- 
 
 115 
'
- 
 
 116 
Sub updateVersion
47 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage
 117 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage
48 
    '
118 
    '
49 
    ' Ensure we have all the required parameters
 119 
    ' Ensure we have all the required parameters
50 
    '
 120 
    '
51 
    buildType = QStrPar("buildType")
 121 
    buildType = QStrPar("buildType")
Line 133... Line 203...
133 
        End If
 203 
        End If
134 
 
 204 
 
135 
    rsQry.Close
 205 
    rsQry.Close
136 
    Set rsQry = Nothing
 206 
    Set rsQry = Nothing
137 
    End If
 207 
    End If
138 
End If
 208 
End Sub
139 
 
 - 
 
140 
 
 - 
 
141 
'
 - 
 
142 
'   Create JSON data for the user
 209 
'-------------------------------------------------
143 
'   Important fields
 210 
' Function:    setDeployable
144 
'       result
 - 
 
145 
'
 - 
 
146 
'   Debug fields
 211 
' Description: Set the state of the is_deployable flag
147 
'       QueryString
 212 
'              Request Parameters
148 
'       SqlQry
 213 
'                   pv_id
149 
'       Request (Array)
 214 
'                   deployment_state
150 
'
 215 
'
151 
'Write single value
 216 
Sub setDeployable
152 
oJSON.data("result") = result
 217 
    OraDatabase.Parameters.Add "PV_ID",     QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 218 
    OraDatabase.Parameters.Add "DEPLOYABLE_STATE",  QStrPar("deployment_state"), ORAPARM_INPUT, ORATYPE_CHAR
153 
 
 219 
 
154 
' SQL error detection and reporting
 220 
        '   Set/Reset IS_DEPLOYABLE flag
- 
 
 221 
        SqlQry = _
- 
 
 222 
            "UPDATE PACKAGE_VERSIONS " &_
- 
 
 223 
            "  SET IS_DEPLOYABLE = DECODE(:DEPLOYABLE_STATE, 'Y', 'Y', NULL)" &_
- 
 
 224 
            "  WHERE PV_ID =  :PV_ID"
155 
If objEH.LastOraFailed Then
 225 
        objEH.ErrorRedirect = FALSE
- 
 
 226 
        objEH.TryORA ( OraSession )
156 
    oJSON.data("error") = 1
 227 
        On Error Resume Next
157 
 
 - 
 
158 
    oJSON.data("emsgSummary") = objEH.MessageSummary
 228 
        OraDatabase.ExecuteSQL SqlQry
159 
    oJSON.data("emsgDetails") = objEH.MessageDetails
 229 
        objEH.CatchORA ( OraSession )
160 
    oJSON.data("SqlQry") = SqlQry
 230 
        On Error GoTo 0
161 
End If
 231 
        result = 0
162 
 
 232 
 
163 
' DEBUG: An array of the user provided requests
 233 
    OraDatabase.Parameters.Remove "PV_ID"
164 
oJSON.data("QueryString") = Request.QueryString
 234 
    OraDatabase.Parameters.Remove "DEPLOYABLE_STATE"
165 
 
 235 
 
166 
Set oJSON.data("Request") = oJSON.Collection()
 - 
 
167 
Set newitem = oJSON.AddToCollection(oJSON.data("Request"))
 - 
 
168 
Dim variableName
 - 
 
169 
for each variableName in Request.QueryString
 - 
 
170 
    newitem.add variableName, Request.QueryString(variableName)
 - 
 
171 
next
 236 
End Sub
172 
 
 237 
 
173 
'Return the object
 - 
 
174 
Response.Write oJSON.JSONoutput()
 - 
 
175 
Set oJSON = Nothing
 - 
 
176 
Call Destroy_All_Objects
 - 
 
177 
%>
 238 
%>