Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

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

'       Build System Status Enquiry

'       _json_buildStatus.asp

'       Designed to be called via AJAX and to return

'       JSON formatted data to dynamic page

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

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0   ' always load the page, dont store

%>

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

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

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

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

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

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/base64encode.vbs"></SCRIPT> 

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

<%

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

Dim parOpr

Dim parPv_id

Dim result

Dim iJSON,jJSON, el, this, post, newitem

Dim allIssues

' Basic Parameters

parOpr = QStrPar("Opr")

parPv_id = QStrPar("pv_id")

result = -1

post = "None"

' Init the output JSON class

'   Operations can add data

'   Default data will be added at the end

Dim oJSON

Set oJSON = New aspJSON

'

'   getIssues - Get issues for the current PV_ID and create a hash

'

Sub getIssues

    Set allIssues = CreateObject ("Scripting.Dictionary")

    Dim rsTemp, sqlstr, key

    sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& parPv_id

    Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))

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

        key = rsTemp("iss_key")

       If NOT allIssues.Exists(key) Then

            allIssues.add key, 1

       End If

        rsTemp.MoveNext

    WEnd

    rsTemp.Close()

    Set rsTemp = nothing

End Sub

'

'   Determine the operation to be performed

'

If (parOpr = "getAllKeys") Then

    ' Examine the Jira subsystem and determine ALL available project keys

    ' Return an HTML string that is a <select></select> box

    ' This is designed to be inserted into an element

    '

    result = 0

    '

    Dim objXML, qry

    qry = "/rest/api/2/project"

    Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")

    objXML.Open "GET", Application("JIRA_URL") & qry, false

    objXML.setRequestHeader "Authorization", "Basic " & Base64Encode(Application("JIRA_CREDENTIALS"))

    On Error Resume Next

    objXML.Send("")

    if Err.Number <> 0 then

        result = 1

        oJSON.data("emsgSummary") = Err.Description

        On Error Goto 0

    else

        On Error Goto 0

        If  objXML.status = 403 then

            result = 1

            oJSON.data("emsgSummary") = "Jira Server Access Denied"

        ElseIf  objXML.status <> 200 then

            result = 1

            oJSON.data("emsgSummary") = objXML.responseText

        Else

            Set jJSON = New aspJSON

            jJSON.loadJSON( objXML.responseText )

            oJSON.data("keyListCount") = jJSON.data.Count

            Dim  str

            str = "<select id='keyListSelect'>"

            For Each el In jJSON.data

                Set this = jJSON.data.item(el)

                str = str & "<option value='"&this.item("key")&"'>" &_

                            this.item("key") & ":" & this.item("name") &_

                      "</option>"

                Next

            str = str & "</select>"

        end if

    end if

    oJSON.data("keyList") = str

'

'   getIssues

ElseIf (parOpr = "getIssues") Then

    Dim project, projectList, issues, issueList, query, order, parCount, parStartAt

    getIssues()

    project = QStrPar("Project")

    issues = QStrPar("Issue")

    parStartAt = QStrPar("StartAt")

    parCount = QStrPar("Count")

    qry = "/rest/api/2/search"

    order = " ORDER BY key DESC"

    projectList = ""

    If project = "ALL" Then

        projectList = ""

    Else

        projectList = "project=" & project

    End If

     ' Convert comma or space seperated list into and 'IN' query

    issueList = ""

    Dim aList, entry, del

    If issues <> "ALL" AND issues <> "" AND project <> "ALL" Then

        issueList = issueList & " AND key in ("

        del = ""

        issues = Replace(issues ," ",",",1,-1)

        aList = Split(issues, ",")

            For Each entry in aList

                If entry <> "" Then

                    issueList = issueList & del & project & "-" & entry

                    del = ","

                End If

            Next

        issueList = issueList & ")"

    End If

    ' Create the JSON input via code

    ' Can do it as a string, as thats all we want

    set iJSON = New aspJSON

    With iJSON.data

    .Add "jql", projectList & issueList & order

    .Add "validateQuery", "false"

    .Add "startAt", CStr(parStartAt)

    .Add "maxResults", CStr(parCount)

    .Add "fields", iJSON.Collection()

        With .item("fields")

            .Add 0, "key"

            .Add 1, "summary"

            .Add 2, "status"

            .Add 3, "priority"

            .Add 4, "issuetype"

        End With

    End With

    post = iJSON.JSONoutput()

    Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")

    objXML.Open "POST", Application("JIRA_URL") & qry , false

    objXML.setRequestHeader "Authorization", "Basic " & Base64Encode(Application("JIRA_CREDENTIALS"))

    objXML.setRequestHeader "Content-Type", "application/json"

    On Error Resume Next

    objXML.Send(post)

    if Err.Number <> 0 then

        result = 1

        oJSON.data("emsgSummary") = Err.Description

        On Error Goto 0

    else

        On Error Goto 0

        If  objXML.status = 400 then

            result = 1

            Set jJSON = New aspJSON

            jJSON.loadJSON( objXML.responseText )

            oJSON.data("emsgSummary") = jJSON.data("errorMessages").item(0)

        ElseIf  objXML.status = 403 then

            result = 1

            oJSON.data("emsgSummary") = "Jira Server Access Denied"

        ElseIf  objXML.status <> 200 then

            result = 1

            oJSON.data("emsgSummary") = objXML.responseText

        Else

            Set jJSON = New aspJSON

            jJSON.loadJSON( objXML.responseText )

'           Response.Write "<br>Pretty JSON display<pre>"

'           Response.Write jJSON.JSONoutput()

'           Response.Write "</pre>"

'

            oJSON.data("issueCount") = jJSON.data("total")

            oJSON.data("startAt") = jJSON.data("startAt")

            oJSON.data("maxResults") = jJSON.data("maxResults")

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

            ' Select the fields to be returned

            Dim  fields

    'On Error Resume Next

            For Each el In jJSON.data("issues")

               Set this = jJSON.data("issues").item(el)

               Set fields = this.item("fields")

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

                newitem.add "key",this.item("key")

                newitem.add "url",Application("JIRA_URL") & "/browse/" & this.item("key")

                newitem.add "statusIcon",fields.item("status").item("iconUrl")

                newitem.add "status",fields.item("status").item("name")

                newitem.add "issuetypeIcon",fields.item("issuetype").item("iconUrl")

                newitem.add "issuetype",fields.item("issuetype").item("name")

                newitem.add "priorityIcon",fields.item("priority").item("iconUrl")

                newitem.add "priority",fields.item("priority").item("name")

                newitem.add "summary",fields.item("summary")

                If allIssues.Exists(this.item("key")) Then

                    newitem.add "inuse",1

                End If

            Next

            result = 0

        end if

    end if

'

'   insertIssues

'   Insert Issues into the Release Manager entry

'

ElseIf (parOpr = "insertIssues") Then

    issues = QStrPar("Issue")

    If parPv_id = "" OR issues = "" Then

        result = 1

        oJSON.data("emsgSummary") = "Action called with invalid arguments." & parPv_id & issues

    Else

        Dim SqlQry, issArr , iss_id, rsQry

        issArr = Split ( issues, ",")

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        ' Import issues if they do not already exist

        For Each iss_id In issArr

            If Err.Number = 0 Then

                SqlQry = "SELECT * FROM JIRA_ISSUES WHERE pv_id=" & parPv_id & " AND iss_key='"& LTrim(iss_id) & "'"

                Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

                OraDatabase.ExecuteSQL SqlQry

                If ((rsQry.BOF) OR (rsQry.EOF)) Then

                    SqlQry = " INSERT INTO JIRA_ISSUES ( pv_id, iss_key, date_time_stamp )" &_

                             " VALUES ( " & parPv_id & ", '"& LTrim(iss_id) &"', "& ORA_SYSDATETIME &")"

                    OraDatabase.ExecuteSQL SqlQry

                    If Err.Number = 0 Then

                        SqlQry = "BEGIN  Log_Action ( "& parPv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue number: "& LTrim(iss_id) &"' );  END;"

                        OraDatabase.ExecuteSQL SqlQry

                    End If

                Set rsQry = nothing

                End If

            End If

        Next

        ' SQL error detection and reporting

        objEH.CatchORA ( OraSession )

        If objEH.LastOraFailed Then

            result = 2

            oJSON.data("error") = 1

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

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

            oJSON.data("SqlQry") = SqlQry

        Else

            result = 0

        End If

    End If

Else

        oJSON.data("emsgSummary") = "Unknown operation requested:" & parOpr

End If

'

'   Create JSON data for the user

'   Important fields

'       result

'

'   Debug fields

'       Request (Array)

'

'Write single value

oJSON.data("result") = result

' DEBUG: An array of the user provided requests

oJSON.data("JiraPost") = post

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

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

Dim variableName

for each variableName in Request.QueryString

    newitem.add variableName, Request.QueryString(variableName)

next

'Return the object

Response.Write oJSON.JSONoutput()

Set oJSON = Nothing

Call Destroy_All_Objects

%>