Gitlab REST API: Editing merge requests

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3
#pragma IgorVersion=8.0.0
#include "json_functions"

StrConstant PRIVATE_TOKEN="PRIVATE_TOKEN_XXX"

// Example of interacting with gitlab
//
// The goal is to find all merge requests which can
// not be merged due to conflicts and change their state to draft mode.
//
// Requires the JSON XOP from https://docs.byte-physics.de/json-xop
//
// Steps:
// - Fill in your access tocken in PRIVATE_TOKEN
// - Change projectPath to the desired project
// - Execute RewriteMergeRequestTitles()
//
// Gitlab Documentation:
//
// https://docs.gitlab.com/ee/user/profile/personal_access_tokens.html
// https://docs.gitlab.com/ee/api/README.html#namespaced-path-encoding
// https://docs.gitlab.com/ee/api/merge_requests.html#update-mr
// https://docs.gitlab.com/ee/api/merge_requests.html#list-merge-requests
Function RewriteMergeRequestTitles()

    variable jsonID, i, numEntries, iid, regJSON
    string title, str, projectPath, jsonPath

    projectPath = UrlEncode("tango-controls/cppTango")

    UrlRequest headers=("PRIVATE-TOKEN: " + PRIVATE_TOKEN)                                                            \
               , url="https://gitlab.com/api/v4/projects/" + projectPath + "/merge_requests?state=opened&per_page=100"
    // print V_responseCode, S_serverresponse

    jsonID = JSON_Parse(S_serverResponse)
    numEntries = JSON_GetArraySize(jsonID, "")

    for(i = 0; i < numEntries; i += 1)
        jsonPath = num2str(i)
        iid = JSON_GetVariable(jsonID, jsonPath + "/iid")
        title = JSON_GetString(jsonID, jsonPath + "/title")
        str = JSON_Getstring(jsonID, jsonPath + "/merge_status")

        if(!cmpstr(str, "cannot_be_merged") && !GrepString(title, "^Draft"))
            regJSON = JSON_New()
            JSON_AddString(regJSON, "/title", "Draft: " + title)
            UrlRequest/DSTR=JSON_Dump(regJSON) headers=("PRIVATE-TOKEN: " + PRIVATE_TOKEN + "\rContent-Type: application/json")               \
                                               , url=("https://gitlab.com/api/v4/projects/&quot; + projectPath + "/merge_requests/" + num2str(iid)) \
                                               , method=put                                                                                

            // print V_responseCode, S_serverresponse
            JSON_Release(regJSON)
        endif
    endfor

    JSON_Release(jsonID)
End