2013-05-16 00:42:34 +08:00
|
|
|
HTTP/1.0 200 OK
|
|
|
|
|
Content-Type: text/html
|
|
|
|
|
|
|
|
|
|
<html><body>
|
2013-02-27 18:44:59 +08:00
|
|
|
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
<p>This is an example Lua server page served by
|
|
|
|
|
<a href="http://code.google.com/p/mongoose">Mongoose web server</a>.
|
|
|
|
|
Mongoose has Lua, Sqlite, and other functionality built in the binary.
|
|
|
|
|
This example page stores the request in the Sqlite database, and shows
|
|
|
|
|
all requests done previously.</p>
|
2013-05-16 00:42:34 +08:00
|
|
|
<p> Today is <? mg.write(os.date("%A")) ?>
|
2013-02-27 18:44:59 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
<pre>
|
|
|
|
|
<?
|
2013-05-16 00:42:34 +08:00
|
|
|
-- for k,v in pairs(_G) do mg.write(k, '\n') end
|
|
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
-- Open database
|
|
|
|
|
local db = sqlite3.open('requests.db')
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
-- Setup a trace callback, to show SQL statements we'll be executing.
|
2013-05-16 00:42:34 +08:00
|
|
|
-- db:trace(function(data, sql) mg.write('Executing: ', sql: '\n') end, nil)
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-01-31 23:17:40 +08: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,
|
2013-05-16 00:42:34 +08:00
|
|
|
addr
|
2013-01-31 23:17:40 +08:00
|
|
|
);
|
|
|
|
|
]])
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-05-16 00:42:34 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
-- Add entry about this request
|
|
|
|
|
local stmt = db:prepare(
|
|
|
|
|
'INSERT INTO requests VALUES(NULL, datetime("now"), ?, ?, ?);');
|
2013-05-16 00:42:34 +08:00
|
|
|
stmt:bind_values(mg.request_info.request_method,
|
|
|
|
|
mg.request_info.uri,
|
|
|
|
|
mg.request_info.remote_port)
|
2013-01-31 23:17:40 +08:00
|
|
|
stmt:step()
|
|
|
|
|
stmt:finalize()
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
-- Show all previous records
|
2013-05-16 00:42:34 +08:00
|
|
|
mg.write('Previous requests:\n')
|
2013-01-31 23:17:40 +08:00
|
|
|
stmt = db:prepare('SELECT * FROM requests ORDER BY id DESC;')
|
|
|
|
|
while stmt:step() == sqlite3.ROW do
|
|
|
|
|
local v = stmt:get_values()
|
2013-05-16 00:42:34 +08:00
|
|
|
mg.write(v[1] .. ' ' .. v[2] .. ' ' .. v[3] .. ' '
|
2013-01-31 23:17:40 +08:00
|
|
|
.. v[4] .. ' ' .. v[5] .. '\n')
|
|
|
|
|
end
|
2012-09-27 06:37:03 +08:00
|
|
|
|
2013-01-31 23:17:40 +08:00
|
|
|
-- Close database
|
|
|
|
|
db:close()
|
|
|
|
|
?>
|
|
|
|
|
</pre></body></html>
|
