Initial revision
This commit is contained in:
Akinori Ito
590
form.c
Normal file
590
form.c
Normal file
@@ -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");
|
||||
}
|
||||
Reference in New Issue
Block a user