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