openwrt/package/busybox/patches/510-awx.patch

--- a/editors/awk.c
+++ b/editors/awk.c
@@ -32,6 +32,11 @@
 /* these flags are static, don't change them when value is changed */
 #define	VF_DONTTOUCH    (VF_ARRAY | VF_SPECIAL | VF_WALK | VF_CHILD | VF_DIRTY)
 
+#ifdef CONFIG_AWX
+#define fputs(s, stream) fputs_hook(s, stream)
+static inline int fputs_hook (__const char *__restrict __s, FILE *__restrict __stream);
+#endif
+
 /* Variable */
 typedef struct var_s {
 	unsigned type;            /* flags */
@@ -53,9 +58,14 @@
 } chain;
 
 /* Function */
+typedef var *(*awk_cfunc)(var *res, var *args, int nargs);
 typedef struct func_s {
 	unsigned nargs;
+	enum { AWKFUNC, CFUNC } type;
+	union {
+		awk_cfunc cfunc;
 	struct chain_s body;
+	} x;
 } func;
 
 /* I/O stream */
@@ -1395,7 +1405,8 @@
 			next_token(TC_FUNCTION);
 			g_pos++;
 			f = newfunc(t_string);
-			f->body.first = NULL;
+			f->type = AWKFUNC;
+			f->x.body.first = NULL;
 			f->nargs = 0;
 			while (next_token(TC_VARIABLE | TC_SEQTERM) & TC_VARIABLE) {
 				v = findvar(ahash, t_string);
@@ -1404,7 +1415,7 @@
 				if (next_token(TC_COMMA | TC_SEQTERM) & TC_SEQTERM)
 					break;
 			}
-			seq = &(f->body);
+			seq = &(f->x.body);
 			chain_group();
 			clear_array(ahash);
 
@@ -2367,7 +2378,8 @@
 			break;
 
 		case XC( OC_FUNC ):
-			if (!op->r.f->body.first)
+			if ((op->r.f->type == AWKFUNC) &&
+				!op->r.f->x.body.first)
 				syntax_error(EMSG_UNDEF_FUNC);
 
 			X.v = R.v = nvalloc(op->r.f->nargs+1);
@@ -2384,7 +2396,10 @@
 			fnargs = X.v;
 
 			L.s = g_progname;
-			res = evaluate(op->r.f->body.first, res);
+			if (op->r.f->type == AWKFUNC)
+				res = evaluate(op->r.f->x.body.first, res);
+			else if (op->r.f->type == CFUNC)
+				res = op->r.f->x.cfunc(res, fnargs, op->r.f->nargs);
 			g_progname = L.s;
 
 			nvfree(fnargs);
@@ -2748,6 +2763,12 @@
 }
 
 int awk_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
+int awx_main(int argc, char **argv);
+
+#ifdef CONFIG_AWX
+static int is_awx = 0;
+#include "awx.c"
+#endif
 int awk_main(int argc, char **argv)
 {
 	unsigned opt;
@@ -2812,6 +2833,11 @@
 			*s1 = '=';
 		}
 	}
+
+#ifdef CONFIG_AWX
+	do_awx(argc, argv);
+#endif
+
 	opt_complementary = "v::f::"; /* -v and -f can occur multiple times */
 	opt = getopt32(argv, "F:v:f:W:", &opt_F, &list_v, &list_f, &opt_W);
 	argv += optind;
--- /dev/null
+++ b/editors/awx.c
@@ -0,0 +1,636 @@
+/*
+ * awk web extension
+ *
+ * Copyright (C) 2007 by Felix Fietkau <nbd@openwrt.org>
+ *
+ * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
+ */
+
+#include <cgi.h>
+#include <glob.h>
+#include "awx_parser.h"
+
+#define LINE_BUF 2048
+#define HASH_MAX	1536
+#define TR_START	"@TR<<"
+#define TR_END		">>"
+#define MAX_TR	32
+
+#undef fputs
+
+static xhash *lstr = NULL;
+static xhash *formvar = NULL;
+static int lang_inuse = 0;
+
+/* look up a translation symbol from the hash */
+static inline const char *translate_lookup(char *str)
+{
+	char *name, *def, *p;
+	hash_item *hi;
+	var *v;
+
+	def = name = str;
+	if (((p = strchr(str, '|')) != NULL)
+		|| ((p = strchr(str, '#')) != NULL)) {
+		def = p + 1;
+		*p = 0;
+	}
+	
+	hi = hash_search(lstr, name);
+	if (!hi)
+		return def;
+	
+	v = &hi->data.v;
+
+	return getvar_s(v);
+}
+
+/* look for translation markers in the line and return the translated string */
+static char *translate_line(char *line)
+{
+	const char *tok[MAX_TR * 3];
+	char *l, *p, *p2 = NULL, *res;
+	int len = 0, _pos = 0, i, tr_abort = 0;
+	static char *backlog = NULL;
+
+	if (backlog && line) {
+		backlog = xrealloc(backlog, strlen(backlog) + strlen(line) + 1);
+		sprintf(backlog + strlen(backlog), line);
+		l = backlog;
+	} else {
+		l = line;
+	}
+
+	while (l != NULL) {
+		if ((p = strstr(l, TR_START)) == NULL) {
+			len += strlen((tok[_pos++] = l));
+			break;
+		}
+
+		p2 = strstr(p, TR_END);
+		if (p2 == NULL) {
+			p2 = xstrdup(l);
+			tr_abort = 1;
+			break;
+		}
+
+		*p = 0;
+		len += strlen((tok[_pos++] = l));
+		*p2 = 0;
+		len += strlen((tok[_pos++] = translate_lookup(p + strlen(TR_START))));
+
+		l = p2;
+		l += strlen(TR_END);
+	}
+	len++;
+
+	p = xmalloc(len + 1);
+	*p = 0;
+	res = p;
+	for (i = 0; i < _pos; i++) {
+		strcat(p, tok[i]);
+		p += strlen(tok[i]);
+	}
+	if (backlog) {
+		free(backlog);
+		backlog = NULL;
+	}
+	if (tr_abort && p2)
+		backlog = p2;
+	
+	return res;
+}
+
+/* hook for intercepting awk's use of puts. used for running all printed strings
+ * through the translation system */
+static inline int fputs_hook (__const char *__restrict __s, FILE *__restrict __stream)
+{
+	if (lang_inuse && (__stream == stdout)) {
+		int ret;
+		char *str;
+	
+		str = translate_line((char *) __s);
+		ret = fputs(str, __stream);
+		free(str);
+
+		return ret;
+	}
+
+	return fputs(__s, __stream);
+}
+
+static var *init_lang(var *res, var *args, int nargs)
+{
+	if (!lstr)
+		lstr = hash_init();
+
+	lang_inuse = 1;
+	return res;
+}
+
+
+/* load and parse language file */
+static void load_lang_file(char *file)
+{
+	FILE *f;
+	char *b, *name, *value;
+	char buf1[LINE_BUF];
+
+	if ((f = fopen(file, "r")) == NULL)
+		return;
+
+	while (!feof(f) && (fgets(buf1, LINE_BUF - 1, f) != NULL)) {
+		b = buf1;
+		if (*b == '#')
+			continue; /* skip comments */
+
+		while (isspace(*b))
+			b++; /* skip leading spaces */
+		if (!*b)
+			continue;
+		
+		name = b;
+		if ((b = strstr(name, "=>")) == NULL)
+			continue; /* separator not found */
+
+		value = b + 2;
+		if (!*value)
+			continue;
+		
+		*b = 0;
+		for (b--; isspace(*b); b--)
+			*b = 0; /* remove trailing spaces */
+		
+		while (isspace(*value))
+			value++; /* skip leading spaces */
+
+		for (b = value + strlen(value) - 1; isspace(*b); b--)
+			*b = 0; /* remove trailing spaces */
+		
+		if (!*value)
+			continue;
+
+		setvar_s(findvar(lstr,name), value);
+	}
+
+	fclose(f);
+}
+
+static var *load_lang(var *res, var *args, int nargs)
+{
+	const char *langfmt = "/usr/lib/webif/lang/%s.txt";
+	char lbuf[LINE_BUF];
+	const char *lang;
+
+	if (!lang_inuse)
+		init_lang(res, args, nargs);
+	
+	lang = getvar_s(args);
+	if (!lang || !strcmp(lang, ""))
+		return res;
+
+	sprintf(lbuf, langfmt, lang);
+	load_lang_file(lbuf);
+
+	return res;	
+}
+		
+/* read the contents of an entire file */
+static char *get_file(const char *fname)
+{
+	FILE *F;
+	char *s = NULL;
+	int i, j, flen;
+
+	F = fopen(fname, "r");
+	if (!F) {
+		return NULL;
+	}
+
+	if (fseek(F, 0, SEEK_END) == 0) {
+		flen = ftell(F);
+		s = (char *)xmalloc(flen+4);
+		fseek(F, 0, SEEK_SET);
+		i = 1 + fread(s+1, 1, flen, F);
+	} else {
+		for (i=j=1; j>0; i+=j) {
+			s = (char *)xrealloc(s, i+4096);
+			j = fread(s+i, 1, 4094, F);
+		}
+	}
+
+	s[i] = '\0';
+	fclose(F);
+	return s;
+}
+
+
+/* parse_include():
+ * 
+ * taken from parse_program from awk.c
+ * END{} is not parsed here, and BEGIN{} is executed immediately
+ */
+static void parse_include(char *p)
+{
+	uint32_t tclass;
+	chain *initseq = NULL;
+	chain tmp;
+	func *f;
+	var *v, *tv;
+
+	tv = nvalloc(1);
+	memset(&tmp, 0, sizeof(tmp));
+	g_pos = p;
+	t_lineno = 1;
+	while ((tclass = next_token(TC_EOF | TC_OPSEQ |
+				TC_OPTERM | TC_BEGIN | TC_FUNCDECL)) != TC_EOF) {
+		if (tclass & TC_OPTERM)
+			continue;
+
+		seq = &tmp;
+		if (tclass & TC_BEGIN) {
+			initseq = xzalloc(sizeof(chain));
+			seq = initseq;
+			chain_group();
+		} else if (tclass & TC_FUNCDECL) {
+			next_token(TC_FUNCTION);
+			g_pos++;
+			f = newfunc(t_string);
+			f->type = AWKFUNC;
+			f->x.body.first = NULL;
+			f->nargs = 0;
+			while (next_token(TC_VARIABLE | TC_SEQTERM) & TC_VARIABLE) {
+				v = findvar(ahash, t_string);
+				v->x.aidx = (f->nargs)++;
+
+				if (next_token(TC_COMMA | TC_SEQTERM) & TC_SEQTERM)
+					break;
+			}
+			seq = &(f->x.body);
+			chain_group();
+			clear_array(ahash);
+		}
+	}
+	if (initseq && initseq->first)
+		tv = evaluate(initseq->first, tv);
+	nvfree(tv);
+}
+
+
+/* include an awk file and run its BEGIN{} section */
+static xhash *includes = NULL;
+static void include_file(const char *filename)
+{
+	char *s;
+	var *v;
+	int oldlnr = g_lineno;
+	const char *oldprg = g_progname;
+
+	if (!includes)
+		includes = hash_init();
+	
+	/* find out if the file has been included already */
+	v = findvar(includes, filename);
+	if (istrue(v))
+		return;
+	setvar_s(v, "1");
+
+	/* read include file */
+	s = get_file(filename);
+	if (!s) {
+		fprintf(stderr, "Could not open file.\n");
+		return;
+	}
+	g_lineno = 1;
+	g_progname = xstrdup(filename);
+	parse_include(s+1);
+	free(s);
+	g_lineno = oldlnr;
+	g_progname = oldprg;
+}
+
+static var *include(var *res, var *args, int nargs)
+{
+	const char *s;
+
+	s = getvar_s(args);
+	if (s && (strlen(s) > 0))
+		include_file(s);
+
+	return res;
+}
+
+/* parse an awk expression */
+static var *parse_awk(char *str, var *tv)
+{
+	chain body;
+	node *n;
+
+	memset(&body, 0, sizeof(body));
+	g_pos = str;
+	seq = &body;
+	
+	/* end of expression, assume that there's going to be a free byte
+	 * at the end of the string that can be used for the ')' */
+	strcat(str + strlen(str), "}");
+	n = parse_expr(TC_GRPTERM);
+	if (!n)
+		return NULL;
+
+	return evaluate(n, tv);
+}
+
+static inline void print_translate(char *s)
+{
+	char *str = s;
+	if (lang_inuse)
+		str = translate_line(s);
+	fputs(str, stdout);
+	fflush(stdout);
+	if (lang_inuse)
+		free(str);
+}
+
+static void render_element(struct template_cb *tcb, struct template_element *e)
+{
+	var *v;
+	char *s, *s2;
+	int i;
+	
+	if (!e || !e->var)
+		return;
+	g_lineno = e->line;
+	switch (e->t) {
+		case T_TEXT:
+			s = malloc(strlen(e->var) + 2);
+			strcpy(s, e->var);
+			print_translate(s);
+			free(s);
+			break;
+		case T_CODE:
+			s = malloc(strlen(e->var) + 2);
+			strcpy(s, e->var);
+			v = nvalloc(1);
+			s2 = strdup(getvar_s(parse_awk(s, v)));
+			nvfree(v);
+			print_translate(s2);
+			free(s);
+			free(s2);
+			break;
+		case T_IF:
+			s = malloc(strlen(e->var) + 2);
+			strcpy(s, e->var);
+			v = nvalloc(1);
+			i = istrue(parse_awk(s, v));
+			nvfree(v);
+			free(s);
+
+			if (i)
+				execute_template(tcb, e->sub);
+			else if (e->sub2)
+				execute_template(tcb, e->sub2);
+			break;
+		case T_FOR: {
+				v = newvar(e->var);
+				hashwalk_init(v, iamarray(findvar(vhash, e->in)));
+				while (hashwalk_next(v)) {
+					execute_template(tcb, e->sub);
+				}
+				clrvar(v);
+			}
+			break;
+		default:
+			break;
+	}
+}
+
+/* awk method render(), which opens a template file and processes all awk ssi calls */
+static void render_file(const char *filename)
+{
+	struct template_cb tcb;
+	struct template_element *e;
+	FILE *f;
+	const char *oldprg = g_progname;
+	int oldlnr = g_lineno;
+	
+	if (!filename)
+		return;
+
+	f = fopen(filename, "r");
+	if (!f)
+		return;
+	
+	g_progname = xstrdup(filename);
+	g_lineno = 1;
+	memset(&tcb, 0, sizeof(tcb));
+	tcb.handle_element = render_element;
+	e = parse_template(&tcb, f);
+	execute_template(&tcb, e);
+	free_template(&tcb, e);
+	fclose(f);
+	g_progname = oldprg;
+	g_lineno = oldlnr;
+}
+
+static var *render(var *res, var *args, int nargs)
+{
+	const char *s;
+
+	s = getvar_s(args);
+	if (!s)
+		return res;
+
+	render_file(s);
+	
+	return res;
+}
+		
+/* Call render, but only if this function hasn't been called already */
+static int layout_rendered = 0;
+static var *render_layout(var *res, var *args, int nargs)
+{
+	if (layout_rendered)
+		return res;
+	layout_rendered = 1;
+	return render(res, args, nargs);
+}
+
+/* registers a global c function for the awk interpreter */
+static void register_cfunc(const char *name, awk_cfunc cfunc, int nargs)
+{
+	func *f;
+
+	f = newfunc(name);
+	f->type = CFUNC;
+	f->x.cfunc = cfunc;
+	f->nargs = nargs;
+}
+
+static void putvar(vartype type, char *name, char *value)
+{
+	if (type != FORM_VAR)
+		return;
+
+	setvar_u(findvar(formvar, name), value);
+}
+
+static const char *cgi_getvar(const char *name)
+{
+	if (!formvar) {
+		formvar = hash_init();
+		cgi_init(putvar);
+	}
+
+	if (!formvar || !name)
+		return NULL;
+	
+	return getvar_s(findvar(formvar, name));
+}
+
+/* function call for accessing cgi form variables */
+static var *getvar(var *res, var *args, int nargs)
+{
+	const char *s, *svar;
+
+	s = getvar_s(args);
+	if (!s)
+		return res;
+	
+	svar = cgi_getvar(s);
+	if (!svar)
+		return res;
+
+	setvar_u(res, svar);
+
+	return res;
+}
+
+/* call an awk function without arguments by string reference */
+static var *call(var *res, var *args, int nargs)
+{
+	const char *s = getvar_s(args);
+	func *f;
+
+	if (!s)
+		goto done;
+	
+	f = newfunc(s);
+	if (f && f->type == AWKFUNC && f->x.body.first)
+		return evaluate(f->x.body.first, res);
+
+done:
+	return res;
+}
+
+
+static int run_awxscript(char *name)
+{
+	var tv, *layout, *action;
+	char *tmp, *s = NULL;
+
+	zero_out_var(&tv);
+	g_progname = name;
+
+	/* read the main controller source */
+	s = get_file(g_progname);
+	if (!s) {
+		fprintf(stderr, "Could not open file\n");
+		return 1;
+	}
+	parse_program(s+1);
+	free(s);
+
+
+	/* set some defaults for ACTION and LAYOUT, which will have special meaning */
+	layout = newvar("LAYOUT");
+	setvar_s(layout, "views/layout.ahtml");
+
+	/* run the BEGIN {} block */
+	evaluate(beginseq.first, &tv);
+
+	action = newvar("ACTION");
+	if (!(strlen(getvar_s(action)) > 0)) {
+		tmp = (char *) cgi_getvar("action");
+		if (!tmp || (strlen(tmp) <= 0))
+			tmp = strdup("default");
+
+		setvar_p(action, tmp);
+	}
+	
+	/* call the action (precedence: begin block override > cgi parameter > "default") */
+	tmp = xmalloc(strlen(getvar_s(action)) + 7);
+	sprintf(tmp, "handle_%s", getvar_s(action));
+	setvar_s(action, tmp);
+	call(&tv, action, 1);
+	free(tmp);
+
+	/* render the selected layout, will do nothing if render_layout has been called from awk */
+	render_layout(&tv, layout, 1);
+
+	return 0;
+}
+
+
+/* main awx processing function. called from awk_main() */
+static int do_awx(int argc, char **argv)
+{
+	int ret = -1;
+	var tv;
+	int i, c;
+	char **args = argv;
+	
+	zero_out_var(&tv);
+
+	/* register awk C callbacks */
+	register_cfunc("getvar", getvar, 1);
+	register_cfunc("render", render, 1);
+	register_cfunc("render_layout", render_layout, 1);
+	register_cfunc("call", call, 1);
+	register_cfunc("include", include, 1);
+	register_cfunc("init_lang", init_lang, 1);
+	register_cfunc("load_lang", load_lang, 1);
+
+	if (!is_awx)
+		return 0;
+
+	/* fill in ARGV array */
+	setvar_i(intvar[ARGC], argc + 1);
+	setari_u(intvar[ARGV], 0, "awx");
+	i = 0;
+	while (*args)
+		setari_u(intvar[ARGV], ++i, *args++);
+	
+	while((c = getopt(argc, argv, "i:f:")) != EOF) {
+		switch(c) {
+			case 'i':
+				g_progname = optarg;
+				include_file(optarg);
+				break;
+			case 'f':
+				ret = 0;
+				g_progname = optarg;
+				render_file(optarg);
+				goto done;
+		}
+	}
+	argc -= optind;
+	argv += optind;
+
+	if (argc < 1) {
+		fprintf(stderr, "Invalid argument.\n");
+		goto done;
+	}
+
+	ret = run_awxscript(*argv);
+
+done:
+	exit(ret);
+}
+
+/* entry point for awx applet */
+int awx_main(int argc, char **argv)
+{
+	is_awx = 1;
+	return awk_main(argc, argv);
+}
+
--- /dev/null
+++ b/editors/awx_parser.h
@@ -0,0 +1,38 @@
+#ifndef __TEMPLATE_PARSER_H
+#define __TEMPLATE_PARSER_H
+
+enum type {
+	T_TEXT,
+	T_FOR,
+	T_IF,
+	T_CODE
+};
+
+struct template_element;
+struct template_cb;
+
+struct template_cb {
+	void *(*prepare_code)(struct template_element *);
+	void (*handle_element)(struct template_cb *, struct template_element *);
+	void (*free_code)(struct template_element *);
+};
+
+struct template_element {
+	enum type t;
+	char *var;
+	char *in;
+	int line;
+	void *priv;
+	struct template_element *parent;
+	struct template_element *sub;
+	struct template_element *sub2;
+	struct template_element *prev;
+	struct template_element *next;
+};
+
+
+struct template_element *parse_template(struct template_cb *cb, FILE *in);
+void execute_template(struct template_cb *cb, struct template_element *e);
+void free_template(struct template_cb *cb, struct template_element *e);
+
+#endif
--- /dev/null
+++ b/editors/awx_parser.l
@@ -0,0 +1,302 @@
+%{
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "busybox.h"
+#include "awx_parser.h"
+
+enum {
+	S_INIT,
+	S_TEXT,
+	S_CODE,
+	S_IF_START,
+	S_FOR_START,
+	S_FOR_IN,
+	S_END,
+	S_ELSE,
+	S_EOF
+}; 
+int state;
+
+#undef DEBUG
+#ifdef DEBUG
+char *statestr[] = {
+	[S_INIT] = "S_INIT",
+	[S_TEXT] = "S_TEXT",
+	[S_CODE] = "S_CODE",
+	[S_IF_START] = "S_IF_START",
+	[S_FOR_START] = "S_FOR_START",
+	[S_FOR_IN] = "S_FOR_IN",
+	[S_EOF] = "S_EOF"
+};
+
+char *typestr[] = {
+	[T_TEXT] = "T_TEXT",
+	[T_FOR] = "T_FOR",
+	[T_IF] = "T_IF",
+	[T_CODE] = "T_CODE"
+};
+#endif
+
+static struct template_cb *parse_cb;
+static struct template_element *cur, *head;
+static char *textbuf;
+static unsigned int buflen;
+static unsigned int buf_offset;
+static int _lnr = 0;
+
+static void buf_realloc(void)
+{
+	buflen *= 2;
+	textbuf = xrealloc(textbuf, buflen);
+}
+
+static void parse_error(char *str)
+{
+	fprintf(stderr, "Parse error%s%s\n", (str ? ": " : "!"), (str ?: ""));
+	exit(255);
+}
+
+
+static struct template_element *new_template_element(struct template_element *parent)
+{
+	struct template_element *ptr;
+	
+	ptr = xzalloc(sizeof(struct template_element));
+	ptr->parent = parent;
+	return ptr;
+}
+
+static inline void next_template_element(void)
+{
+	cur->next = new_template_element(cur->parent);
+	cur->next->prev = cur;
+	cur = cur->next;
+}
+
+static void addtext(char *text)
+{
+	while(buf_offset + strlen(text) + 1 > buflen)
+		buf_realloc();
+
+	buf_offset += sprintf(&textbuf[buf_offset], "%s", text);
+}
+
+static void set_state(int newstate)
+{
+	char *ptr;
+
+#ifdef DEBUG
+	static int _rec = 0;
+	fprintf(stderr, "DEBUG(%d): %s => %s: %s\n", _rec, statestr[state], statestr[newstate], textbuf);
+#endif
+	ptr = xstrdup(textbuf);
+	if (state == S_FOR_IN)
+		cur->in = ptr;
+	else
+		cur->var = ptr;
+
+	if (parse_cb && (cur->t == T_CODE) && parse_cb->prepare_code)
+		parse_cb->prepare_code(cur);
+
+	buf_offset = 0;
+	*textbuf = 0;
+
+	switch(newstate) {
+#if 0
+		case S_EOF:
+			if (cur->parent)
+				parse_error();
+			break;
+#endif
+		case S_FOR_START:
+			if (ptr || !cur->prev)
+				next_template_element();
+			cur->t = T_FOR;
+			break;
+		case S_IF_START:
+			if (ptr || !cur->prev)
+				next_template_element();
+			cur->t = T_IF;
+			break;
+		case S_ELSE:
+			cur = cur->parent;
+			if (!cur)
+				parse_error("'@else' without parent element");
+			cur->sub2 = new_template_element(cur);
+			cur = cur->sub2;
+			newstate = S_TEXT;
+			break;
+		case S_END:
+#ifdef DEBUG
+			_rec--;
+#endif
+			cur = cur->parent;
+			if (!cur) 
+				parse_error("'@end' without parent element");
+
+			next_template_element();
+			cur->t = T_TEXT;
+			newstate = S_TEXT;
+			break;
+		case S_TEXT:
+			switch (cur->t) {
+				case T_CODE:
+					next_template_element();
+					break;
+				case T_IF:
+				case T_FOR:
+#ifdef DEBUG
+					_rec++;
+#endif
+					cur->sub = new_template_element(cur);
+					cur = cur->sub;
+					break;
+				default:
+					break;
+			}
+			cur->t = T_TEXT;
+			break;
+		case S_CODE:
+			if (ptr || !cur->prev)
+				next_template_element();
+			cur->t = T_CODE;
+			break;
+		default:
+			break;
+	}
+	cur->line = _lnr;
+	state = newstate;
+}
+
+%}
+
+%%
+"<%"[ \n\t]*"@if"[ \n\t]+ {
+	if (state == S_TEXT) 
+		set_state(S_IF_START);
+	else
+		REJECT;
+}
+
+"<%"[ \n\t]*"@for"[ \n\t]+ {
+	if (state == S_TEXT) 
+		set_state(S_FOR_START);
+	else
+		REJECT;
+}
+
+[ \n\t]+"in"[ \n\t]+ {
+	if (state == S_FOR_START)
+		set_state(S_FOR_IN);
+	else
+		REJECT;
+}
+
+"<%"[ \n\t]*"@end"[ \n\t]*%> {
+	if (state != S_TEXT)
+		REJECT;
+	set_state(S_END);
+}
+
+"<%"[ \n\t]*"@else"[ \n\t]*%> {
+	if (state != S_TEXT)
+		REJECT;
+	set_state(S_ELSE);
+}
+
+"<%" {
+	if (state != S_TEXT) 
+		parse_error("'<%' cannot be nested");
+	set_state(S_CODE);
+}
+
+[ \n\t]"%>" {
+	if (state == S_TEXT)
+		REJECT;
+	set_state(S_TEXT);
+}
+
+\n {
+	_lnr++;
+	if (state == S_TEXT)
+		addtext(yytext);
+}
+.	{
+	addtext(yytext);
+}
+
+
+%%
+
+
+void execute_template(struct template_cb *cb, struct template_element *e)
+{
+	static int rec = 0;
+
+	while (e) {
+#ifdef DEBUG
+		fprintf(stderr, "DEBUG: execute(%d)\t%s\n", rec, typestr[e->t]);
+#endif
+		rec++;
+		if (cb->handle_element)
+			cb->handle_element(cb, e);
+		rec--;
+		e = e->next;
+	}
+}
+
+int yywrap()
+{
+	set_state(S_EOF);
+	return 1;
+}
+
+struct template_element *parse_template(struct template_cb *cb, FILE *in)
+{
+	_lnr = 1;
+	buf_offset = 0;
+	state = S_TEXT;
+	parse_cb = cb;
+	
+	buflen = 4096;
+	textbuf = xzalloc(buflen);
+
+	head = xzalloc(sizeof(struct template_element));
+	head->t = T_TEXT;
+	cur = head;
+
+	yyin = in;
+	yylex();
+
+	return head;
+}
+
+void free_template(struct template_cb *cb, struct template_element *e)
+{
+	struct template_element *next;
+	return;
+	if (!e)
+		return;
+		
+	switch (e->t) {
+		case T_CODE:
+			if (cb->free_code)
+				cb->free_code(e);
+			break;
+		case T_FOR:
+		case T_IF:
+			free_template(cb, e->sub);
+			break;
+		default:
+			break;
+	}
+	if (e->var)
+		free(e->var);
+	if (e->in)
+		free(e->in);
+		
+	next = e->next;
+	free(e);
+	return free_template(cb, next);
+}
--- a/editors/Config.in
+++ b/editors/Config.in
@@ -12,6 +12,13 @@
 	  Awk is used as a pattern scanning and processing language.  This is
 	  the BusyBox implementation of that programming language.
 
+config AWX
+	bool "Enable awx (awk web extension)"
+	default n
+	depends on AWK
+	help
+	  awx - awk web extension
+
 config FEATURE_AWK_MATH
 	bool "Enable math functions (requires libm)"
 	default y
--- a/editors/Kbuild
+++ b/editors/Kbuild
@@ -12,3 +12,12 @@
 lib-$(CONFIG_PATCH)     += patch.o
 lib-$(CONFIG_SED)       += sed.o
 lib-$(CONFIG_VI)        += vi.o
+lib-$(CONFIG_AWX)		+= awx_parser.o
+
+editors/awx_parser.c: editors/awx_parser.l editors/awx_parser.h
+	@flex $<
+	@mv lex.yy.c $@
+
+editors/awx_parser.o: editors/awx_parser.c FORCE
+	$(call cmd,force_checksrc)
+	$(call if_changed_rule,cc_o_c)
--- a/include/applets.h
+++ b/include/applets.h
@@ -77,6 +77,7 @@
 USE_ARPING(APPLET(arping, _BB_DIR_USR_BIN, _BB_SUID_NEVER))
 USE_ASH(APPLET(ash, _BB_DIR_BIN, _BB_SUID_NEVER))
 USE_AWK(APPLET_NOEXEC(awk, awk, _BB_DIR_USR_BIN, _BB_SUID_NEVER, awk))
+USE_AWK(APPLET_ODDNAME(awx, awk, _BB_DIR_USR_BIN, _BB_SUID_NEVER, awx)) 
 USE_BASENAME(APPLET_NOFORK(basename, basename, _BB_DIR_USR_BIN, _BB_SUID_NEVER, basename))
 USE_BBCONFIG(APPLET(bbconfig, _BB_DIR_BIN, _BB_SUID_NEVER))
 //USE_BBSH(APPLET(bbsh, _BB_DIR_BIN, _BB_SUID_NEVER))
--- a/include/usage.h
+++ b/include/usage.h
@@ -114,6 +114,9 @@
      "\n	-F sep		Use sep as field separator" \
      "\n	-f file		Read program from file" \
 
+#define awx_trivial_usage NOUSAGE_STR
+#define awx_full_usage ""
+
 #define basename_trivial_usage \
        "FILE [SUFFIX]"
 #define basename_full_usage "\n\n" \
--- /dev/null
+++ b/include/cgi.h
@@ -0,0 +1,8 @@
+#ifndef CGI_H
+#define CGI_H
+
+typedef enum { FORM_VAR, COOKIE_VAR } vartype;
+typedef void (*var_handler) (vartype, char *, char *);
+int cgi_init(var_handler);
+
+#endif
--- /dev/null
+++ b/libbb/cgi.c
@@ -0,0 +1,457 @@
+/* --------------------------------------------------------------------------
+ * functions for processing cgi form data
+ * Copyright (C) 2007 by Felix Fietkau <nbd@openwrt.org>
+ *
+ * parts taken from the core of haserl.cgi - a poor-man's php for embedded/lightweight environments
+ * $Id: haserl.c,v 1.13 2004/11/10 17:59:35 nangel Exp $ 
+ * Copyright (c) 2003,2004    Nathan Angelacos (nangel@users.sourceforge.net)
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * -----
+ * The x2c() and unescape_url() routines were taken from  
+ *  http://www.jmarshall.com/easy/cgi/getcgi.c.txt 
+ * 
+ * The comments in that text file state:
+ *
+ ***  Written in 1996 by James Marshall, james@jmarshall.com, except 
+ ***  that the x2c() and unescape_url() routines were lifted directly 
+ ***  from NCSA's sample program util.c, packaged with their HTTPD. 
+ ***     For the latest, see http://www.jmarshall.com/easy/cgi/ 
+ * -----
+ *
+ ------------------------------------------------------------------------- */
+
+#include <stdio.h>
+#include <unistd.h>
+#include <time.h>
+#include <sys/mman.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <sys/stat.h>
+#include <sys/fcntl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <cgi.h>
+
+#ifndef MAX_UPLOAD_KB
+#define MAX_UPLOAD_KB 2048
+#endif
+#define TEMPDIR "/tmp"
+
+static int global_upload_size = 0;
+static int ReadMimeEncodedInput(char *qs);
+static var_handler do_putvar = NULL;
+
+/*
+ * Convert 2 char hex string into char it represents
+ * (from http://www.jmarshall.com/easy/cgi)
+ */
+static char x2c (char *what) {
+	char digit;
+	
+	digit=(what[0] >= 'A' ? ((what[0] & 0xdf) - 'A')+10 : (what[0] - '0'));
+	digit *=16;
+	digit+=(what[1] >= 'A' ? ((what[1] & 0xdf) - 'A')+10 : (what[1] - '0'));
+
+	return digit;
+}
+
+/*
+ * unsescape %xx to the characters they represent 
+ */
+
+static void unescape_url (char *url) {
+	int  i,j;
+
+	for (i=0, j=0; url[j]; ++i, ++j) {
+		if ((url[i] = url[j]) == '%') {
+			url[i] = x2c(&url[j+1]);
+			j+=2;	
+		}
+	}
+	url[i]='\0';
+}
+
+static inline void put_var(vartype type, char *var)
+{
+	char *val;
+	
+	if (!do_putvar)
+		return;
+
+	val = strchr(var, '=');
+	if (!val)
+		return;
+	
+	*val = 0;
+	val++;
+	do_putvar(type, var, val);
+	
+	return;
+}
+
+
+/* CookieVars ()
+ * if HTTP_COOKIE is passed as an environment variable,
+ * attempt to parse its values into environment variables
+ */
+static void CookieVars (void)
+{
+	char *qs;
+	char *token;
+
+	if (getenv("HTTP_COOKIE") != NULL)
+		qs=strdup(getenv("HTTP_COOKIE"));
+	else
+		return;
+	
+	/** split on; to extract name value pairs */
+	token=strtok(qs, ";");
+	while (token) {
+		// skip leading spaces 
+		while ( token[0] == ' ' ) 
+			token++;
+		
+		put_var(COOKIE_VAR, token);
+		
+		token = strtok(NULL, ";");
+	}
+	free (qs);
+}
+
+/* 
+ * Read cgi variables from query string, and put in environment
+ */
+static int ReadCGIQueryString (void) 
+{
+	char *qs;
+	char *token;
+	int i;
+
+	if (getenv("QUERY_STRING") != NULL)
+		qs=strdup(getenv("QUERY_STRING"));
+	else
+		return 0;
+	
+	/* change plusses into spaces */
+	for (i=0; qs[i]; i++ ) { if (qs[i] == '+' ) { qs[i] = ' ';} };
+
+	/** split on & and ; to extract name value pairs */
+	
+	token=strtok(qs, "&;");
+	while (token) {
+		unescape_url(token);
+		put_var(FORM_VAR, token);
+		token=strtok(NULL, "&;");
+	}
+	free(qs);
+
+	return 0;
+}
+
+
+/* 
+ * Read cgi variables from stdin (for POST queries)
+ * (oh... and if its mime-encoded file upload, we save the
+ * file to /tmp; and return the name of the tmp file
+ * the cgi script is responsible for disposing of the tmp file
+ */
+
+static int ReadCGIPOSTValues (void) {
+	char *qs;
+	int content_length;
+	int i;
+	char *token;
+
+
+ 	if (getenv("CONTENT_LENGTH") == NULL) 
+		return(-1);
+	else
+		content_length = atoi(getenv("CONTENT_LENGTH"));
+	
+	/* protect ourselves from 20GB file uploads */
+	if (content_length > MAX_UPLOAD_KB * 1024 ) {
+		/* But we need to finish reading the content */
+	 	while (	fread( &i, sizeof(int), 1, stdin) == 1 );
+		return -1;
+	}
+ 
+ 	if (!(qs=malloc(content_length+1)))
+		return -1;
+
+	/* set the buffer to null, so that a browser messing with less 
+  	   data than content_length won't buffer underrun us */
+	memset(qs, 0 ,content_length+1);
+
+	if ((!fread(qs,content_length,1,stdin) &&
+		(content_length > 0) 
+		&& !feof(stdin))) {
+			
+		free(qs);
+		return -1;
+	}
+
+	if (getenv("CONTENT_TYPE") && (strncasecmp(getenv("CONTENT_TYPE"), "multipart/form-data", 19) == 0)) {
+		/* This is a mime request, we need to go to the mime handler */
+		i=ReadMimeEncodedInput(qs);
+		free(qs);
+			
+		return i;
+	}
+
+	/* change plusses into spaces */
+	for (i=0; qs[i]; i++ ) { if (qs[i] == '+' ) { qs[i] = ' ';} };
+
+	/** split on & and ; to extract name value pairs */
+	token=strtok(qs, "&;");
+	while (token) {
+		unescape_url(token);
+		put_var(FORM_VAR, token);
+		token=strtok(NULL, "&;");
+	}
+	
+	free(qs);
+	
+	return 0;
+}
+
+/*
+ *  LineToStr - Scans char and replaces the first "\n" with a "\0";
+ *  If it finds a "\r", it does that to; (fix DOS brokennes) returns
+ *  the length of the string;
+ */
+static int LineToStr (char *string, size_t max) {
+	size_t offset=0;
+
+	while ((offset < max) && (string[offset] != '\n') && (string[offset] != '\r'))
+		offset++;
+
+	if (string[offset] == '\r') {
+		string[offset]='\0';
+		offset++;
+	}
+	if (string[offset] == '\n') {
+		string[offset]='\0';
+		offset++;
+	}
+
+	return offset;
+}
+
+
+/*
+ * ReadMimeEncodedInput - handles things that are mime encoded
+ * takes a pointer to the input; returns 0 on success
+ */
+
+static int ReadMimeEncodedInput(char *qs) 
+{
+	char 	*boundary;
+	char	*ct;
+	int	i;
+	int	datastart;
+ 	size_t	cl;
+	size_t	offset;
+	char    *envname;
+	char	*filename;
+	char 	*ptr;
+	int	line;
+	char 	tmpname[] = TEMPDIR "/XXXXXX";
+	int	fd;
+	/* we should only get here if the content type was set. Segfaults happen
+	   if Content_Type is null */
+
+	if (getenv("CONTENT_LENGTH") == NULL)
+		/* No content length?! */
+		return(-1);
+
+	cl=atoi(getenv("CONTENT_LENGTH"));
+	
+	/* we do this 'cause we can't mess with the real env. variable - it would
+	 * overwrite the environment - I tried.
+	 */
+	i=strlen(getenv("CONTENT_TYPE"))+1;
+	ct=malloc(i);
+	if (ct)
+		memcpy(ct, getenv("CONTENT_TYPE"), i);
+	else
+		return(-1);
+	
+	i=(int) NULL;
+ 	if (ct != NULL) {
+		while (i < strlen(ct) && (strncmp("boundary=", &ct[i], 9) != 0)) 
+			i++;
+	}
+	if (i == strlen(ct)) {
+		/* no boundary informaiton found */
+		free(ct);
+		return -1;
+	}
+	boundary=&ct[i+7];
+	/* add two leading -- to the boundary */
+	boundary[0]='-';
+	boundary[1]='-';
+	
+	/* begin the big loop.  Look for:
+		--boundary
+		Content-Disposition: form-data;  name="......." 
+		....
+		<blank line>
+		content
+		--boundary
+		Content-Disposition: form-data; name="....." filename="....."
+		...
+		<blank line>
+		--boundary--
+		eof
+	*/
+
+	offset=0;
+	while (offset < cl) {
+		/* first look for boundary */
+		while ((offset < cl) && (memcmp(&qs[offset], boundary, strlen(boundary)))) 
+			offset++;
+
+		/* if we got here and we ran off the end, its an error 		*/
+		if (offset >= cl) { 
+			free(ct);
+			return -1;
+		}
+
+		/* if the two characters following the boundary are --, 	*/ 
+		/* then we are at the end, exit 				*/
+		if (memcmp(&qs[offset+strlen(boundary)], "--", 2) == 0) {
+			offset+=2;
+			break;
+		}
+		/* find where the offset should be */
+		line=LineToStr(&qs[offset], cl-offset);
+		offset+=line;
+				
+		/* Now we're going to look for content-disposition		*/ 
+		line=LineToStr(&qs[offset], cl-offset);
+		if (strncasecmp(&qs[offset], "Content-Disposition", 19) != 0) {
+			/* hmm... content disposition was not where we expected it */
+			free(ct);
+			return -1;
+		}
+		/* Found it, so let's go find "name="				*/
+	 	if (!(envname=strstr(&qs[offset], "name="))) {
+			/* now name= is missing?!  				*/
+			free(ct);
+			return(-1);
+		} else
+			envname+=6;
+
+		/* is there a filename tag? 					*/
+		if ((filename=strstr(&qs[offset], "filename="))!= NULL)
+			filename+=10;
+		else
+			filename=NULL;
+		
+		/* make envname and filename ASCIIZ				*/
+		for (i=0; (envname[i] != '"') && (envname[i] != '\0'); i++);
+		
+		envname[i] = '\0';
+		if (filename) {
+			for (i=0; (filename[i] != '"') && (filename[i] != '\0'); i++);
+			filename[i] = '\0';
+		}
+		offset+=line;
+		
+		/* Ok, by some miracle, we have the name; let's skip till we	*/
+		/* come to a blank line						*/
+		line=LineToStr(&qs[offset], cl-offset);
+		while (strlen(&qs[offset]) > 1) {
+			offset+=line;
+			line=LineToStr(&qs[offset], cl-offset);
+		}
+		offset+=line;
+		datastart=offset;
+		/* And we go back to looking for a boundary */
+		while ((offset < cl) && (memcmp(&qs[offset], boundary, strlen(boundary))))
+			offset++;
+
+		/* strip [cr] lf */
+		if ((qs[offset-1] == '\n') && (qs[offset-2] == '\r'))
+			offset-=2; 
+		else
+			offset-=1;
+
+		qs[offset]=0;
+
+		/* ok, at this point, we know where the name is, and we know    */
+		/* where the content is... we have to do one of two things      */
+		/* based on whether its a file or not				*/
+		if (filename==NULL) { /* its not a file, so its easy		*/
+			/* just jam the content after the name		*/
+			memcpy(&envname[strlen(envname)+1], &qs[datastart], offset-datastart+1);
+			envname[strlen(envname)]='=';
+			put_var(FORM_VAR, envname);
+		} else {	/* handle the fileupload case		*/
+			if (offset-datastart) {  /* only if they uploaded */
+				if ( global_upload_size == 0 ) {
+					return -1;
+				}
+				/*  stuff in the filename */
+				ptr= calloc ( sizeof (char), strlen(envname)+strlen(filename)+2+5 );
+				sprintf (ptr, "%s_name=%s", envname, filename);
+				put_var(FORM_VAR, ptr);
+				free(ptr);
+						
+				fd=mkstemp(tmpname);
+				
+				if (fd == -1)
+					return(-1);
+
+				write(fd, &qs[datastart], offset-datastart);
+				close(fd);
+				ptr= calloc (sizeof(char), strlen(envname)+strlen(tmpname)+2);
+				sprintf (ptr, "%s=%s", envname, tmpname);
+				put_var(FORM_VAR, ptr);
+				free(ptr);
+			}
+		}
+	}
+	free(ct);
+	return 0;
+}
+
+	
+/*-------------------------------------------------------------------------
+ *
+ * Main 
+ *
+ *------------------------------------------------------------------------*/
+
+int cgi_init(var_handler putvar_handler)
+{
+	int	retval = 0;
+	
+	do_putvar = putvar_handler;
+
+	/* Read the current environment into our chain */
+	CookieVars();
+	if (getenv("REQUEST_METHOD")) {
+		if (strcasecmp(getenv("REQUEST_METHOD"), "GET") == 0)
+			retval = ReadCGIQueryString();
+
+		if (strcasecmp(getenv("REQUEST_METHOD"), "POST") == 0)
+			retval = ReadCGIPOSTValues();
+	}
+
+	return retval;
+} 
--- a/libbb/Kbuild
+++ b/libbb/Kbuild
@@ -112,6 +112,7 @@
 lib-y += xreadlink.o
 
 # conditionally compiled objects:
+lib-$(CONFIG_AWX) += cgi.o
 lib-$(CONFIG_FEATURE_MOUNT_LOOP) += loop.o
 lib-$(CONFIG_LOSETUP) += loop.o
 lib-$(CONFIG_FEATURE_MTAB_SUPPORT) += mtab.o