GSoC Commit #1: LuCId + HTTP-Server
[project/luci.git] / libs / lucid-http / luasrc / lucid / http / DirectoryPublisher.lua
1 --[[
2 LuCId HTTP-Slave
3 (c) 2009 Steven Barth <steven@midlink.org>
4
5 Licensed under the Apache License, Version 2.0 (the "License");
6 you may not use this file except in compliance with the License.
7 You may obtain a copy of the License at
8
9 http://www.apache.org/licenses/LICENSE-2.0
10
11 $Id$
12 ]]--
13
14 local ipairs, require, tostring, type = ipairs, require, tostring, type
15 local file = require "luci.lucid.http.handler.file"
16 local srv = require "luci.lucid.http.server"
17
18 module "luci.lucid.http.DirectoryPublisher"
19
20
21 function factory(server, config)
22 config.domain = config.domain or ""
23 local vhost = server:get_vhosts()[config.domain]
24 if not vhost then
25 vhost = srv.VHost()
26 server:set_vhost(config.domain, vhost)
27 end
28
29 local handler = file.Simple(config.name, config.physical, config)
30 if config.read then
31 for _, r in ipairs(config.read) do
32 if r:sub(1,1) == ":" then
33 handler:restrict({interface = r:sub(2)})
34 else
35 handler:restrict({user = r})
36 end
37 end
38 end
39
40 if type(config.virtual) == "table" then
41 for _, v in ipairs(config.virtual) do
42 vhost:set_handler(v, handler)
43 end
44 else
45 vhost:set_handler(config.virtual, handler)
46 end
47 end