Subversion Repositories DevTools

Rev

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

Rev 4256 Rev 5374
Line 66... Line 66...
66
        End With
66
        End With
67
        post = iJSON.JSONoutput() 
67
        post = iJSON.JSONoutput() 
68
 
68
 
69
        ' Display what we are doing
69
        ' Display what we are doing
70
        If dumpInput <> 0 Then
70
        If dumpInput <> 0 Then
71
            Response.Write "<br>Rest Query:" & JIRA_URL & qry
71
            Response.Write "<br>Rest Query:" & Application("JIRA_URL") & qry
72
            set dJSON = New aspJSON
72
            set dJSON = New aspJSON
73
            dJSON.loadJSON( post ) 
73
            dJSON.loadJSON( post ) 
74
            Response.Write "<br>Post json:<pre>" & dJSON.JSONoutput() & "</pre>"
74
            Response.Write "<br>Post json:<pre>" & dJSON.JSONoutput() & "</pre>"
75
        End If
75
        End If
76
 
76
 
77
 
77
 
78
        Set objXML = CreateObject("MSXML2.ServerXMLHTTP.6.0")
78
        Set objXML = CreateObject("MSXML2.ServerXMLHTTP.6.0")
79
        objXML.Open "POST", JIRA_URL & qry , false
79
        objXML.Open "POST", Application("JIRA_URL") & qry , false
80
        objXML.setRequestHeader "Authorization", "Basic " & Base64Encode(JIRA_CREDENTAILS)
80
        objXML.setRequestHeader "Authorization", "Basic " & Base64Encode(Application("JIRA_CREDENTIALS"))
81
        objXML.setRequestHeader "Content-Type", "application/json"
81
        objXML.setRequestHeader "Content-Type", "application/json"
82
        On Error Resume Next
82
        On Error Resume Next
83
        objXML.Send(post)
83
        objXML.Send(post)
84
        if Err.Number <> 0 then
84
        if Err.Number <> 0 then
85
            Response.Write "<br>Error Code: " & Err.Number & ": " & Err.Description
85
            Response.Write "<br>Error Code: " & Err.Number & ": " & Err.Description
Line 115... Line 115...
115
                   If issueInfo.Exists(jkey) Then
115
                   If issueInfo.Exists(jkey) Then
116
                        Set fields = this.item("fields")
116
                        Set fields = this.item("fields")
117
                        Set data = issueInfo.Item(jkey) 
117
                        Set data = issueInfo.Item(jkey) 
118
                        data.add "type","JIRA"
118
                        data.add "type","JIRA"
119
                        data.add "key",this.item("key")
119
                        data.add "key",this.item("key")
120
                        data.add "url",JIRA_URL & "/browse/" & this.item("key")
120
                        data.add "url",Application("JIRA_URL") & "/browse/" & this.item("key")
121
                        data.add "statusIcon",fields.item("status").item("iconUrl")
121
                        data.add "statusIcon",fields.item("status").item("iconUrl")
122
                        data.add "status",fields.item("status").item("name")
122
                        data.add "status",fields.item("status").item("name")
123
                        data.add "issuetypeIcon",fields.item("issuetype").item("iconUrl")
123
                        data.add "issuetypeIcon",fields.item("issuetype").item("iconUrl")
124
                        data.add "issuetype",fields.item("issuetype").item("name")
124
                        data.add "issuetype",fields.item("issuetype").item("name")
125
                        data.add "priorityIcon",fields.item("priority").item("iconUrl")
125
                        data.add "priorityIcon",fields.item("priority").item("iconUrl")