2013-05-15 17:42:34 +01:00
|
|
|
HTTP/1.0 200 OK
|
|
|
|
|
Content-Type: text/html
|
|
|
|
|
|
|
|
|
|
<html><body>
|
2013-02-27 10:44:59 +00:00
|
|
|
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2013-12-19 08:01:02 +01:00
|
|
|
<p>This is another example of a Lua server page, served by
|
2017-01-18 23:11:24 +01:00
|
|
|
<a href="https://github.com/civetweb/civetweb/">CivetWeb web server</a>.
|
2013-12-19 08:01:02 +01:00
|
|
|
</p><p>
|
|
|
|
|
The following features are available:
|
|
|
|
|
<ul>
|
|
|
|
|
<?
|
|
|
|
|
mg.write("<li>" .. _VERSION .. " server pages</li>")
|
|
|
|
|
if sqlite3 then
|
|
|
|
|
mg.write("<li>sqlite3 binding</li>")
|
|
|
|
|
end
|
|
|
|
|
if lfs then
|
|
|
|
|
mg.write("<li>lua file system</li>")
|
|
|
|
|
end
|
|
|
|
|
?>
|
|
|
|
|
</ul></p>
|
|
|
|
|
<p> Today is <? mg.write(os.date("%A")) ?></p>
|
|
|
|
|
<p> URI is <? mg.write(mg.request_info.uri) ?></p>
|
|
|
|
|
<p> URI is <?=mg.request_info.uri?></p>
|
2013-02-27 10:44:59 +00:00
|
|
|
|
2013-12-19 08:01:02 +01:00
|
|
|
<p>Database example:
|
2013-01-31 15:17:40 +00:00
|
|
|
<pre>
|
|
|
|
|
<?
|
|
|
|
|
-- Open database
|
|
|
|
|
local db = sqlite3.open('requests.db')
|
2015-01-06 21:09:32 +01:00
|
|
|
-- Note that the data base is located in the current working directory
|
|
|
|
|
-- of the process if no other path is given here.
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2013-01-31 15:17:40 +00:00
|
|
|
-- Setup a trace callback, to show SQL statements we'll be executing.
|
2013-05-15 17:42:34 +01:00
|
|
|
-- db:trace(function(data, sql) mg.write('Executing: ', sql: '\n') end, nil)
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2013-01-31 15:17:40 +00:00
|
|
|
-- Create a table if it is not created already
|
|
|
|
|
db:exec([[
|
|
|
|
|
CREATE TABLE IF NOT EXISTS requests (
|
|
|
|
|
id INTEGER PRIMARY KEY AUTOINCREMENT,
|
|
|
|
|
timestamp NOT NULL,
|
|
|
|
|
method NOT NULL,
|
|
|
|
|
uri NOT NULL,
|
2018-03-25 22:52:57 +02:00
|
|
|
addr,
|
|
|
|
|
civetwebversion,
|
|
|
|
|
luaversion,
|
|
|
|
|
aux
|
2013-01-31 15:17:40 +00:00
|
|
|
);
|
|
|
|
|
]])
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2022-12-30 16:40:51 +01:00
|
|
|
-- Add columns to table created with older version
|
2018-03-25 22:52:57 +02:00
|
|
|
db:exec("ALTER TABLE requests ADD COLUMN civetwebversion;")
|
|
|
|
|
db:exec("ALTER TABLE requests ADD COLUMN luaversion;")
|
|
|
|
|
db:exec("ALTER TABLE requests ADD COLUMN aux;")
|
|
|
|
|
|
2013-01-31 15:17:40 +00:00
|
|
|
-- Add entry about this request
|
|
|
|
|
local stmt = db:prepare(
|
2018-03-25 22:52:57 +02:00
|
|
|
'INSERT INTO requests VALUES(NULL, datetime("now"), ?, ?, ?, ?, ?, ?);');
|
2013-05-15 17:42:34 +01:00
|
|
|
stmt:bind_values(mg.request_info.request_method,
|
|
|
|
|
mg.request_info.uri,
|
2018-03-25 22:52:57 +02:00
|
|
|
mg.request_info.remote_port,
|
|
|
|
|
mg.version,
|
|
|
|
|
_VERSION,
|
|
|
|
|
""
|
|
|
|
|
)
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2013-01-31 15:17:40 +00:00
|
|
|
-- Show all previous records
|
2013-05-15 17:42:34 +01:00
|
|
|
mg.write('Previous requests:\n')
|
2013-01-31 15:17:40 +00:00
|
|
|
stmt = db:prepare('SELECT * FROM requests ORDER BY id DESC;')
|
|
|
|
|
while stmt:step() == sqlite3.ROW do
|
|
|
|
|
local v = stmt:get_values()
|
2013-05-15 17:42:34 +01:00
|
|
|
mg.write(v[1] .. ' ' .. v[2] .. ' ' .. v[3] .. ' '
|
2013-01-31 15:17:40 +00:00
|
|
|
.. v[4] .. ' ' .. v[5] .. '\n')
|
|
|
|
|
end
|
2012-09-26 23:37:03 +01:00
|
|
|
|
2013-01-31 15:17:40 +00:00
|
|
|
-- Close database
|
|
|
|
|
db:close()
|
|
|
|
|
?>
|
2013-12-19 08:01:02 +01:00
|
|
|
</pre></p>
|
|
|
|
|
|
|
|
|
|
</body></html>
|
