ezcgi.inc 296 B

12345678910111213141516
  1. Uses Linux;
  2. { Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
  3. Function Getenv (Var EnvVar : AnsiString): AnsiString;
  4. Var P : Pchar;
  5. begin
  6. // Linux version returns pchar.
  7. p:=linux.getenv(EnvVar);
  8. if P<>nil then
  9. getenv:=strpas(p)
  10. else
  11. getenv:='';
  12. end;