jali/TelnetST
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Found clue to cookie jar

Browse Source
This commit is contained in:
Alexander Noack
2020-11-17 00:04:31 +01:00
parent c064dbfcb8
commit 168c027fec
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/cookies/COOKIES.D
View File

@@ -2,21 +2,12 @@
* Module: Cookies * Module: Cookies
* Author: jali <jali@orca-central.de * Author: jali <jali@orca-central.de
* Created On: Sun 01 Nov 2020 05:45:06 PM CET * Created On: Sun 01 Nov 2020 05:45:06 PM CET
* Last Modified: Sun 01 Nov 2020 05:45:06 PM CET * Last Modified: Mon 16 Nov 2020 11:54:18 PM CET
* Description: Cookiejar code, based on toshyp.atari.org * Description: Cookiejar code, based on toshyp.atari.org
****************************************************************************) ****************************************************************************)
DEFINITION MODULE Cookies; DEFINITION MODULE Cookies;
(*
* Basic structure for a a cookie-jar.
* Defines an entry in the jar.
*)
TYPE CookieJar = RECORD
id : LONGCARD;
value : LONGCARD;
END;
(* (*
* Finds and returns the cookie from the system cookie jar. * Finds and returns the cookie from the system cookie jar.
*) *)

21
src/cookies/COOKIES.I
View File

@@ -2,12 +2,24 @@
* Module: Cookies * Module: Cookies
* Author: jali <jali@orca-central.de * Author: jali <jali@orca-central.de
* Created On: Sun 01 Nov 2020 05:58:31 PM CET * Created On: Sun 01 Nov 2020 05:58:31 PM CET
* Last Modified: Sun 01 Nov 2020 05:58:31 PM CET * Last Modified: Tue 17 Nov 2020 12:04:06 AM CET
* Description: Cookiejar code, based on toshyp.atari.org * Description: Cookiejar code, based on toshyp.atari.org
****************************************************************************) ****************************************************************************)
IMPLEMENTATION MODULE Cookies; IMPLEMENTATION MODULE Cookies;
CONST
PCOOKIE = 05A0H (* Address of the system cookie jar *)
TYPE
(* A single entry in the cookie jar *)
COOKIE = RECORD
CookieId : ARRAY [0..3] OF CHAR;
CookieValue : LONGCARD;
END;
(* Defines a pointer to a cookie *)
COOKIEPTR = POINTER TO COOKIE;
(* (*
* Finds and returns the cookie from the system cookie jar. * Finds and returns the cookie from the system cookie jar.
*) *)
@@ -18,12 +30,9 @@ VAR
i : LONGCARD; i : LONGCARD;
BEGIN BEGIN
val = 0;
jar := Setexc(0x5A0/4) (* What exactly does this do? *)
IF jar != NIL THEN
END; END GetCookie;
END Cookies; END Cookies.
(* vim: set filetype=modula2: set nospell: set fileformat=dos: *) (* vim: set filetype=modula2: set nospell: set fileformat=dos: *)