Merge pull request #86 from LinqLover/github-api-token

For GitHub API requests, try to use GITHUB_TOKEN on CI

Author: MariusDoe

src/GitS-Core.package/GSSelfUpdater.class/class/getShaOfVersion..st

@@ -1,9 +1,19 @@
 requests
 getShaOfVersion: aString
 	| response json |
-	response := WebClient httpGet: (self githubApiUrlForVersion: aString).
+	response := WebClient new
+		httpGet: (self githubApiUrlForVersion: aString)
+		do: [:request |
+			| token |
+			token := nil.
+			(self environment classNamed: #SmalltalkCI) ifNotNil: [:sci |
+				token := sci getEnv: 'GITHUB_TOKEN'].
+			(token isEmptyOrNil and: [FileDirectory respondsTo: #getenv:])
+				ifTrue: [token := FileDirectory getenv: 'GITHUB_TOKEN'].
+			token isEmptyOrNil ifFalse:
+				[request headerAt: 'Authorization' put: 'token ' , token]].
 	json := response content parseAsJson.
 	response code = 200 ifFalse: [
 		^ self error: ('Error while trying to resolve git-s version {1}: {2}'
 						format: {aString printString. json at: 'message'})].
-	^ json at: 'sha'
+	^ json at: 'sha'

src/GitS-Core.package/GSSelfUpdater.class/methodProperties.json

@@ -8,7 +8,7 @@
 		"changeLog" : "mad 8/13/2025 14:18",
 		"checkForNewVersion" : "mad 10/25/2024 11:32",
 		"fullRepositoryName" : "mad 10/9/2024 16:33",
-		"getShaOfVersion:" : "mad 10/24/2024 15:07",
+		"getShaOfVersion:" : "ct 10/6/2025 04:04",
 		"githubApiUrlForVersion:" : "mad 10/9/2024 18:38",
 		"installScriptForInstalledVersion" : "mad 10/9/2024 16:51",
 		"installScriptForVersion:" : "mad 10/9/2024 16:50",