File: upload0.yaws

package info (click to toggle)
yaws 1.65-4etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 4,164 kB
  • ctags: 3,907
  • sloc: erlang: 20,138; sh: 3,675; makefile: 556; ansic: 404; lisp: 79
file content (22 lines) | stat: -rw-r--r-- 598 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<erl>

out(A) ->
    [{ssi, "TAB.inc", "%%",[{"upload0", "choosen"}]},
     {ehtml,
     {html, [],
      {'div',[{id, "entry"}],
       [{h1, [], "Upload a file to the webserver"},
	{p, [], "The code that parses the multipart form data resides in"},
	{a, [{href, "code.yaws?file=/upload.yaws"}], "upload.yaws"},
	{br,[],[]},
	{hr,[],[]},
	{form, [{enctype, "multipart/form-data"},	
		{method, post},
		{action, "/upload.yaws"}
	       ], 
	 [{input, [{type, submit}, {value, "Upload"}] ,[]},
	  {input, [{type,file}, {width, "50"}, {name, "foo"}], []}
	 ]}]}}},
     {ssi, "END2",[],[]}].

</erl>