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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
Author: Enrico Tassi <gareuselesinge@debian.org>
Description: SAPI implementation for the CGI protocol
--- /dev/null
+++ lua-cgi-5.1.3/src/sapi/cgi/info.lua
@@ -0,0 +1,16 @@
+----------------------------------------------------------------------------
+-- $Id: info.lua,v 1.3 2007/11/21 19:20:06 carregal Exp $
+----------------------------------------------------------------------------
+
+module"sapi.cgi.info"
+
+function open (req)
+ return {
+ _COPYRIGHT = "Copyright (C) 2004-2007 Kepler Project",
+ _DESCRIPTION = "CGI SAPI implementation",
+ _VERSION = "CGI SAPI 1.0",
+ ispersistent = false,
+ ismapped = false,
+ isdirect = false,
+ }
+end
--- /dev/null
+++ lua-cgi-5.1.3/src/sapi/cgi/request.lua
@@ -0,0 +1,18 @@
+----------------------------------------------------------------------------
+-- $Id: request.lua,v 1.1 2005/12/29 11:12:41 tomas Exp $
+----------------------------------------------------------------------------
+
+local getenv = os.getenv
+local stdin = io.stdin
+
+module"sapi.cgi.request"
+
+----------------------------------------------------------------------------
+function open (req)
+ return {
+ servervariable = getenv,
+ getpostdata = function (n)
+ return stdin:read (n)
+ end,
+ }
+end
--- /dev/null
+++ lua-cgi-5.1.3/src/sapi/cgi/response.lua
@@ -0,0 +1,34 @@
+----------------------------------------------------------------------------
+-- $Id: response.lua,v 1.2 2007/04/14 22:16:52 tomas Exp $
+----------------------------------------------------------------------------
+
+local unpack = unpack
+local format = string.format
+local stderr, stdout = io.stderr, io.stdout
+
+module"sapi.cgi.response"
+
+----------------------------------------------------------------------------
+function open (req)
+ return {
+ contenttype = function (header)
+ stdout:write ("Content-type: "..header.."\n\n")
+ end,
+
+ errorlog = function (msg, errlevel)
+ stderr:write (msg)
+ end,
+
+ header = function (header, value)
+ stdout:write (format ("%s: %s\n", header, value))
+ end,
+
+ redirect = function (url)
+ stdout:write ("Location: "..url.."\n\n")
+ end,
+
+ write = function (...)
+ stdout:write (...)
+ end,
+ }
+end
--- /dev/null
+++ lua-cgi-5.1.3/src/sapi/init.lua
@@ -0,0 +1,8 @@
+local info = require"sapi.cgi.info"
+local req = require"sapi.cgi.request"
+local res = require"sapi.cgi.response"
+SAPI = {
+ Info = info.open (),
+ Request = req.open (),
+ Response = res.open (),
+}
|
