vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Opium works, end to end

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-12 12:47:40 +04:00
parent 70e1e1efe4
commit 7e0050c496
5 changed files with 44 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

7
http.Mod
View file

@ -1,8 +1,8 @@
MODULE http;
IMPORT Strings, Internet, Logger, Out;
CONST
MAXARRAYNUMBER = 1000;
MAXARRAYNUMBEREXTENDED = 10000;
MAXARRAYNUMBER = 10000;
MAXARRAYNUMBEREXTENDED = 100000;
TYPE
PSTRING = POINTER TO ARRAY OF CHAR;
@ -131,7 +131,8 @@ BEGIN
(* Out.Real(valueContentLength, 6);
Out.Ln;
Logger.LogIntLn(Strings.Length(buff));
Logger.Log(buff); *)
*)
Logger.Log(buff);
UNTIL ~connectionFlag OR (Strings.Length(buff) > valueContentLength);
Internet.Disconnect(socket);
END get;