forked from zamronypj/fano
/
NullEnvironmentImpl.pas
52 lines (41 loc) · 1.34 KB
/
NullEnvironmentImpl.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
{*!
* Fano Web Framework (https://fanoframework.github.io)
*
* @link https://github.com/fanoframework/fano
* @copyright Copyright (c) 2018 Zamrony P. Juhara
* @license https://github.com/fanoframework/fano/blob/master/LICENSE (MIT)
*}
unit NullEnvironmentImpl;
interface
{$MODE OBJFPC}
{$H+}
uses
AbstractEnvironmentImpl;
type
(*!------------------------------------------------
* dummy CGI environment variable
*
* @author Zamrony P. Juhara <zamronypj@yahoo.com>
*--------------------------------------------------*)
TNullCGIEnvironment = class(TAbstractCGIEnvironment)
public
(*!-----------------------------------------
* Retrieve an environment variable
*------------------------------------------
* @param key name of variable
* @return variable value
*------------------------------------------*)
function env(const keyName : string) : string; override;
end;
implementation
(*!-----------------------------------------
* Retrieve an environment variable
*------------------------------------------
* @param key name of variable
* @return variable value
*------------------------------------------*)
function TNullCGIEnvironment.env(const keyName : string) : string;
begin
result := '';
end;
end.