Use CypressUrl when useful [feenkcom/gtoolkit#4322]

feenkcom · Mar 4, 2025 · 656d388 · 656d388
1 parent 15e66b3
commit 656d388
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/GToolkit-GemStone-GemStone/CypressHierarchicalUrl.extension.st b/src/GToolkit-GemStone-GemStone/CypressHierarchicalUrl.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : 'CypressHierarchicalUrl' }
+
+{ #category : '*GToolkit-GemStone-GemStone' }
+CypressHierarchicalUrl >> / aString [
+	path addAll: ($/ split: aString)
+]
diff --git a/src/GToolkit-GemStone-GemStone/GtGemstoneHttpClient.class.st b/src/GToolkit-GemStone-GemStone/GtGemstoneHttpClient.class.st
@@ -24,7 +24,13 @@ GtGemstoneHttpClient >> contents: aDict [
 
 { #category : 'other' }
 GtGemstoneHttpClient >> post [
-	^ {} asDictionary
+	| socket |
+	socket := GsSocket new.
+	(socket connectTo: self url port on: self url authority)
+		ifFalse: [ 
+			socket close.
+			Error signal: 'Unable to connect to target.' ].
+	socket close
 ]
 
 { #category : 'other' }