#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;
}

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.