Mercurial Hosting > luan
annotate http/src/luan/modules/http/Http_test.luan @ 693:ca169567ce07
module URIs must now include ".luan"
| author | Franklin Schmidt <fschmidt@gmail.com> |
|---|---|
| date | Tue, 19 Apr 2016 15:54:11 -0600 |
| parents | 35dde32c02ab |
| children | 87970832a3c3 |
| rev | line source |
|---|---|
|
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
629
diff
changeset
|
1 local Luan = require "luan:Luan.luan" |
|
572
f1601a4ce1aa
fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents:
571
diff
changeset
|
2 local error = Luan.error |
|
f1601a4ce1aa
fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents:
571
diff
changeset
|
3 local set_metatable = Luan.set_metatable or error() |
|
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
629
diff
changeset
|
4 local Io = require "luan:Io.luan" |
|
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
629
diff
changeset
|
5 local String = require "luan:String.luan" |
|
572
f1601a4ce1aa
fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents:
571
diff
changeset
|
6 local matches = String.matches or error() |
|
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
629
diff
changeset
|
7 local Http = require "luan:http/Http.luan" |
| 503 | 8 |
|
572
f1601a4ce1aa
fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents:
571
diff
changeset
|
9 |
| 503 | 10 local M = {} |
| 11 | |
| 12 M.welcome_file = "index.html" | |
| 508 | 13 M.cookie = {} |
| 503 | 14 |
| 15 function M.get_page(path) | |
|
629
35dde32c02ab
change String.matches()
Franklin Schmidt <fschmidt@gmail.com>
parents:
580
diff
changeset
|
16 if M.welcome_file ~= nil and matches(path,"/$") then |
| 503 | 17 path = path .. M.welcome_file |
| 18 end | |
| 19 local old_out = Io.stdout | |
|
693
ca169567ce07
module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
629
diff
changeset
|
20 local mod = require("site:"..path..".luan") |
|
505
7bc63886d4f2
web page modules now return a function
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
21 mod() |
| 503 | 22 M.text_writer.close() |
| 23 Io.stdout = old_out | |
| 24 return M.result.read_text() | |
| 25 end | |
| 26 | |
| 27 function M.init() | |
| 28 Http.request = Http.new_request{} | |
| 508 | 29 Http.request.cookie = M.cookie |
| 503 | 30 |
| 31 Http.response = Http.new_response{ | |
| 32 | |
| 33 text_writer = function() | |
| 580 | 34 Http.sent_headers(Http.response.headers) |
| 503 | 35 M.result = Io.uri "string:" |
| 36 M.text_writer = M.result.text_writer() | |
| 37 return M.text_writer | |
| 38 end; | |
| 39 | |
| 40 set_cookie = function(name,value) | |
| 508 | 41 M.cookie[name] = value |
| 503 | 42 end; |
| 43 | |
| 44 remove_cookie = function(name) | |
| 508 | 45 M.cookie[name] = nil |
| 503 | 46 end; |
| 47 | |
| 48 send_redirect = function(url) | |
| 49 Http.response.redirect = url | |
| 50 end; | |
| 51 | |
| 52 } | |
| 53 | |
| 54 end | |
| 55 | |
| 56 return M |