@program webparse.muf
1 1000 d
i

: array_pick ( a s -- ? )

;

: parseweb
var webparams
var webdict
var hostname
var target
var item
var value
var param 

( What did I get from the form )
param !
( Break it into pieces, save hostname and parameters )
param @ "|" explode pop pop hostname ! pop webparams !
( make the new dictionary )
{ "Hostname" hostname @ } array_make_dict webdict !
webparams @ "&" explode array_make foreach target ! pop
 { target @ "=" split } array_make_dict webdict @ array_join webdict !
repeat
; PUBLIC parseweb
.
c
q