资讯专栏INFORMATION COLUMN

Apache下的Lua的配置

AlienZHOU / 3386人阅读

摘要:找到含有的一行,去掉前边的。可能你需要修改的默认文档,在的位置按要求添加即可。写文件首先我们写一个的文件,作用就是会把我们的后缀修改为。

前言

对于Apdche这个东西,绝大多数人都是非常熟悉的。很多人都会诟病这个Apache,说它效率不高而且非常消耗资源,然后会建议用Nginx。这些不能否认,但是我还是很喜欢Apache,因为它比较稳定。
Apache关于Lua我不知道是哪一个版本编译进去了的,但是最新版的是有的。在Apache的bin目录下有一个lua51.dll很明显,这个是Lua5.1版本的,目前Lua已经到了5.3版本了,如果你想追求新的版本的话,你可以自己把apache编译一次。然后还有,在Apache的modules目录下有一个mod_lua.so是开启Apache和Lua“通信桥梁”的文件。

修改配置文件

找到含有mod_lua.so的一行,去掉前边的#即可。

找到含有mod_rewrite.so的一行,去掉前边的#。

可能你需要修改Apache的默认文档,在DirectoryIndex的位置按要求添加即可。

将AllowOverride后边的None写为All,表示在整台服务器上都开启了URL重写。

写Demo文件

首先我们写一个.htaccess的文件,作用就是会把我们的Lua后缀修改为php。,内容如下:

RewriteEngine on
RewriteCond %{REQUEST_FILENAME}   info
RewriteRule (.*).php    $1.lua [NC]

新建一个info.lua,写入内容如下:

-- Extend tostring to report function type (C or Lua)
do
  local type, tostr = type, tostring
  function tostring(obj)
    local type, val = type(obj), tostr(obj)
    if type == "function" then
      type = pcall(coroutine.create, obj) and "Lua " or "C " -- coroutines cannot start at a C function
      return type .. val
    else
      return val
    end
  end
end

local safe_replacements = {
  ["<"] = "<",
  [">"] = ">",
  ["&"] ="&",
}
local function safestring(...)
  return tostring(...):gsub("[<>&]", safe_replacements):gsub("
", "
") end local function emstring(...) return """.. safestring(...) ..""" end local function print_info(info) print [[ mod_lua info

mod_lua

]] for group, settings in pairs(info) do print("

".. group .. "

") print [[ ]] for key, value in pairs(settings) do print(" ") end print "
".. key .." ".. value .."
" end print [[
]] end local function compile_info(req) local info = {} do -- Lua compile options local dump = string.dump(function() end) local gc_pause = collectgarbage("setpause", 1); collectgarbage("setpause", gc_pause) local gc_stepmul = collectgarbage("setstepmul", 2); collectgarbage("setstepmul", gc_stepmul) info["Lua configuration"] = { -- Bytecode header is undocumented, see luaU_header in lundump.c Version = ("%i.%i"):format(math.floor(dump:byte(5) / 16), dump:byte(5) % 16), Endianness = dump:byte(7) == 1 and "little" or "big", int = dump:byte(8)*8 .. " bit integer", size_t = dump:byte(9)*8 .. " bit integer", ["VM instruction"] = dump:byte(10)*8 .. " bit integer", Number = dump:byte(11)*8 .. " bit " .. (dump:byte(12) == 1 and "integer" or "float"), -- package.config is undocumented, see luaopen_package in loadlib.c ["Path seperator"] = safestring(package.config:sub(1,1)), ["Lua package path"] = safestring(package.path:gsub(package.config:sub(3,3), " ")), ["C package path"] = safestring(package.cpath:gsub(package.config:sub(3,3), " ")), -- Garbage collection values _are_ documented :) ["GC count"] = ("%.0f bytes"):format(collectgarbage"count" * 1024), ["GC pause"] = ("%.0f%%"):format(gc_pause), ["GC step multiplier"] = ("%.0f%%"):format(gc_stepmul), } end do -- Globals local g = {} for key, value in pairs(getfenv(0)) do local typev = type(value) local str if typev == "table" then str = safestring(value) if value ~= getfenv(0) then -- don"t recursively follow _G str = str .. "
    " for field, v in pairs(value) do str = str .. "
  • " .. safestring(field) .. " (" if type(v) == "string" then str = str .. emstring(v) else str = str .. safestring(v) end str = str .. ")
  • " end str = str .. "
" end elseif typev == "string" then str = emstring(value) else str = safestring(value) end g[safestring(key)] = str end info.Globals = g end do -- Request object local rinfo = {} for _, field in pairs{"puts", "write", "document_root", "parseargs", "parsebody", "debug", "info", "notice", "warn", "err", "crit", "alert", "emerg", "add_output_filter", "assbackwards", "status", "protocol", "range", "content_type", "content_encoding", "ap_auth_type", "unparsed_uri", "user", "filename", "canonical_filename", "path_info", "args", "hostname", "uri", "the_request", "method", "headers_in", "headers_out"} do local value = req[field] if type(value) == "userdata" and apr_table and apr_table.pairs then local list = "
    " for key, value in apr_table.pairs(value) do list = list .. "
  • " .. safestring(key) .. " (" .. emstring(value) .. ")
  • " end rinfo[field] = tostring(req[field]) .. list .. "
" elseif type(value) == "string" then rinfo[field] = emstring(req[field]) else rinfo[field] = safestring(req[field]) end end info.Request = rinfo end do -- Arguments (query string) local args = req:parseargs() local args_clean = {} for key, value in pairs(args) do args_clean[safestring(key)] = emstring(value) end if next(args_clean) then info["Query string"] = args_clean end end return info end function handle(r) -- setup the environment r.content_type = "text/html" r.headers_out["X-Powered-By"] = "mod_lua; " .. _VERSION print = function(s) return r:write(tostring(s)) end -- run the main script local info = compile_info(r) print_info(info) -- finish return apache2.OK end
访问Demo

打开Apache,访问http://127.0.0.1/info.php 就能看到

文章版权归作者所有,未经允许请勿转载,若此文章存在违规行为,您可以联系管理员删除。

转载请注明本文地址:https://www.ucloud.cn/yun/35732.html

相关文章

  • 基于 Nginx 动态代理

    摘要:目前最常用的软件反向代理服务器有和。基于实现动态代理为了实现动态代理方案,需要在反向代理服务器中增加定制的功能。同时,由于反向代理服务器需要处理大量的代理请求,因此会频繁的读取反向代理配置数据。 基于 Nginx 的动态代理 作者:赵波日期:2016 年 8 月 4 日 在实际应用中,遇到了这样一个场景: 已有一个手机 APP 客户端,需要在该 APP 客户端中实现通过 Web 的形式...

    wean 评论0 收藏0

发表评论

0条评论

最新活动
阅读需要支付1元查看
<