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 \