61> A1.
"text/plain; q=0.5, text/html,text/x-dvi; q=0.8, text/x-c"
62> iserve:parse_accept(A1).
[{accept,"text/x-c",1000,[]},
 {accept,"text/x-dvi",800,[]},
 {accept,"text/html",1000,[]},
 {accept,"text/plain",500,[]}]
63> A2.
"text/*, text/html, text/html;level=1, */*"
64> iserve:parse_accept(A2).
[{accept,"*/*",1000,[]},
 {accept,"text/html",1000,[{"level","1"}]},
 {accept,"text/html",1000,[]},
 {accept,"text/*",1000,[]}]


A bit embarassing that it is 80 lines though.