HTTP リクエストの手法変更（モヂュール化も検討）

modules/user.mod.hsp

@@ -7,14 +7,46 @@ User
 #deffunc local \
 Create \
 		str	p_name,\
+		local	l_res,\
+		local	l_size,\
 		local	l_data
 	HTTPLoad CREATE_URL + "?name=" + p_name
-	HTTPInfo l_data
+
+	If stat = 0 {
+		Repeat
+			HTTPInfo l_res, HTTPINFO_MODE
+
+			Switch l_res
+				Case HTTPMODE_READY
+				Case HTTPMODE_NONE
+				Case HTTPMODE_ERROR
+					Break
+			SwEnd
+
+			Wait 5
+		Loop
+
+		If l_res = HTTPMODE_READY {
+			HTTPInfo l_size, HTTPINFO_SIZE
+
+			SDim l_data, l_size
+
+			HTTPInfo l_data, HTTPINFO_DATA
+			Split l_data, ",", l_data
+
+			id = l_data.0
+			pass = l_data.1
+			inheritanceCode = l_data.2
+
+			Return
+		}
+	}
 
 	id = 0
 	pass = ""
+	inheritanceCode = ""
 
-	Return
+	Return -1
 
 #deffunc local \
 Fetch \