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 } 277