libexec/httpd/lua/glue.c

   1 /*-
   2  * Copyright (c) 2009 The NetBSD Foundation, Inc.
   3  * All rights reserved.
   4  *
   5  * This code is derived from software contributed to The NetBSD Foundation
   6  * by Alistair Crooks (agc@netbsd.org)
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  18  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  19  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  20  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  21  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  22  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  23  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  25  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  26  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  27  * POSSIBILITY OF SUCH DAMAGE.
  28  */
  29 #include <sys/types.h>
  30 #include <sys/param.h>
  31 #include <sys/stat.h>
  32
  33 #include <bozohttpd.h>
  34 #include <inttypes.h>
  35 #include <string.h>
  36 #include <stdio.h>
  37 #include <stdlib.h>
  38 #include <unistd.h>
  39
  40 #define LUA_LIB
  41 #include <lua.h>
  42 #include <lauxlib.h>
  43 #include <lualib.h>
  44
  45 #ifndef __UNCONST
  46 #define __UNCONST(a) ((void *)(unsigned long)(const void *)(a))
  47 #endif /* !__UNCONST */
  48
  49 int luaopen_bozohttpd(lua_State *);
  50
  51 #if 0
  52 typedef struct strarg_t {
  53         const char      *s;     /* string */
  54         const int        n;     /* corresponding int value */
  55 } strarg_t;
  56
  57 /* map a string onto an int */
  58 static int
  59 findtype(strarg_t *strs, const char *s)
  60 {
  61         strarg_t        *sp;
  62
  63         for (sp = strs ; sp->s && strcasecmp(sp->s, s) != 0 ; sp++) {
  64         }
  65         return sp->n;
  66 }
  67 #endif
  68
  69 /* init() */
  70 static int
  71 l_new(lua_State *L)
  72 {
  73         bozohttpd_t     *httpd;
  74
  75         httpd = lua_newuserdata(L, sizeof(*httpd));
  76         (void) memset(httpd, 0x0, sizeof(*httpd));
  77         return 1;
  78 }
  79
  80 /* initialise(httpd) */
  81 static int
  82 l_init_httpd(lua_State *L)
  83 {
  84         bozohttpd_t     *httpd;
  85
  86         httpd = lua_touserdata(L, 1);
  87         lua_pushnumber(L, bozo_init_httpd(httpd));
  88         return 1;
  89 }
  90
  91 /* initialise(prefs) */
  92 static int
  93 l_init_prefs(lua_State *L)
  94 {
  95         bozoprefs_t     *prefs;
  96
  97         prefs = lua_newuserdata(L, sizeof(*prefs));
  98         (void) memset(prefs, 0x0, sizeof(*prefs));
  99         (void) bozo_init_prefs(prefs);
 100         return 1;
 101 }
 102
 103 /* bozo_set_pref(prefs, name, value) */
 104 static int
 105 l_bozo_set_pref(lua_State *L)
 106 {
 107         bozoprefs_t     *prefs;
 108         const char      *name;
 109         const char      *value;
 110
 111         prefs = lua_touserdata(L, 1);
 112         name = luaL_checkstring(L, 2);
 113         value = luaL_checkstring(L, 3);
 114         lua_pushnumber(L, bozo_set_pref(prefs, name, value));
 115         return 1;
 116 }
 117
 118 /* bozo_get_pref(prefs, name) */
 119 static int
 120 l_bozo_get_pref(lua_State *L)
 121 {
 122         bozoprefs_t     *prefs;
 123         const char      *name;
 124
 125         prefs = lua_touserdata(L, 1);
 126         name = luaL_checkstring(L, 2);
 127         lua_pushstring(L, bozo_get_pref(prefs, name));
 128         return 1;
 129 }
 130
 131 /* bozo_setup(httpd, prefs, host, root) */
 132 static int
 133 l_bozo_setup(lua_State *L)
 134 {
 135         bozohttpd_t     *httpd;
 136         bozoprefs_t     *prefs;
 137         const char      *vhost;
 138         const char      *root;
 139
 140         httpd = lua_touserdata(L, 1);
 141         prefs = lua_touserdata(L, 2);
 142         vhost = luaL_checkstring(L, 3);
 143         if (vhost && *vhost == 0x0) {
 144                 vhost = NULL;
 145         }
 146         root = luaL_checkstring(L, 4);
 147         lua_pushnumber(L, bozo_setup(httpd, prefs, vhost, root));
 148         return 1;
 149 }
 150
 151 /* bozo_read_request(httpd) */
 152 static int
 153 l_bozo_read_request(lua_State *L)
 154 {
 155         bozo_httpreq_t  *req;
 156         bozohttpd_t     *httpd;
 157
 158         httpd = lua_touserdata(L, 1);
 159         req = bozo_read_request(httpd);
 160         lua_pushlightuserdata(L, req);
 161         return 1;
 162 }
 163
 164 /* bozo_process_request(httpd, req) */
 165 static int
 166 l_bozo_process_request(lua_State *L)
 167 {
 168         bozo_httpreq_t  *req;
 169         bozohttpd_t     *httpd;
 170
 171         httpd = lua_touserdata(L, 1);
 172         req = lua_touserdata(L, 2);
 173         bozo_process_request(httpd, req);
 174         lua_pushnumber(L, 1);
 175         return 1;
 176 }
 177
 178 /* bozo_clean_request(req) */
 179 static int
 180 l_bozo_clean_request(lua_State *L)
 181 {
 182         bozo_httpreq_t  *req;
 183
 184         req = lua_touserdata(L, 1);
 185         bozo_clean_request(req);
 186         lua_pushnumber(L, 1);
 187         return 1;
 188 }
 189
 190 /* dynamic_mime(httpd, one, two, three, four) */
 191 static int
 192 l_bozo_dynamic_mime(lua_State *L)
 193 {
 194         bozohttpd_t     *httpd;
 195         const char      *s[4];
 196
 197         httpd = lua_touserdata(L, 1);
 198         s[0] = luaL_checkstring(L, 2);
 199         s[1] = luaL_checkstring(L, 3);
 200         s[2] = luaL_checkstring(L, 4);
 201         s[3] = luaL_checkstring(L, 5);
 202         bozo_add_content_map_mime(httpd, s[0], s[1], s[2], s[3]);
 203         lua_pushnumber(L, 1);
 204         return 1;
 205 }
 206
 207 /* ssl_set_opts(httpd, one, two) */
 208 static int
 209 l_bozo_ssl_set_opts(lua_State *L)
 210 {
 211         bozohttpd_t     *httpd;
 212         const char      *s[2];
 213
 214         httpd = lua_touserdata(L, 1);
 215         s[0] = luaL_checkstring(L, 2);
 216         s[1] = luaL_checkstring(L, 3);
 217         bozo_ssl_set_opts(httpd, s[0], s[1]);
 218         lua_pushnumber(L, 1);
 219         return 1;
 220 }
 221
 222 /* cgi_setbin(httpd, bin) */
 223 static int
 224 l_bozo_cgi_setbin(lua_State *L)
 225 {
 226         bozohttpd_t     *httpd;
 227         const char      *bin;
 228
 229         httpd = lua_touserdata(L, 1);
 230         bin = luaL_checkstring(L, 2);
 231         bozo_cgi_setbin(httpd, bin);
 232         lua_pushnumber(L, 1);
 233         return 1;
 234 }
 235
 236 /* cgi_map(httpd, 1, 2) */
 237 static int
 238 l_bozo_cgi_map(lua_State *L)
 239 {
 240         bozohttpd_t     *httpd;
 241         const char      *s[2];
 242
 243         httpd = lua_touserdata(L, 1);
 244         s[0] = luaL_checkstring(L, 2);
 245         s[1] = luaL_checkstring(L, 3);
 246         bozo_add_content_map_cgi(httpd, s[0], s[1]);
 247         lua_pushnumber(L, 1);
 248         return 1;
 249 }
 250
 251 const struct luaL_reg libluabozohttpd[] = {
 252         { "new",                l_new },
 253         { "init_httpd",         l_init_httpd },
 254         { "init_prefs",         l_init_prefs },
 255
 256         { "set_pref",           l_bozo_set_pref },
 257         { "get_pref",           l_bozo_get_pref },
 258         { "setup",              l_bozo_setup },
 259         { "dynamic_mime",       l_bozo_dynamic_mime },
 260         { "ssl_set_opts",       l_bozo_ssl_set_opts },
 261         { "cgi_setbin",         l_bozo_cgi_setbin },
 262         { "cgi_map",            l_bozo_cgi_map },
 263
 264         { "read_request",       l_bozo_read_request },
 265         { "process_request",    l_bozo_process_request },
 266         { "clean_request",      l_bozo_clean_request },
 267
 268         { NULL,                 NULL }
 269 };
 270
 271 int
 272 luaopen_bozohttpd(lua_State *L)
 273 {
 274         luaL_openlib(L, "bozohttpd", libluabozohttpd, 0);
 275         return 1;
 276 }