Mercurial Hosting > luan
view http/src/luan/modules/http/Http_test.luan @ 572:f1601a4ce1aa
fix stack when calling meta-methods
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Sun, 12 Jul 2015 21:34:23 -0600 |
parents | cd944b010f25 |
children | 1e69d9c21461 |
line wrap: on
line source
local Luan = require "luan:Luan" local error = Luan.error local set_metatable = Luan.set_metatable or error() local Io = require "luan:Io" local String = require "luan:String" local matches = String.matches or error() local Http = require "luan:http/Http" local M = {} M.welcome_file = "index.html" M.cookie = {} function M.get_page(path) if M.welcome_file ~= nil and matches(path,".*/") then path = path .. M.welcome_file end local old_out = Io.stdout local mod = require("site:"..path) mod() M.text_writer.close() Io.stdout = old_out return M.result.read_text() end function M.init() Http.request = Http.new_request{} Http.request.cookie = M.cookie Http.response = Http.new_response{ text_writer = function() set_metatable(Http.response.headers,M.sent_error_metatable) M.result = Io.uri "string:" M.text_writer = M.result.text_writer() return M.text_writer end; set_cookie = function(name,value) M.cookie[name] = value end; remove_cookie = function(name) M.cookie[name] = nil end; send_redirect = function(url) Http.response.redirect = url end; } end return M