2 * uhttpd - Tiny single-threaded httpd
4 * Copyright (C) 2010-2013 Jo-Philipp Wich <xm@subsignal.org>
5 * Copyright (C) 2013 Felix Fietkau <nbd@openwrt.org>
7 * Permission to use, copy, modify, and/or distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20 #include <libubox/blobmsg.h>
21 #include <ucode/compiler.h>
22 #include <ucode/lib.h>
30 #define UH_UCODE_CB "handle_request"
32 static const struct uhttpd_ops
*ops
;
33 static struct config
*_conf
;
36 static struct ucode_prefix
*current_prefix
;
39 uh_ucode_recv(uc_vm_t
*vm
, size_t nargs
)
41 static struct pollfd pfd
= { .fd
= STDIN_FILENO
, .events
= POLLIN
};
42 int data_len
= 0, len
= BUFSIZ
, rlen
, r
;
43 uc_value_t
*v
= uc_fn_arg(0);
46 if (ucv_type(v
) == UC_INTEGER
) {
47 len
= ucv_int64_get(v
);
50 uc_vm_raise_exception(vm
, EXCEPTION_TYPE
, "Argument not an integer");
55 buf
= ucv_stringbuf_new();
58 rlen
= (len
< BUFSIZ
) ? len
: BUFSIZ
;
60 if (printbuf_memset(buf
, -1, 0, rlen
)) {
61 uc_vm_raise_exception(vm
, EXCEPTION_RUNTIME
, "Out of memory");
68 r
= read(STDIN_FILENO
, buf
->buf
+ buf
->bpos
, rlen
);
71 if (errno
== EWOULDBLOCK
|| errno
== EAGAIN
) {
75 if (pfd
.revents
& POLLIN
)
97 /* add final guard \0 but do not count it */
98 if (printbuf_memset(buf
, -1, 0, 1)) {
99 uc_vm_raise_exception(vm
, EXCEPTION_RUNTIME
, "Out of memory");
107 return ucv_stringbuf_finish(buf
);
116 uh_ucode_send(uc_vm_t
*vm
, size_t nargs
)
118 uc_value_t
*val
= uc_fn_arg(0);
122 if (ucv_type(val
) == UC_STRING
) {
123 len
= write(STDOUT_FILENO
, ucv_string_get(val
), ucv_string_length(val
));
125 else if (val
!= NULL
) {
126 p
= ucv_to_string(vm
, val
);
127 len
= p
? write(STDOUT_FILENO
, p
, strlen(p
)) : 0;
134 return ucv_int64_new(len
);
138 uh_ucode_strconvert(uc_vm_t
*vm
, size_t nargs
, int (*convert
)(char *, int, const char *, int))
140 uc_value_t
*val
= uc_fn_arg(0);
141 static char out_buf
[4096];
145 if (ucv_type(val
) == UC_STRING
) {
146 out_len
= convert(out_buf
, sizeof(out_buf
),
147 ucv_string_get(val
), ucv_string_length(val
));
149 else if (val
!= NULL
) {
150 p
= ucv_to_string(vm
, val
);
151 out_len
= p
? convert(out_buf
, sizeof(out_buf
), p
, strlen(p
)) : 0;
162 error
= "buffer overflow";
164 error
= "malformed string";
166 uc_vm_raise_exception(vm
, EXCEPTION_RUNTIME
,
167 "%s on URL conversion\n", error
);
172 return ucv_string_new_length(out_buf
, out_len
);
176 uh_ucode_urldecode(uc_vm_t
*vm
, size_t nargs
)
178 return uh_ucode_strconvert(vm
, nargs
, ops
->urldecode
);
182 uh_ucode_urlencode(uc_vm_t
*vm
, size_t nargs
)
184 return uh_ucode_strconvert(vm
, nargs
, ops
->urlencode
);
187 static uc_parse_config_t config
= {
188 .strict_declarations
= false,
189 .lstrip_blocks
= true,
194 uh_ucode_exception(uc_vm_t
*vm
, uc_exception_t
*ex
)
198 if (ex
->type
== EXCEPTION_EXIT
)
201 printf("Status: 500 Internal Server Error\r\n\r\n"
202 "Exception while executing ucode program %s:\n",
203 current_prefix
->handler
);
206 case EXCEPTION_SYNTAX
: printf("Syntax error"); break;
207 case EXCEPTION_RUNTIME
: printf("Runtime error"); break;
208 case EXCEPTION_TYPE
: printf("Type error"); break;
209 case EXCEPTION_REFERENCE
: printf("Reference error"); break;
210 default: printf("Error");
213 printf(": %s\n", ex
->message
);
215 ctx
= ucv_object_get(ucv_array_get(ex
->stacktrace
, 0), "context", NULL
);
218 printf("%s\n", ucv_string_get(ctx
));
222 uh_ucode_state_init(struct ucode_prefix
*ucode
)
224 char *syntax_error
= NULL
;
225 uc_vm_t
*vm
= &ucode
->ctx
;
226 uc_program_t
*handler
;
227 uc_vm_status_t status
;
232 uc_vm_init(vm
, &config
);
233 uc_stdlib_load(uc_vm_scope_get(vm
));
234 uc_search_path_init(&config
.module_search_path
);
236 /* build uhttpd api table */
237 v
= ucv_object_new(vm
);
239 ucv_object_add(v
, "send", ucv_cfunction_new("send", uh_ucode_send
));
240 ucv_object_add(v
, "sendc", ucv_get(ucv_object_get(v
, "send", NULL
)));
241 ucv_object_add(v
, "recv", ucv_cfunction_new("recv", uh_ucode_recv
));
242 ucv_object_add(v
, "urldecode", ucv_cfunction_new("urldecode", uh_ucode_urldecode
));
243 ucv_object_add(v
, "urlencode", ucv_cfunction_new("urlencode", uh_ucode_urlencode
));
244 ucv_object_add(v
, "docroot", ucv_string_new(conf
.docroot
));
246 ucv_object_add(uc_vm_scope_get(vm
), "uhttpd", v
);
248 src
= uc_source_new_file(ucode
->handler
);
251 fprintf(stderr
, "Error: Unable to open ucode handler: %s\n",
257 handler
= uc_compile(&config
, src
, &syntax_error
);
262 fprintf(stderr
, "Error: Unable to compile ucode handler: %s\n",
270 vm
->output
= fopen("/dev/null", "w");
273 fprintf(stderr
, "Error: Unable to open /dev/null for writing: %s\n",
279 status
= uc_vm_execute(vm
, handler
, &v
);
280 exitcode
= (int)ucv_int64_get(v
);
282 uc_program_put(handler
);
290 fprintf(stderr
, "Error: The ucode handler invoked exit(%d)\n", exitcode
);
291 exit(exitcode
? exitcode
: 1);
294 fprintf(stderr
, "Error: Compilation error while executing ucode handler\n");
298 fprintf(stderr
, "Error: Runtime error while executing ucode handler\n");
302 v
= ucv_object_get(uc_vm_scope_get(vm
), UH_UCODE_CB
, NULL
);
304 if (!ucv_is_callable(v
)) {
305 fprintf(stderr
, "Error: The ucode handler declares no " UH_UCODE_CB
"() callback.\n");
309 uc_vm_exception_handler_set(vm
, uh_ucode_exception
);
319 ucode_main(struct client
*cl
, struct path_info
*pi
, char *url
)
321 uc_vm_t
*vm
= ¤t_prefix
->ctx
;
322 uc_value_t
*req
, *hdr
, *res
;
323 int path_len
, prefix_len
;
324 struct blob_attr
*cur
;
329 /* new env table for this request */
330 req
= ucv_object_new(vm
);
332 prefix_len
= strlen(pi
->name
);
333 path_len
= strlen(url
);
334 str
= strchr(url
, '?');
340 path_len
= str
- url
;
343 if (prefix_len
> 0 && pi
->name
[prefix_len
- 1] == '/')
346 if (path_len
> prefix_len
) {
347 ucv_object_add(req
, "PATH_INFO",
348 ucv_string_new_length(url
+ prefix_len
, path_len
- prefix_len
));
351 for (var
= ops
->get_process_vars(cl
, pi
); var
->name
; var
++) {
355 ucv_object_add(req
, var
->name
, ucv_string_new(var
->value
));
358 ucv_object_add(req
, "HTTP_VERSION",
359 ucv_double_new(0.9 + (cl
->request
.version
/ 10.0)));
361 hdr
= ucv_object_new(vm
);
363 blob_for_each_attr(cur
, cl
->hdr
.head
, rem
)
364 ucv_object_add(hdr
, blobmsg_name(cur
), ucv_string_new(blobmsg_data(cur
)));
366 ucv_object_add(req
, "headers", hdr
);
368 res
= uc_vm_invoke(vm
, UH_UCODE_CB
, 1, req
);
377 ucode_handle_request(struct client
*cl
, char *url
, struct path_info
*pi
)
379 struct ucode_prefix
*p
;
380 static struct path_info _pi
;
382 list_for_each_entry(p
, &conf
.ucode_prefix
, list
) {
383 if (!ops
->path_match(p
->prefix
, url
))
387 pi
->name
= p
->prefix
;
388 pi
->phys
= p
->handler
;
392 if (!ops
->create_process(cl
, pi
, url
, ucode_main
)) {
393 ops
->client_error(cl
, 500, "Internal Server Error",
394 "Failed to create CGI process: %s",
401 ops
->client_error(cl
, 500, "Internal Server Error",
402 "Failed to lookup matching handler");
406 check_ucode_url(const char *url
)
408 struct ucode_prefix
*p
;
410 list_for_each_entry(p
, &conf
.ucode_prefix
, list
)
411 if (ops
->path_match(p
->prefix
, url
))
417 static struct dispatch_handler ucode_dispatch
= {
419 .check_url
= check_ucode_url
,
420 .handle_request
= ucode_handle_request
,
424 ucode_plugin_init(const struct uhttpd_ops
*o
, struct config
*c
)
426 struct ucode_prefix
*p
;
431 list_for_each_entry(p
, &conf
.ucode_prefix
, list
)
432 uh_ucode_state_init(p
);
434 ops
->dispatch_add(&ucode_dispatch
);
438 struct uhttpd_plugin uhttpd_plugin
= {
439 .init
= ucode_plugin_init
,