Mercurial Hosting > luan
annotate http/src/luan/modules/http/Http_test.luan @ 571:cd944b010f25
fix Http_test
| author | Franklin Schmidt <fschmidt@gmail.com> |
|---|---|
| date | Wed, 08 Jul 2015 23:10:52 -0600 |
| parents | 473e456444ff |
| children | f1601a4ce1aa |
| rev | line source |
|---|---|
| 503 | 1 local Io = require "luan:Io" |
|
539
473e456444ff
Remove object-oriented primitive methods for string and binary
Franklin Schmidt <fschmidt@gmail.com>
parents:
508
diff
changeset
|
2 local String = require "luan:String" |
|
473e456444ff
Remove object-oriented primitive methods for string and binary
Franklin Schmidt <fschmidt@gmail.com>
parents:
508
diff
changeset
|
3 local matches = String.matches |
| 503 | 4 local Http = require "luan:http/Http" |
| 5 | |
| 6 local M = {} | |
| 7 | |
| 8 M.welcome_file = "index.html" | |
| 508 | 9 M.cookie = {} |
| 503 | 10 |
| 11 function M.get_page(path) | |
|
539
473e456444ff
Remove object-oriented primitive methods for string and binary
Franklin Schmidt <fschmidt@gmail.com>
parents:
508
diff
changeset
|
12 if M.welcome_file ~= nil and matches(path,".*/") then |
| 503 | 13 path = path .. M.welcome_file |
| 14 end | |
| 15 local old_out = Io.stdout | |
| 16 local mod = require("site:"..path) | |
|
505
7bc63886d4f2
web page modules now return a function
Franklin Schmidt <fschmidt@gmail.com>
parents:
503
diff
changeset
|
17 mod() |
| 503 | 18 M.text_writer.close() |
| 19 Io.stdout = old_out | |
| 20 return M.result.read_text() | |
| 21 end | |
| 22 | |
| 23 function M.init() | |
| 24 Http.request = Http.new_request{} | |
| 508 | 25 Http.request.cookie = M.cookie |
| 503 | 26 |
| 27 Http.response = Http.new_response{ | |
| 28 | |
| 29 text_writer = function() | |
| 571 | 30 Http.response.headers = nil |
| 503 | 31 M.result = Io.uri "string:" |
| 32 M.text_writer = M.result.text_writer() | |
| 33 return M.text_writer | |
| 34 end; | |
| 35 | |
| 36 set_cookie = function(name,value) | |
| 508 | 37 M.cookie[name] = value |
| 503 | 38 end; |
| 39 | |
| 40 remove_cookie = function(name) | |
| 508 | 41 M.cookie[name] = nil |
| 503 | 42 end; |
| 43 | |
| 44 send_redirect = function(url) | |
| 45 Http.response.redirect = url | |
| 46 end; | |
| 47 | |
| 48 } | |
| 49 | |
| 50 end | |
| 51 | |
| 52 return M |