From f46a18353c0e8a522e878c61e4c324e39b47beed Mon Sep 17 00:00:00 2001
From: miteruzo <miteruzo@naver.com>
Date: Tue, 18 Jul 2023 12:31:24 +0900
Subject: [PATCH] =?UTF-8?q?HTTP=20=E3=83=AA=E3=82=AF=E3=82=A8=E3=82=B9?=
 =?UTF-8?q?=E3=83=88=E3=81=AE=E6=89=8B=E6=B3=95=E5=A4=89=E6=9B=B4=EF=BC=88?=
 =?UTF-8?q?=E3=83=A2=E3=83=82=E3=83=A5=E3=83=BC=E3=83=AB=E5=8C=96=E3=82=82?=
 =?UTF-8?q?=E6=A4=9C=E8=A8=8E=EF=BC=89?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 modules/user.mod.hsp | 36 ++++++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/modules/user.mod.hsp b/modules/user.mod.hsp
index 03b654c..4b90cf6 100644
--- a/modules/user.mod.hsp
+++ b/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 \