MODULE testCGI;
FROM InOut IMPORT WriteCard, WriteLn, WriteString, WriteBf;
FROM Arguments IMPORT ArgTable, GetEnv;
FROM Strings IMPORT Assign, Length, String;
VAR EnvVars : ArgTable;
PROCEDURE ReadEnvVar;
VAR Value : String;
i : CARDINAL;
BEGIN
WriteString ('
');
WriteString ('
Index
Length
Content
');
i := 0;
LOOP
IF EnvVars^ [i] = NIL THEN EXIT END;
Assign (Value, EnvVars^ [i]^);
WriteString ('
');
WriteCard (i, 2);
WriteString ('
');
WriteCard (Length (Value), 3);
WriteString ('
'); WriteString (Value);
WriteString ("
");
WriteLn;
INC (i)
END;
WriteString("
");
END ReadEnvVar;
BEGIN
GetEnv (EnvVars);
WriteString ('Content-type:text/html');
WriteLn;
WriteLn;
WriteString ('');
WriteString ('CGI with the Mocka Modula-2 compiler');
WriteString ('');
WriteLn;
WriteString ('
CGI environment passed along by your browser
');
ReadEnvVar;
WriteString ('');
WriteLn;
WriteBf
END testCGI.