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 printf("Status: 500 Internal Server Error\r\n\r\n"
199 "Exception while executing ucode program %s:\n",
200 current_prefix
->handler
);
203 case EXCEPTION_SYNTAX
: printf("Syntax error"); break;
204 case EXCEPTION_RUNTIME
: printf("Runtime error"); break;
205 case EXCEPTION_TYPE
: printf("Type error"); break;
206 case EXCEPTION_REFERENCE
: printf("Reference error"); break;
207 default: printf("Error");
210 printf(": %s\n", ex
->message
);
212 ctx
= ucv_object_get(ucv_array_get(ex
->stacktrace
, 0), "context", NULL
);
215 printf("%s\n", ucv_string_get(ctx
));
219 uh_ucode_state_init(struct ucode_prefix
*ucode
)
221 char *syntax_error
= NULL
;
222 uc_vm_t
*vm
= &ucode
->ctx
;
223 uc_function_t
*handler
;
224 uc_vm_status_t status
;
229 uc_vm_init(vm
, &config
);
230 uc_stdlib_load(uc_vm_scope_get(vm
));
232 /* build uhttpd api table */
233 v
= ucv_object_new(vm
);
235 ucv_object_add(v
, "send", ucv_cfunction_new("send", uh_ucode_send
));
236 ucv_object_add(v
, "sendc", ucv_get(ucv_object_get(v
, "send", NULL
)));
237 ucv_object_add(v
, "recv", ucv_cfunction_new("recv", uh_ucode_recv
));
238 ucv_object_add(v
, "urldecode", ucv_cfunction_new("urldecode", uh_ucode_urldecode
));
239 ucv_object_add(v
, "urlencode", ucv_cfunction_new("urlencode", uh_ucode_urlencode
));
240 ucv_object_add(v
, "docroot", ucv_string_new(conf
.docroot
));
242 ucv_object_add(uc_vm_scope_get(vm
), "uhttpd", v
);
244 src
= uc_source_new_file(ucode
->handler
);
247 fprintf(stderr
, "Error: Unable to open ucode handler: %s\n",
253 handler
= uc_compile(&config
, src
, &syntax_error
);
258 fprintf(stderr
, "Error: Unable to compile ucode handler: %s\n",
266 vm
->output
= fopen("/dev/null", "w");
269 fprintf(stderr
, "Error: Unable to open /dev/null for writing: %s\n",
275 status
= uc_vm_execute(vm
, handler
, &v
);
276 exitcode
= (int)ucv_int64_get(v
);
285 fprintf(stderr
, "Error: The ucode handler invoked exit(%d)\n", exitcode
);
286 exit(exitcode
? exitcode
: 1);
289 fprintf(stderr
, "Error: Compilation error while executing ucode handler\n");
293 fprintf(stderr
, "Error: Runtime error while executing ucode handler\n");
297 v
= ucv_object_get(uc_vm_scope_get(vm
), UH_UCODE_CB
, NULL
);
299 if (!ucv_is_callable(v
)) {
300 fprintf(stderr
, "Error: The ucode handler declares no " UH_UCODE_CB
"() callback.\n");
304 uc_vm_exception_handler_set(vm
, uh_ucode_exception
);
314 ucode_main(struct client
*cl
, struct path_info
*pi
, char *url
)
316 uc_vm_t
*vm
= ¤t_prefix
->ctx
;
317 uc_value_t
*req
, *hdr
, *res
;
318 int path_len
, prefix_len
;
319 struct blob_attr
*cur
;
324 /* new env table for this request */
325 req
= ucv_object_new(vm
);
327 prefix_len
= strlen(pi
->name
);
328 path_len
= strlen(url
);
329 str
= strchr(url
, '?');
335 path_len
= str
- url
;
338 if (prefix_len
> 0 && pi
->name
[prefix_len
- 1] == '/')
341 if (path_len
> prefix_len
) {
342 ucv_object_add(req
, "PATH_INFO",
343 ucv_string_new_length(url
+ prefix_len
, path_len
- prefix_len
));
346 for (var
= ops
->get_process_vars(cl
, pi
); var
->name
; var
++) {
350 ucv_object_add(req
, var
->name
, ucv_string_new(var
->value
));
353 ucv_object_add(req
, "HTTP_VERSION",
354 ucv_double_new(0.9 + (cl
->request
.version
/ 10.0)));
356 hdr
= ucv_object_new(vm
);
358 blob_for_each_attr(cur
, cl
->hdr
.head
, rem
)
359 ucv_object_add(hdr
, blobmsg_name(cur
), ucv_string_new(blobmsg_data(cur
)));
361 ucv_object_add(req
, "headers", hdr
);
363 res
= uc_vm_invoke(vm
, UH_UCODE_CB
, 1, req
);
372 ucode_handle_request(struct client
*cl
, char *url
, struct path_info
*pi
)
374 struct ucode_prefix
*p
;
375 static struct path_info _pi
;
377 list_for_each_entry(p
, &conf
.ucode_prefix
, list
) {
378 if (!ops
->path_match(p
->prefix
, url
))
382 pi
->name
= p
->prefix
;
383 pi
->phys
= p
->handler
;
387 if (!ops
->create_process(cl
, pi
, url
, ucode_main
)) {
388 ops
->client_error(cl
, 500, "Internal Server Error",
389 "Failed to create CGI process: %s",
396 ops
->client_error(cl
, 500, "Internal Server Error",
397 "Failed to lookup matching handler");
401 check_ucode_url(const char *url
)
403 struct ucode_prefix
*p
;
405 list_for_each_entry(p
, &conf
.ucode_prefix
, list
)
406 if (ops
->path_match(p
->prefix
, url
))
412 static struct dispatch_handler ucode_dispatch
= {
414 .check_url
= check_ucode_url
,
415 .handle_request
= ucode_handle_request
,
419 ucode_plugin_init(const struct uhttpd_ops
*o
, struct config
*c
)
421 struct ucode_prefix
*p
;
426 list_for_each_entry(p
, &conf
.ucode_prefix
, list
)
427 uh_ucode_state_init(p
);
429 ops
->dispatch_add(&ucode_dispatch
);
433 struct uhttpd_plugin uhttpd_plugin
= {
434 .init
= ucode_plugin_init
,