93 conn:settimeout(default_timeout); |
93 conn:settimeout(default_timeout); |
94 local data, err, partial = conn:receive("*a"); |
94 local data, err, partial = conn:receive("*a"); |
95 received = data or partial or ""; |
95 received = data or partial or ""; |
96 conn:close(); |
96 conn:close(); |
97 received_cache[question] = received; |
97 received_cache[question] = received; |
98 debug("<<", #received ~= "" and tostring(received) or nil); |
98 if received ~= "" then |
|
99 debug("<<", received); |
|
100 else |
|
101 debug("!!", tostring(err)); |
|
102 end |
99 end |
103 end |
100 return received ~= "" and received:match(answer); |
104 if received == "" then |
|
105 return answer == false |
|
106 elseif answer then |
|
107 return received:match(answer); |
|
108 end |
101 end |
109 end |
102 |
110 |
103 function test(question, answer) |
111 function test(question, answer) |
104 return _test(arg[1], tonumber(arg[2]) or default_port, question, answer); |
112 return _test(arg[1], tonumber(arg[2]) or default_port, question, answer); |
105 end |
113 end |