Mercurial > urweb
annotate tests/blob.ur @ 740:b302b6e35f93
Add MIME type to file
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sat, 25 Apr 2009 14:47:16 -0400 |
| parents | 4bb7e1c0550a |
| children | 43553c93dd8c |
| rev | line source |
|---|---|
| adamc@737 | 1 sequence s |
| adamc@740 | 2 table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string } |
| adamc@737 | 3 |
| adamc@737 | 4 fun save r = |
| adamc@739 | 5 id <- nextval s; |
| adamc@740 | 6 dml (INSERT INTO t (Id, Nam, Data, Desc, Typ) |
| adamc@740 | 7 VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]}, {[fileMimeType r.Data]})); |
| adamc@739 | 8 main () |
| adamc@737 | 9 |
| adamc@737 | 10 and main () = return <xml><body> |
| adamc@737 | 11 <form> |
| adamc@737 | 12 <textbox{#Desc}/> |
| adamc@737 | 13 <upload{#Data}/> |
| adamc@737 | 14 <submit action={save}/> |
| adamc@737 | 15 </form> |
| adamc@737 | 16 </body></xml> |