Removed GRPharoPlatform>>newTemporaryFileReference and replaced it wi…

…th ZnStreamingMultiPartFormDataEntity class>>temporaryFileDirectory. I needed the directory to be configurable, so for now it's held by a class variable on ZnStreamingMultiPartFormDataEntity and can be changed.
SeasideSt · May 27, 2020 · 8298623 · 8298623
1 parent 486b5e4
commit 8298623
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 13 deletions.
diff --git a/...inc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st b/...inc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st
diff --git a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json
diff --git a/...e-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st b/...e-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st
@@ -0,0 +1,3 @@
+as yet unclassified
+temporaryFileDirectory: aFileReference
+	TemporaryFileDirectory := aFileReference
diff --git a/...de-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st b/...de-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st
@@ -0,0 +1,4 @@
+as yet unclassified
+temporaryFileDirectory
+	^ TemporaryFileDirectory ifNil: [
+		TemporaryFileDirectory := FileLocator temp asFileReference ]
diff --git a/...FormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/...FormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st
@@ -2,7 +2,7 @@ private
 parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock
 	| fullBoundary file |
 	fullBoundary := String crlf asByteArray, aBoundary.
-	file := GRPlatform current newTemporaryFileReference.
+	file := self class temporaryFileDirectory / UUID new asString.
 	GRPlatform current
 		binaryWriteStreamFor: file
 		do: [ :writer |

diff --git a/...itory/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/...itory/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json
@@ -4,7 +4,9 @@
 	"category" : "Zinc-Seaside-Pharo-Core",
 	"classinstvars" : [ ],
 	"pools" : [ ],
-	"classvars" : [ ],
+	"classvars" : [
+		"TemporaryFileDirectory"
+	],
 	"instvars" : [
 		"stream"
 	],