Apache下的Lua的配置

時間 2019-11-08

標籤 apache lua 配置欄目 Apache 简体版

原文原文鏈接

前言

對於Apdche這個東西，絕大多數人都是很是熟悉的。不少人都會詬病這個Apache，說它效率不高並且很是消耗資源，而後會建議用Nginx。這些不可否認，可是我仍是很喜歡Apache，由於它比較穩定。
Apache關於Lua我不知道是哪個版本編譯進去了的，可是最新版的是有的。在Apache的bin目錄下有一個lua51.dll很明顯，這個是Lua5.1版本的，目前Lua已經到了5.3版本了，若是你想追求新的版本的話，你能夠本身把apache編譯一次。而後還有，在Apache的modules目錄下有一個mod_lua.so是開啓Apache和Lua「通訊橋樑」的文件。php

修改配置文件

找到含有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 = {
  ["<"] = "&lt;",
  [">"] = "&gt;",
  ["&"] ="&amp;",
}
local function safestring(...)
  return tostring(...):gsub("[<>&]", safe_replacements):gsub("\n", "<br/>\n")
end
local function emstring(...)
  return "&quot;<em>".. safestring(...) .."</em>&quot;"
end

local function print_info(info)
  print [[
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
  <head>
    <title>mod_lua info</title>
    <style type="text/css">
      body {
        background-color: #eef;
    color: black;
    font-family: sans-serif;
      }
      table {
        border-collapse: collapse;
    text-align: left;
    margin-left: auto;
    margin-right: auto;
      }
      table.head th {
        vertical-align: middle;
    background-color: #99c;
      }
      div.center {
        text-align: center;
      }
      h1 {
        margin: 0;
    padding: 0.3em 0;
      }
      td, th {
        border: 1px black solid;
    vertical-align: baseline;
    font-size: 75%;
      }
      th {
        background-color: #ccf;
      }
      td {
        background-color: #ccc;
      }
      ul {
        list-style: square;
    margin: 0;
    padding-left: 2em;
      }
    </style>
  </head>
  <body>
    <div class="center">
      <table class="head" width="600">
        <tr> <th><h1>mod_lua</h1></th> </tr>
      </table>
]]
  for group, settings in pairs(info) do
    print('

<h2><a name="'.. group:gsub("[^a-zA-Z]", "") ..'">'.. group .. "</a></h2>

")
    print [[


<table width="600">
]]
    for key, value in pairs(settings) do
      print("<tr> <th>".. key .."</th> <td>".. value .."</td> </tr>\n")
    end
    print "</table>

\n"
  end
  print [[
    </div>
  </body>
</html>
]]
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), "\n")),
      ["C package path"] = safestring(package.cpath:gsub(package.config:sub(3,3), "\n")),
      -- 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 .. "

<ul>"
            for field, v in pairs(value) do
              str = str .. "<li>" .. safestring(field) .. " ("
              if type(v) == "string" then
                str = str .. emstring(v)
              else
                str = str .. safestring(v)
              end
              str = str .. ")</li>"
            end
          str = str .. "</ul>

"
        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 = "

<ul>"
        for key, value in apr_table.pairs(value) do
          list = list .. "<li>" .. safestring(key) .. " (" .. emstring(value) .. ")</li>"
        end
        rinfo[field] = tostring(req[field]) .. list .. "</ul>

"
      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