Protect default branches in organization workflow

Author: eduard93

GitHub/API.cls.xml

@@ -180,7 +180,7 @@ Protect branch<br>
 	Do ..Request.RemoveHeader("Accept")
 	Do ..Request.SetHeader("Accept"," application/vnd.github.loki-preview+json") // custom header as this functionality is currently in beta
 	Do ..Request.EntityBody.Write("{""protection"": {""enabled"": true}") // to supply true value in pre 16.1 versions
-	Set st = ..Request.Send("PATCH","",2)
+	Set st = ..Request.Send("PATCH","")
 	Do ..Request.RemoveHeader("Accept")
 	Do ..Request.SetHeader("Accept",..#Accept) // back to main header
 	Return st

GitHub/Workflows.cls.xml

@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="GitHub.Workflows">
+<TimeCreated>63914,64417.969689</TimeCreated>
+
+<Method name="ProtectDefaultBranches">
+<Description><![CDATA[
+Protect default branches in organization.<br>
+<var>Org</var> - name of Organization<br>
+<var>Username</var> - GitHub user, whois organisation owner<br>
+<var>Password</var> - GitHub password, corresponding to Username.<br>]]></Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Org:%String,Username:%String,Password:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set api = ##class(GitHub.API).%New(Username,Password)
+	#dim repos As List of %ZEN.proxyObject
+	Set st = api.GetOrgRepos(Org, "public", .repos)
+	Write $System.Status.GetErrorText(st)
+	For i=1:1:repos.Count() {
+		Set repo = repos.GetAt(i).name
+		Set branch = repos.GetAt(i)."default_branch"
+		Set st = api.ProtectBranch(Org, repo, branch)
+		Write repo, " ", $System.Status.GetErrorText(st), !
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>