@@ -1,3 +1,6 @@ | |||||
#include "./modules/http.mod.hsp" | |||||
#ifndef __CHAT__ | #ifndef __CHAT__ | ||||
#define __CHAT__ | #define __CHAT__ | ||||
@@ -6,21 +9,10 @@ Chat | |||||
#define URL (CONFIG_SERVER_URL + "/chat.php") | #define URL (CONFIG_SERVER_URL + "/chat.php") | ||||
#defcfunc local \ | |||||
New \ | |||||
int p_id | |||||
id.insNum = p_id | |||||
insNum++ | |||||
Return insNum - 1 | |||||
#deffunc local \ | #deffunc local \ | ||||
Send \ | Send \ | ||||
int p_insId,\ | |||||
str p_message | str p_message | ||||
HTTPLoad@ URL + StrF ("?id=%d&text=%s", id.p_insId, p_message) | |||||
HTTPInfo _, HTTPINFO_MODE | |||||
Fetch@Http URL + StrF ("?id=%d&text=%s", id.p_insId, p_message) | |||||
Return | Return | ||||
@@ -10,7 +10,6 @@ Http | |||||
#deffunc local \ | #deffunc local \ | ||||
Fetch \ | Fetch \ | ||||
str p_url,\ | str p_url,\ | ||||
local l_res,\ | |||||
local l_size | local l_size | ||||
HTTPLoad p_url | HTTPLoad p_url | ||||
@@ -35,14 +34,18 @@ Fetch \ | |||||
HTTPInfo data, HTTPINFO_DATA | HTTPInfo data, HTTPINFO_DATA | ||||
status = STATUS_SUCCESS | status = STATUS_SUCCESS | ||||
} | |||||
Else { | |||||
HTTPInfo errMsg, HTTPINFO_ERROR | |||||
Return | |||||
status = STATUS_ERROR | |||||
} | } | ||||
} | } | ||||
Else { | |||||
HTTPInfo errMsg, HTTPINFO_ERROR | |||||
HTTPInfo errMsg, HTTPINFO_ERROR | |||||
status = STATUS_ERROR | |||||
status = STATUS_ERROR | |||||
} | |||||
Return | Return | ||||
@@ -20,9 +20,9 @@ Setting | |||||
#deffunc local \ | #deffunc local \ | ||||
Load | Load | ||||
userId = 0 | |||||
SDim userPasscode, USER_PASSCODE_SIZE | |||||
SDim userInheritanceCode, USER_INHERITANCE_CODE_SIZE | |||||
id@User = 0 | |||||
SDim pass@User, USER_PASSCODE_SIZE | |||||
SDim inheritanceCode@User, USER_INHERITANCE_CODE_SIZE | |||||
Exist FILE_NAME | Exist FILE_NAME | ||||
If strSize < 0 { | If strSize < 0 { | ||||
@@ -31,17 +31,24 @@ Load | |||||
Return | Return | ||||
} | } | ||||
BLoad FILE_NAME, userId, USER_ID_SIZE, USER_ID_OFFSET | |||||
BLoad FILE_NAME, userPasscode, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET | |||||
BLoad FILE_NAME, userInheritanceCode, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET | |||||
BLoad FILE_NAME, id@User, USER_ID_SIZE, USER_ID_OFFSET | |||||
BLoad FILE_NAME, pass@User, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET | |||||
BLoad FILE_NAME, inheritanceCode@User, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET | |||||
Return | Return | ||||
#deffunc local \ | #deffunc local \ | ||||
Save | |||||
BSave FILE_NAME, userId, USER_ID_SIZE, USER_ID_OFFSET | |||||
BSave FILE_NAME, userPasscode, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET | |||||
BSave FILE_NAME, userInheritanceCode, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET | |||||
Save \ | |||||
local l_dummy | |||||
Exist FILE_NAME | |||||
If strSize < 0 { | |||||
l_dummy = "" | |||||
BSave FILE_NAME, l_dummy, 0 | |||||
} | |||||
BSave FILE_NAME, id@User, USER_ID_SIZE, USER_ID_OFFSET | |||||
BSave FILE_NAME, pass@User, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET | |||||
BSave FILE_NAME, inheritanceCode@User, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET | |||||
Load | Load | ||||
@@ -13,16 +13,15 @@ User | |||||
#deffunc local \ | #deffunc local \ | ||||
Create \ | Create \ | ||||
str p_name,\ | |||||
local l_data | |||||
str p_name | |||||
Fetch@Http CREATE_URL + "?name=" + p_name | Fetch@Http CREATE_URL + "?name=" + p_name | ||||
If status@Http = STATUS_SUCCESS@Http { | If status@Http = STATUS_SUCCESS@Http { | ||||
Split data@Http, ",", l_data | |||||
Split data@Http, ",", create_data | |||||
id = Int (l_data.0) | |||||
pass = l_data.1 | |||||
inheritanceCode = l_data.2 | |||||
id = Int (create_data.0) | |||||
pass = create_data.1 | |||||
inheritanceCode = create_data.2 | |||||
} | } | ||||
Else { | Else { | ||||
id = 0 | id = 0 | ||||
@@ -40,9 +39,6 @@ Auth \ | |||||
local l_data | local l_data | ||||
Load@Setting | Load@Setting | ||||
id = userId@Setting | |||||
pass = userPasscode@Setting | |||||
If id <= 0 { | If id <= 0 { | ||||
Return | Return | ||||
} | } | ||||