diff options
Diffstat (limited to 'form.c')
| -rw-r--r-- | form.c | 590 |
1 files changed, 590 insertions, 0 deletions
@@ -0,0 +1,590 @@ + +/* $Id: form.c,v 1.1 2001/11/08 05:14:53 a-ito Exp $ */ +/* + * HTML forms + */ +#include "fm.h" +#include "parsetag.h" +#include "parsetagx.h" +#include "myctype.h" +#include "local.h" + +#ifdef __EMX__ +/* lstat is identical to stat, only the link itself is statted, not the + * file that is obtained by tracing the links. But on OS/2 systems, + * there is no differences. */ +#define lstat stat +#endif /* __EMX__ */ + +extern Str textarea_str[]; +#ifdef MENU_SELECT +extern FormSelectOption select_option[]; +#include "menu.h" +#endif /* MENU_SELECT */ + +struct { + char *action; + void (*rout) (struct parsed_tagarg *); +} internal_action[] = { + { + "map", follow_map + }, + { + "option", panel_set_option + }, +#ifdef USE_COOKIE + { + "cookie", set_cookie_flag + }, +#endif /* USE_COOKIE */ + { + NULL, NULL + }, +}; + +struct form_list * +newFormList(char *action, char *method, char *charset, char *enctype, char *target, struct form_list *_next) +{ + struct form_list *l; + Str a = Strnew_charp(action); + int m = FORM_METHOD_GET; + int e = FORM_ENCTYPE_URLENCODED; + int c = 0; + + if (method == NULL || !strcasecmp(method, "get")) + m = FORM_METHOD_GET; + else if (!strcasecmp(method, "post")) + m = FORM_METHOD_POST; + else if (!strcasecmp(method, "internal")) + m = FORM_METHOD_INTERNAL; + /* unknown method is regarded as 'get' */ + + if (enctype != NULL && !strcasecmp(enctype, "multipart/form-data")) { + e = FORM_ENCTYPE_MULTIPART; + if (m == FORM_METHOD_GET) + m = FORM_METHOD_POST; + } + + if (charset != NULL) + c = *charset; + + l = New(struct form_list); + l->item = l->lastitem = NULL; + l->action = a; + l->method = m; + l->charset = c; + l->enctype = e; + l->target = target; + l->next = _next; + l->nitems = 0; + l->body = NULL; + l->length = 0; + return l; +} + +/* + * add <input> element to form_list + */ +struct form_item_list * +formList_addInput(struct form_list *fl, struct parsed_tag *tag) +{ + struct form_item_list *item; + char *p; + int i; + + /* if not in <form>..</form> environment, just ignore <input> tag */ + if (fl == NULL) + return NULL; + + item = New(struct form_item_list); + item->type = FORM_UNKNOWN; + item->size = -1; + item->rows = 0; + item->checked = 0; + item->accept = 0; + item->name = NULL; + item->value = NULL; + if (parsedtag_get_value(tag, ATTR_TYPE, &p)) { + item->type = formtype(p); + if (item->size < 0 && + (item->type == FORM_INPUT_TEXT || + item->type == FORM_INPUT_FILE || + item->type == FORM_INPUT_PASSWORD)) + item->size = FORM_I_TEXT_DEFAULT_SIZE; + } + if (parsedtag_get_value(tag, ATTR_NAME, &p)) + item->name = Strnew_charp(p); + if (parsedtag_get_value(tag, ATTR_VALUE, &p)) + item->value = Strnew_charp(p); + item->checked = parsedtag_exists(tag, ATTR_CHECKED); + item->accept = parsedtag_exists(tag, ATTR_ACCEPT); + parsedtag_get_value(tag, ATTR_SIZE, &item->size); + parsedtag_get_value(tag, ATTR_MAXLENGTH, &item->maxlength); + if (parsedtag_get_value(tag, ATTR_TEXTAREANUMBER, &i)) + item->value = textarea_str[i]; +#ifdef MENU_SELECT + if (parsedtag_get_value(tag, ATTR_SELECTNUMBER, &i)) + item->select_option = select_option[i].first; +#endif /* MENU_SELECT */ + if (parsedtag_get_value(tag, ATTR_ROWS, &p)) + item->rows = atoi(p); + if (item->type == FORM_UNKNOWN) { + /* type attribute is missing. Ignore the tag. */ + return NULL; + } +#ifdef MENU_SELECT + if (item->type == FORM_SELECT) { + item->value = chooseSelectOption(item->select_option, CHOOSE_VALUE); + item->label = chooseSelectOption(item->select_option, CHOOSE_OPTION); + } +#endif /* MENU_SELECT */ + if (item->type == FORM_INPUT_FILE && item->value && item->value->length) { + /* security hole ! */ + return NULL; + } + item->parent = fl; + item->next = NULL; + if (fl->item == NULL) { + fl->item = fl->lastitem = item; + } + else { + fl->lastitem->next = item; + fl->lastitem = item; + } + if (item->type == FORM_INPUT_HIDDEN) + return NULL; + fl->nitems++; + return item; +} + +static char *_formtypetbl[] = +{ + "text", "password", "checkbox", "radio", "submit", + "reset", "hidden", "image", "select", "textarea", "button", "file", 0, +}; + +static char *_formmethodtbl[] = +{ + "GET", "POST", "INTERNAL", "HEAD" +}; + +char * +form2str(FormItemList * fi) +{ + Str tmp; + if (fi->type == FORM_INPUT_SUBMIT || + fi->type == FORM_INPUT_IMAGE || + fi->type == FORM_INPUT_BUTTON) { + tmp = Strnew_charp(_formmethodtbl[fi->parent->method]); + Strcat_char(tmp, ' '); + Strcat(tmp, fi->parent->action); + return tmp->ptr; + } + else + return _formtypetbl[fi->type]; +} + +int +formtype(char *typestr) +{ + int i; + for (i = 0; _formtypetbl[i]; i++) { + if (!strcasecmp(typestr, _formtypetbl[i])) + return i; + } + return FORM_UNKNOWN; +} + +void +form_recheck_radio(FormItemList * fi, void *data, void (*update_hook) (FormItemList *, void *)) +{ + Str tmp; + FormItemList *f2; + + tmp = fi->name; + for (f2 = fi->parent->item; f2 != NULL; f2 = f2->next) { + if (f2 != fi && Strcmp(tmp, f2->name) == 0 && + f2->type == FORM_INPUT_RADIO) { + f2->checked = 0; + if (update_hook != NULL) { + update_hook(f2, data); + } + } + } + fi->checked = 1; + if (update_hook != NULL) { + update_hook(fi, data); + } +} + +void +formResetBuffer(Buffer * buf, AnchorList * formitem) +{ + int i; + Anchor *a; + FormItemList *f1, *f2; + + if (buf == NULL || buf->formitem == NULL || formitem == NULL) + return; + for (i = 0; i < buf->formitem->nanchor && i < formitem->nanchor; i++) { + a = &buf->formitem->anchors[i]; + f1 = (FormItemList *) a->url; + f2 = (FormItemList *) formitem->anchors[i].url; + if (f1->type != f2->type || + strcmp(((f1->name == NULL) ? "" : f1->name->ptr), + ((f2->name == NULL) ? "" : f2->name->ptr))) + break; /* What's happening */ + switch (f1->type) { + case FORM_INPUT_TEXT: + case FORM_INPUT_PASSWORD: + case FORM_INPUT_FILE: + case FORM_TEXTAREA: + f1->value = f2->value; + break; + case FORM_INPUT_CHECKBOX: + case FORM_INPUT_RADIO: + f1->checked = f2->checked; + break; + case FORM_SELECT: +#ifdef MENU_SELECT + f1->select_option = f2->select_option; + f1->label = f2->label; +#endif /* MENU_SELECT */ + break; + default: + continue; + } + formUpdateBuffer(a, buf, f1); + } +} + +void +formUpdateBuffer(Anchor * a, Buffer * buf, FormItemList * form) +{ + int i, j, k; + Buffer save; + char *p; + int spos, epos, c_len; + Lineprop c_type; + + copyBuffer(&save, buf); + gotoLine(buf, a->start.line); + switch (form->type) { + case FORM_TEXTAREA: + case FORM_INPUT_TEXT: + case FORM_INPUT_FILE: + case FORM_INPUT_PASSWORD: + case FORM_INPUT_CHECKBOX: + case FORM_INPUT_RADIO: +#ifdef MENU_SELECT + case FORM_SELECT: +#endif /* MENU_SELECT */ + spos = a->start.pos - 1; + epos = a->end.pos; + break; + default: + spos = a->start.pos; + epos = a->end.pos - 1; + } + switch (form->type) { + case FORM_INPUT_CHECKBOX: + case FORM_INPUT_RADIO: + if (form->checked) + buf->currentLine->lineBuf[spos + 1] = '*'; + else + buf->currentLine->lineBuf[spos + 1] = ' '; + break; + case FORM_INPUT_TEXT: + case FORM_INPUT_FILE: + case FORM_INPUT_PASSWORD: + case FORM_TEXTAREA: +#ifdef MENU_SELECT + case FORM_SELECT: + if (form->type == FORM_SELECT) + p = form->label->ptr; + else +#endif /* MENU_SELECT */ + p = form->value->ptr; + i = spos + 1; + for (j = 0; p[j];) { + if (p[j] == '\r') { + j++; + continue; + } + c_type = get_mctype(&p[j]); + c_len = get_mclen(c_type); + k = i + c_len; + if (k > epos) + break; +#ifdef JP_CHARSET + if (c_type == PC_KANJI && form->type != FORM_INPUT_PASSWORD) { + SetCharType(buf->currentLine->propBuf[i], PC_KANJI1); + SetCharType(buf->currentLine->propBuf[i+1], PC_KANJI2); + } + else +#endif /* JP_CHARSET */ + SetCharType(buf->currentLine->propBuf[i], PC_ASCII); + + for (; i < k; i++, j++) { + if (form->type == FORM_INPUT_PASSWORD) + buf->currentLine->lineBuf[i] = '*'; + else if (c_type == PC_CTRL || + IS_UNPRINTABLE_ASCII(p[j], c_type)) + buf->currentLine->lineBuf[i] = ' '; + else + buf->currentLine->lineBuf[i] = p[j]; + } + } + for (; i < epos; i++) { + buf->currentLine->lineBuf[i] = ' '; + SetCharType(buf->currentLine->propBuf[i], PC_ASCII); + } + i--; + break; + } + copyBuffer(buf, &save); +} + + +Str +textfieldrep(Str s, int width) +{ + Lineprop c_type; + Str n = Strnew_size(width + 2); + int i, j, k, c_len; + + j = 0; + for (i = 0; i < s->length; i += c_len) { + c_type = get_mctype(&s->ptr[i]); + c_len = get_mclen(c_type); + if (s->ptr[i] == '\r') { + continue; + } + k = j + c_len; + if (k > width) + break; + if (IS_CNTRL(s->ptr[i])) { + Strcat_char(n, ' '); + } + else if (s->ptr[i] == '&') + Strcat_charp(n, "&"); + else if (s->ptr[i] == '<') + Strcat_charp(n, "<"); + else if (s->ptr[i] == '>') + Strcat_charp(n, ">"); + else + Strcat_charp_n(n, &s->ptr[i], c_len); + j = k; + } + for (; j < width; j++) + Strcat_char(n, ' '); + return n; +} + +static void +form_fputs_decode(Str s, FILE * f) +{ + char *p; + Str z = Strnew(); + + for (p = s->ptr; *p;) { + switch (*p) { + case '<': + if (!strncasecmp(p, "<eol>", 5)) { + Strcat_char(z, '\n'); + p += 5; + } + else { + Strcat_char(z, *p); + p++; + } + break; +#if !defined(CYGWIN) && !defined(__EMX__) + case '\r': + if (*(p + 1) == '\n') + p++; + /* continue to the next label */ +#endif /* !defined(CYGWIN) && !defined(__EMX__) */ + default: + Strcat_char(z, *p); + p++; + break; + } + } +#ifdef JP_CHARSET + fputs(conv_str(z, InnerCode, DisplayCode)->ptr, f); +#else /* not JP_CHARSET */ + fputs(z->ptr, f); +#endif /* not JP_CHARSET */ +} + + +void +input_textarea(FormItemList * fi) +{ + Str tmpname = tmpfname(TMPF_DFL, NULL); + Str tmp; + FILE *f; + + f = fopen(tmpname->ptr, "w"); + if (f == NULL) { + disp_err_message("Can't open temporary file", FALSE); + return; + } + if (fi->value) + form_fputs_decode(fi->value, f); + fclose(f); + if (strcasestr(Editor, "%s")) + tmp = Sprintf(Editor, tmpname->ptr); + else + tmp = Sprintf("%s %s", Editor, tmpname->ptr); + fmTerm(); + system(tmp->ptr); + fmInit(); + + f = fopen(tmpname->ptr, "r"); + if (f == NULL) { + disp_err_message("Can't open temporary file", FALSE); + return; + } + fi->value = Strnew(); + while (tmp = Strfgets(f), tmp->length > 0) { + if (tmp->length == 1 && tmp->ptr[tmp->length - 1] == '\n') { + /* null line with bare LF */ + tmp = Strnew_charp("\r\n"); + } + else if (tmp->length > 1 && tmp->ptr[tmp->length - 1] == '\n' && + tmp->ptr[tmp->length - 2] != '\r') { + Strshrink(tmp, 1); + Strcat_charp(tmp, "\r\n"); + } +#ifdef JP_CHARSET + Strcat(fi->value, conv_str(tmp, DisplayCode, InnerCode)); +#else /* not JP_CHARSET */ + Strcat(fi->value, tmp); +#endif /* not JP_CHARSET */ + } + fclose(f); + unlink(tmpname->ptr); +} + +void +do_internal(char *action, char *data) +{ + int i; + + for (i = 0; internal_action[i].action; i++) { + if (strcasecmp(internal_action[i].action, action) == 0) { + internal_action[i].rout(cgistr2tagarg(data)); + return; + } + } +} + +#ifdef MENU_SELECT +void +addSelectOption(FormSelectOption * fso, Str value, Str label, int chk) +{ + FormSelectOptionItem *o; + o = New(FormSelectOptionItem); + if (value == NULL) + value = label; + o->value = value; + Strremovefirstspaces(label); + Strremovetrailingspaces(label); + o->label = label; + o->checked = chk; + o->next = NULL; + if (fso->first == NULL) + fso->first = fso->last = o; + else { + fso->last->next = o; + fso->last = o; + } +} + +Str +chooseSelectOption(FormSelectOptionItem * item, int choose_type) +{ + Str chosen; + if (item == NULL) + return Strnew_size(0); + if (choose_type == CHOOSE_OPTION) + chosen = item->label; + else + chosen = item->value; + while (item) { + if (item->checked) { + if (choose_type == CHOOSE_OPTION) + chosen = item->label; + else + chosen = item->value; + } + item = item->next; + } + return chosen; +} + +void +formChooseOptionByMenu(struct form_item_list *fi, int x, int y) +{ + int i, n, selected = -1, init_select = 0; + FormSelectOptionItem *opt; + char **label; + + for (n = 0, opt = fi->select_option; opt != NULL; n++, opt = opt->next); + label = New_N(char *, n + 1); + for (i = 0, opt = fi->select_option; opt != NULL; i++, opt = opt->next) { + label[i] = opt->label->ptr; + if (!Strcmp(fi->value, opt->value)) + init_select = i; + } + label[n] = NULL; + + optionMenu(x, y, label, &selected, init_select, NULL); + + for (i = 0, opt = fi->select_option; opt != NULL; i++, opt = opt->next) { + if (i == selected) { + fi->value = opt->value; + fi->label = opt->label; + break; + } + } +} +#endif /* MENU_SELECT */ + +void +form_write_data(FILE * f, char *boundary, char *name, char *value) +{ + fprintf(f, "--%s\r\n", boundary); + fprintf(f, "Content-Disposition: form-data; name=\"%s\"\r\n\r\n", name); + fprintf(f, "%s\r\n", value); +} + +void +form_write_form_file(FILE * f, char *boundary, char *name, char *file) +{ + FILE *fd; + struct stat st; + int c; + + fprintf(f, "--%s\r\n", boundary); + fprintf(f, "Content-Disposition: form-data; name=\"%s\"; filename=\"%s\"\r\n", + name, mybasename(file)); + fprintf(f, "Content-Type: text/plain\r\n\r\n"); + +#ifdef READLINK + if (lstat(file, &st) < 0) + goto write_end; +#endif /* READLINK */ + if (S_ISDIR(st.st_mode)) + goto write_end; + fd = fopen(file, "r"); + if (fd != NULL) { + while ((c = fgetc(fd)) != EOF) + fputc(c, f); + fclose(fd); + } + write_end: + fprintf(f, "\r\n"); +} |