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

Http works!!!!!!

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-04 17:41:24 +04:00
parent f16ef2418b
commit ea7a66f84d
1 changed files with 25 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

35
http.Mod
View file

@ -4,7 +4,8 @@ CONST
MAXARRAYNUMBER = 10000;
MAXARRAYNUMBEREXTENDED = 1000000;
TYPE PSTRING = POINTER TO ARRAY OF CHAR;
TYPE
PSTRING = POINTER TO ARRAY OF CHAR;
VAR
buff: ARRAY MAXARRAYNUMBEREXTENDED OF CHAR;
@ -23,6 +24,17 @@ BEGIN
buffClean[i + 2] := " ";
END AppendEOLAndClean;
PROCEDURE addHeader(key, val: ARRAY OF CHAR; VAR buff: PSTRING);
VAR
header: ARRAY MAXARRAYNUMBER OF CHAR;
BEGIN
COPY("", header);
Strings.Append(key, header);
Strings.Append(": ", header);
Strings.Append(val, header);
AppendEOLAndClean(header, buff);
END addHeader;
PROCEDURE get(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
VAR
socket : Internet.Socket;
@ -41,18 +53,21 @@ BEGIN
send := "GET ";
Strings.Append(path, send);
Strings.Append(httpTail, send);
AppendEOLAndClean(send, sendClean);
Logger.Log(sendClean^);
connectionFlag := Internet.Write(socket, sendClean^);
send := "HOST: ";
Strings.Append(host, send);
AppendEOLAndClean(send, sendClean);
Logger.Log(sendClean^);
addHeader("HOST", host, sendClean);
connectionFlag := Internet.Write(socket, sendClean^);
addHeader("User-Agent", "oberon-http-client/1.0", sendClean);
connectionFlag := Internet.Write(socket, sendClean^);
addHeader("Accept", "*/*", sendClean);
connectionFlag := Internet.Write(socket, sendClean^);
AppendEOLAndClean("", sendClean);
Logger.Log(sendClean^);
connectionFlag := Internet.Write(socket, sendClean^);
@ -66,6 +81,6 @@ BEGIN
END get;
BEGIN
get("norayr.am", "/gf.jpg", "80", buff);
get("norayr.am", "/tmp/", "80", buff);
Logger.Log(buff);
END http.