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 fetch to file doesn't work for some reason

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-05 13:58:18 +04:00
parent ab197c6483
commit 6c66d03769
6 changed files with 54 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
http.Mod
View file

@ -10,7 +10,7 @@ TYPE
VAR
buff, buff2: ARRAY MAXARRAYNUMBEREXTENDED OF CHAR;
PROCEDURE getClean(buff: ARRAY OF CHAR; VAR clean: ARRAY OF CHAR);
PROCEDURE getClean *(buff: ARRAY OF CHAR; VAR clean: ARRAY OF CHAR);
VAR
i: INTEGER;
newLine: ARRAY 2 OF CHAR;
@ -76,7 +76,7 @@ BEGIN
UNTIL ORD(val[i]) = 10; (* 0DX number(newline)*)
END getHeader;
PROCEDURE get(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
PROCEDURE get *(host, path, port: ARRAY OF CHAR; VAR buff: ARRAY OF CHAR);
VAR
socket : Internet.Socket;
connectionFlag: BOOLEAN;
@ -127,7 +127,7 @@ BEGIN
END get;
BEGIN
get("norayr.am", "/tmp/", "80", buff);
(* get("norayr.am", "/tmp/", "80", buff);
getClean(buff, buff2);
Logger.Log(buff2);
Logger.Log(buff2); *)
END http.