ref: 01986adbbf75c07c613b11fcb81a8015a71e5664
dir: /sys/src/cmd/mothra/forms.c/
#include <u.h>
#include <libc.h>
#include <draw.h>
#include <event.h>
#include <panel.h>
#include "rtext.h"
#include "mothra.h"
#include "html.h"
typedef struct Field Field;
typedef struct Option Option;
struct Form{
int method;
char *ctype;
char *action;
Field *fields, *efields;
Form *next;
};
struct Field{
Field *next;
Form *form;
char *name;
char *value;
int checked;
int size; /* should be a point, but that feature is deprecated */
int maxlength;
int type;
int rows, cols;
Option *options;
int multiple;
int state; /* is the button marked? */
Panel *p;
Panel *pulldown;
Panel *textwin;
};
/*
* Field types
*/
enum{
TYPEIN=1,
CHECK,
PASSWD,
RADIO,
SUBMIT,
RESET,
BUTTON,
SELECT,
TEXTWIN,
HIDDEN,
INDEX,
FILE,
};
struct Option{
int selected;
int def;
char label[NLABEL+1];
char *value;
Option *next;
};
#define BOUNDARY "nAboJ9uN6ZXsqoVGzLAdjKq97TWDTGjo"
void h_checkinput(Panel *, int, int);
void h_radioinput(Panel *, int, int);
void h_submitinput(Panel *, int);
void h_buttoninput(Panel *, int);
void h_fileinput(Panel *, int);
void h_submittype(Panel *, char *);
void h_submitindex(Panel *, char *);
void h_resetinput(Panel *, int);
void h_select(Panel *, int, int);
char *selgen(Panel *, int);
char *nullgen(Panel *, int);
Field *newfield(Form *form){
Field *f;
f=emalloc(sizeof(Field));
if(form->efields==0)
form->fields=f;
else
form->efields->next=f;
form->efields=f;
f->next=0;
f->form=form;
return f;
}
/*
* Called by rdhtml on seeing a forms-related tag
*/
void rdform(Hglob *g){
char *s;
Field *f;
Option *o, **op;
Form *form;
switch(g->tag){
default:
fprint(2, "Bad tag <%s> in rdform (Can't happen!)\n", g->token);
return;
case Tag_form:
if(g->form){
htmlerror(g->name, g->lineno, "nested forms illegal\n");
break;
}
g->form=emalloc(sizeof(Form));
s=pl_getattr(g->attr, "action");
g->form->action=strdup((s && *s) ? s : g->dst->url->fullname);
s=pl_getattr(g->attr, "method");
if(s==0 || *s==0)
g->form->method=GET;
else if(cistrcmp(s, "post")==0)
g->form->method=POST;
else{
if(cistrcmp(s, "get")!=0)
htmlerror(g->name, g->lineno,
"unknown form method %s\n", s);
g->form->method=GET;
}
s=pl_getattr(g->attr, "enctype");
if(s && cistrcmp(s, "multipart/form-data")==0)
g->form->ctype = "multipart/form-data; boundary=" BOUNDARY;
g->form->fields=0;
g->form->next = g->dst->form;
g->dst->form = g->form;
break;
case Tag_input:
case Tag_button:
if(g->form==0){
/* no form, assume link button */
form = emalloc(sizeof(Form));
form->method = 0;
form->fields = 0;
form->efields = 0;
if(g->state->link)
form->action = strdup(g->state->link);
form->next = g->dst->form;
g->dst->form = form;
f=newfield(form);
} else
f=newfield(g->form);
s=pl_getattr(g->attr, "name");
if(s==0 || *s == 0)
f->name=0;
else
f->name=strdup(s);
s=pl_getattr(g->attr, "value");
if(s==0)
f->value=strdup("");
else
f->value=strdup(s);
f->checked=pl_hasattr(g->attr, "checked");
s=pl_getattr(g->attr, "size");
if(s==0 || *s==0)
f->size=20;
else
f->size=atoi(s);
s=pl_getattr(g->attr, "maxlength");
if(s==0 || *s==0)
f->maxlength=0x3fffffff;
else
f->maxlength=atoi(s);
s=pl_getattr(g->attr, "type");
if((g->tag == Tag_button) &&
(s==0 || cistrcmp(s, "reset") || cistrcmp(s, "button")))
s="submit";
else if(s==0)
s="text";
if(cistrcmp(s, "checkbox")==0)
f->type=CHECK;
else if(cistrcmp(s, "radio")==0)
f->type=RADIO;
else if(cistrcmp(s, "submit")==0)
f->type=SUBMIT;
else if(cistrcmp(s, "image")==0){
f->type=SUBMIT;
s=pl_getattr(g->attr, "src");
if(s && *s){
free(g->state->image);
g->state->image = strdup(s);
}
s=pl_getattr(g->attr, "width");
if(s && *s)
g->state->width=strtolength(g, HORIZ, s);
s=pl_getattr(g->attr, "height");
if(s && *s)
g->state->height=strtolength(g, VERT, s);
s=pl_getattr(g->attr, "alt");
if(s==0 || *s == 0) s = f->value;
pl_htmloutput(g, g->nsp, s, f);
free(g->state->image);
g->state->image = 0;
g->state->width=0;
g->state->height=0;
break;
}
else if(cistrcmp(s, "button")==0)
f->type=BUTTON;
else if(cistrcmp(s, "file")==0)
f->type=FILE;
else if(cistrcmp(s, "reset")==0)
f->type=RESET;
else if(cistrcmp(s, "hidden")==0)
f->type=HIDDEN;
else{
f->type=TYPEIN;
if(cistrcmp(s, "password")==0)
f->type=PASSWD;
s=f->name;
if(s && cistrcmp(s, "isindex")==0)
f->type=INDEX;
/*
* If there's exactly one attribute, use its value as the name,
* regardless of the attribute name. This makes
* http://linus.att.com/ias/puborder.html work.
*/
if(s==0){
if(g->attr[0].name && g->attr[1].name==0)
f->name=strdup(g->attr[0].value);
else
f->name=strdup("no-name");
}
}
if((f->type==CHECK || f->type==RADIO) && !pl_hasattr(g->attr, "value")){
free(f->value);
f->value=strdup("on");
}
if(f->type!=HIDDEN)
pl_htmloutput(g, g->nsp, f->value[0]?f->value:"blank field", f);
break;
case Tag_select:
if(g->form==0){
BadTag:
htmlerror(g->name, g->lineno, "<%s> not in form, ignored\n",
tag[g->tag].name);
break;
}
f=newfield(g->form);
s=pl_getattr(g->attr, "name");
if(s==0 || *s==0){
f->name=strdup("select");
htmlerror(g->name, g->lineno, "select has no name=\n");
}
else
f->name=strdup(s);
f->multiple=pl_hasattr(g->attr, "multiple");
f->type=SELECT;
f->size=0;
f->options=0;
g->text=g->token;
g->tp=g->text;
g->etext=g->text;
break;
case Tag_option:
if(g->form==0) goto BadTag;
if((f=g->form->efields)==0) goto BadTag;
if(f->size<8)
f->size++;
o=emalloc(sizeof(Option));
for(op=&f->options;*op;op=&(*op)->next);
*op=o;
o->next=0;
g->text=o->label;
g->tp=o->label;
g->etext=o->label+NLABEL;
memset(o->label, 0, NLABEL+1);
*g->tp++=' ';
o->def=pl_hasattr(g->attr, "selected");
o->selected=o->def;
if(pl_hasattr(g->attr, "disabled"))
o->selected=0;
s=pl_getattr(g->attr, "value");
if(s==0)
o->value=o->label+1;
else
o->value=strdup(s);
break;
case Tag_textarea:
if(g->form==0) goto BadTag;
f=newfield(g->form);
s=pl_getattr(g->attr, "name");
if(s==0 || *s==0){
f->name=strdup("enter text");
htmlerror(g->name, g->lineno, "select has no name=\n");
}
else
f->name=strdup(s);
s=pl_getattr(g->attr, "rows");
f->rows=(s && *s)?atoi(s):8;
s=pl_getattr(g->attr, "cols");
f->cols=(s && *s)?atoi(s):30;
f->type=TEXTWIN;
/* suck up initial text */
pl_htmloutput(g, g->nsp, f->name, f);
break;
case Tag_isindex:
/*
* Make up a form with one tag, of type INDEX
* I have seen a page with <ISINDEX PROMPT="Enter a title here ">,
* which is nonstandard and not handled here.
*/
form=emalloc(sizeof(Form));
form->fields=0;
form->efields=0;
s=pl_getattr(g->attr, "action");
form->action=strdup((s && *s) ? s : g->dst->url->fullname);
form->method=GET;
form->fields=0;
f=newfield(form);
f->name=0;
f->value=strdup("");
f->size=20;
f->maxlength=0x3fffffff;
f->type=INDEX;
pl_htmloutput(g, g->nsp, f->value[0]?f->value:"blank field", f);
break;
}
}
/*
* Called by rdhtml on seeing a forms-related end tag
*/
void endform(Hglob *g){
Field *f;
switch(g->tag){
case Tag_form:
g->form=0;
break;
case Tag_select:
if(g->form==0)
htmlerror(g->name, g->lineno, "</select> not in form, ignored\n");
else if((f=g->form->efields)==0)
htmlerror(g->name, g->lineno, "spurious </select>\n");
else
pl_htmloutput(g, g->nsp, f->name, f);
break;
case Tag_textarea:
break;
}
}
char *nullgen(Panel *, int ){
return 0;
}
char *selgen(Panel *p, int index){
Option *a;
Field *f;
f=p->userp;
if(f==0) return 0;
for(a=f->options;index!=0 && a!=0;--index,a=a->next);
if(a==0) return 0;
a->label[0]=a->selected?'*':' ';
return a->label;
}
char *seloption(Field *f){
Option *a;
for(a=f->options;a!=0;a=a->next)
if(a->selected)
return a->label+1;
return f->name;
}
void mkfieldpanel(Rtext *t){
Action *a;
Panel *win, *scrl;
Field *f;
if((a = t->user) == nil)
return;
if((f = a->field) == nil)
return;
f->p=0;
switch(f->type){
case TYPEIN:
f->p=plentry(0, 0, f->size*chrwidth, f->value, h_submittype);
break;
case PASSWD:
f->p=plentry(0, USERFL, f->size*chrwidth, f->value, h_submittype);
break;
case CHECK:
f->p=plcheckbutton(0, 0, "", h_checkinput);
f->state=f->checked;
plsetbutton(f->p, f->checked);
break;
case RADIO:
f->p=plradiobutton(0, 0, "", h_radioinput);
f->state=f->checked;
plsetbutton(f->p, f->checked);
break;
case SUBMIT:
f->p=plbutton(0, 0, f->value[0]?f->value:"submit", h_submitinput);
break;
case RESET:
f->p=plbutton(0, 0, f->value[0]?f->value:"reset", h_resetinput);
break;
case BUTTON:
f->p=plbutton(0, 0, f->value[0]?f->value:"button", h_buttoninput);
break;
case FILE:
f->p=plbutton(0, 0, f->value[0]?f->value:"file", h_fileinput);
break;
case SELECT:
if(f->size <= 0)
f->size=1;
f->pulldown=plgroup(0,0);
scrl=plscrollbar(f->pulldown, PACKW|FILLY);
win=pllist(f->pulldown, PACKN, nullgen, f->size, h_select);
win->userp=f;
plinitlist(win, PACKN, selgen, f->size, h_select);
plscroll(win, 0, scrl);
plpack(f->pulldown, Rect(0,0,1024,1024));
f->p=plpulldown(0, FIXEDX, seloption(f), f->pulldown, PACKS);
f->p->fixedsize.x=f->pulldown->r.max.x-f->pulldown->r.min.x;
break;
case TEXTWIN:
f->p=plframe(0,0);
pllabel(f->p, PACKN|FILLX, f->name);
scrl=plscrollbar(f->p, PACKW|FILLY);
f->textwin=pledit(f->p, EXPAND, Pt(f->cols*chrwidth, f->rows*font->height), 0, 0, 0);
f->textwin->userp=f;
plscroll(f->textwin, 0, scrl);
break;
case INDEX:
f->p=plentry(0, 0, f->size*chrwidth, f->value, h_submitindex);
break;
}
if(f->p){
f->p->userp=f;
free(t->text);
t->text=0;
t->p=f->p;
t->flags|=PL_HOT;
}
}
void h_checkinput(Panel *p, int, int v){
((Field *)p->userp)->state=v;
}
void h_radioinput(Panel *p, int, int v){
Field *f, *me;
me=p->userp;
me->state=v;
if(v){
for(f=me->form->fields;f;f=f->next)
if(f->type==RADIO && f!=me && strcmp(f->name, me->name)==0){
plsetbutton(f->p, 0);
f->state=0;
pldraw(f->p, screen);
}
}
}
void h_select(Panel *p, int, int index){
Option *a;
Field *f;
f=p->userp;
if(f==0) return;
if(!f->multiple) for(a=f->options;a;a=a->next) a->selected=0;
for(a=f->options;index!=0 && a!=0;--index,a=a->next);
if(a==0) return;
a->selected=!a->selected;
plinitpulldown(f->p, FIXEDX, seloption(f), f->pulldown, PACKS);
pldraw(f->p, screen);
}
void h_resetinput(Panel *p, int){
Field *f;
Option *o;
for(f=((Field *)p->userp)->form->fields;f;f=f->next) switch(f->type){
case TYPEIN:
plinitentry(f->p, 0, f->size*chrwidth, f->value, 0);
break;
case PASSWD:
plinitentry(f->p, USERFL, f->size*chrwidth, f->value, 0);
break;
case FILE:
free(f->value);
f->value=strdup("");
if(f->p==nil) break;
f->p->state=0;
pldraw(f->p, screen);
break;
case CHECK:
case RADIO:
f->state=f->checked;
plsetbutton(f->p, f->checked);
break;
case SELECT:
for(o=f->options;o;o=o->next)
o->selected=o->def;
break;
}
pldraw(text, screen);
}
void h_buttoninput(Panel *p, int){
Field *f;
f = p->userp;
if(f && f->form && f->form->method != POST && f->form->action)
geturl(f->form->action, -1, 0, 0);
}
void h_fileinput(Panel *p, int){
char name[NNAME];
Field *f;
f = p->userp;
nstrcpy(name, f->value, sizeof(name));
for(;;){
if(eenter("Upload file", name, sizeof(name), &mouse) <= 0)
break;
if(access(name, AREAD) == 0)
break;
}
free(f->value);
f->value = strdup(name);
p->state = name[0] != 0;
pldraw(f->p, screen);
}
/*
* If there's exactly one button with type=text, then
* a CR in the button is supposed to submit the form.
*/
void h_submittype(Panel *p, char *){
int ntype;
Field *f;
ntype=0;
for(f=((Field *)p->userp)->form->fields;f;f=f->next)
if(f->type==TYPEIN || f->type==PASSWD)
ntype++;
if(ntype==1) h_submitinput(p, 0);
}
void h_submitindex(Panel *p, char *){
h_submitinput(p, 0);
}
void mencodeform(Form *form, int fd){
char *b, *p, *sep;
int ifd, n, nb;
Option *o;
Field *f;
Rune *rp;
sep = "--" BOUNDARY;
for(f=form->fields;f;f=f->next)switch(f->type){
case TYPEIN:
case PASSWD:
fprint(fd, "%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%s",
sep, f->name, plentryval(f->p));
sep = "\r\n--" BOUNDARY;
break;
case CHECK:
case RADIO:
case SUBMIT:
if(!f->state) break;
case HIDDEN:
if(f->name==0 || f->value==0)
break;
fprint(fd, "%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%s",
sep, f->name, f->value);
sep = "\r\n--" BOUNDARY;
break;
case SELECT:
if(f->name==0) break;
for(o=f->options;o;o=o->next)
if(o->selected && o->value){
fprint(fd, "%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%s",
sep, f->name, o->value);
sep = "\r\n--" BOUNDARY;
}
break;
case TEXTWIN:
if(f->name==0) break;
n=plelen(f->textwin);
rp=pleget(f->textwin);
p=b=malloc(UTFmax*n+1);
if(b == nil)
break;
while(n > 0){
p += runetochar(p, rp);
rp++;
n--;
}
*p = 0;
fprint(fd, "%s\r\nContent-Disposition: form-data; name=\"%s\"\r\n\r\n%s",
sep, f->name, b);
sep = "\r\n--" BOUNDARY;
free(b);
break;
case FILE:
if(f->name==0 || f->value[0]==0)
break;
if(p = strrchr(f->value, '/'))
p++;
if(p == 0 || *p == 0)
p = f->value;
if((b = malloc(nb = 8192)) == nil)
break;
if((ifd = open(f->value, OREAD)) >= 0){
if(filetype(ifd, b, nb) < 0)
strcpy(b, "application/octet-stream");
fprint(fd, "%s\r\nContent-Disposition: form-data; name=\"%s\"; filename=\"%s\""
"\r\nContent-Type: %s\r\n\r\n", sep, f->name, p, b);
sep = "\r\n--" BOUNDARY;
while((n = read(ifd, b, nb)) > 0)
if(write(fd, b, n) != n)
break;
close(ifd);
}
free(b);
break;
}
fprint(fd, "%s--\r\n", sep);
}
void uencodeform(Form *form, int fd){
char *b, *p, *sep;
Option *o;
Field *f;
Rune *rp;
int n;
sep = "";
for(f=form->fields;f;f=f->next) switch(f->type){
case TYPEIN:
case PASSWD:
fprint(fd, "%s%U=%U", sep, f->name, plentryval(f->p));
sep = "&";
break;
case INDEX:
fprint(fd, "%s%U", sep, plentryval(f->p));
sep = "&";
break;
case CHECK:
case RADIO:
case SUBMIT:
if(!f->state) break;
case HIDDEN:
if(f->name==0 || f->value==0)
break;
fprint(fd, "%s%U=%U", sep, f->name, f->value);
sep = "&";
break;
case SELECT:
if(f->name==0) break;
for(o=f->options;o;o=o->next)
if(o->selected && o->value){
fprint(fd, "%s%U=%U", sep, f->name, o->value);
sep = "&";
}
break;
case TEXTWIN:
if(f->name==0) break;
n=plelen(f->textwin);
rp=pleget(f->textwin);
p=b=malloc(UTFmax*n+1);
if(b == nil)
break;
while(n > 0){
p += runetochar(p, rp);
rp++;
n--;
}
*p = 0;
fprint(fd, "%s%U=%U", sep, f->name, b);
sep = "&";
free(b);
break;
}
}
void h_submitinput(Panel *p, int){
char buf[NNAME];
Form *form;
Field *f;
int n, fd;
f = p->userp;
form=f->form;
for(f=form->fields;f;f=f->next)
if(f->type==SUBMIT)
f->state = (f->p == p);
switch(form->method){
case GET:
strcpy(buf, "/tmp/mfXXXXXXXXXXX");
fd = create(mktemp(buf), ORDWR|ORCLOSE, 0600);
break;
case POST:
fd = urlpost(selurl(form->action), form->ctype);
break;
default:
return;
}
if(fd < 0){
message("submit: %r");
return;
}
if(form->method==GET){
fprint(fd, "%s?", form->action);
uencodeform(form, fd);
seek(fd, 0, 0);
n = readn(fd, buf, sizeof(buf));
close(fd);
if(n < 0 || n >= sizeof(buf)){
message("submit: too large");
return;
}
buf[n] = 0;
geturl(buf, -1, 0, 0);
} else {
/* only set for multipart/form-data */
if(form->ctype)
mencodeform(form, fd);
else
uencodeform(form, fd);
geturl(form->action, fd, 0, 0);
}
}
void freeform(void *p)
{
Form *form;
Field *f;
Option *o;
while(form = p){
p = form->next;
free(form->action);
while(f = form->fields){
form->fields = f->next;
if(f->p!=0)
plfree(f->p);
free(f->name);
free(f->value);
while(o = f->options){
f->options = o->next;
if(o->value != o->label+1)
free(o->value);
free(o);
}
free(f);
}
free(form);
}
}
int Ufmt(Fmt *f){
char *s = va_arg(f->args, char*);
for(; *s; s++){
if(strchr("/$-_@.!*'(),", *s)
|| 'a'<=*s && *s<='z'
|| 'A'<=*s && *s<='Z'
|| '0'<=*s && *s<='9')
fmtprint(f, "%c", *s);
else if(*s==' ')
fmtprint(f, "+");
else
fmtprint(f, "%%%.2X", *s & 0xFF);
}
return 0;
}