FIXED: Fails to publish item that has double-quotes in Title and a co…

…ntent folder for Garry's Mod.
ZeqMacaw · Oct 16, 2019 · 8dd5db6 · 8dd5db6
1 parent 88682a2
commit 8dd5db6
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/Crowbar/Core/SteamAppInfos/GarrysModSteamAppInfo.vb b/Crowbar/Core/SteamAppInfos/GarrysModSteamAppInfo.vb
@@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.IO
+Imports System.Web.Script.Serialization
 Imports Steamworks
 
 Public Class GarrysModSteamAppInfo
@@ -199,22 +200,23 @@ Public Class GarrysModSteamAppInfo
 		fileStream = File.CreateText(addonJsonPathFileName)
 		fileStream.AutoFlush = True
 		Try
+			Dim jss As JavaScriptSerializer = New JavaScriptSerializer()
 			If File.Exists(addonJsonPathFileName) Then
 				fileStream.WriteLine("{")
-				fileStream.WriteLine(vbTab + """title"": """ + itemTitle + """,")
+				fileStream.WriteLine(vbTab + """title"": " + jss.Serialize(itemTitle) + ",")
 				If itemTags.Count > 1 Then
-					fileStream.WriteLine(vbTab + """type"": """ + itemTags(0) + """,")
+					fileStream.WriteLine(vbTab + """type"": " + jss.Serialize(itemTags(0)) + ",")
 					fileStream.WriteLine(vbTab + """tags"": ")
 					fileStream.WriteLine(vbTab + "[")
 					If itemTags.Count > 2 Then
-						fileStream.WriteLine(vbTab + vbTab + """" + itemTags(1) + """,")
-						fileStream.WriteLine(vbTab + vbTab + """" + itemTags(2) + """")
+						fileStream.WriteLine(vbTab + vbTab + jss.Serialize(itemTags(1)) + ",")
+						fileStream.WriteLine(vbTab + vbTab + jss.Serialize(itemTags(2)))
 					Else
-						fileStream.WriteLine(vbTab + vbTab + """" + itemTags(1) + """")
+						fileStream.WriteLine(vbTab + vbTab + jss.Serialize(itemTags(1)))
 					End If
 					fileStream.WriteLine(vbTab + "]")
 				Else
-					fileStream.WriteLine(vbTab + """type"": """ + itemTags(0) + """")
+					fileStream.WriteLine(vbTab + """type"": " + jss.Serialize(itemTags(0)))
 				End If
 				fileStream.WriteLine("}")
 				fileStream.Flush()