Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 90 lines (69 sloc) 2.803 kb
21abc5b @klacke Initial revision
authored
1 <erl>
2
b12525a @klacke 1.01 checkin
authored
3
dbab7a3 @klacke ssi include with var expansion + docs
authored
4 out(A) ->
20ece13 @klacke more css hackery
authored
5 [{ssi, "TAB.inc","%%",[{"index", "choosen"}]},
dbab7a3 @klacke ssi include with var expansion + docs
authored
6 {ehtml,
bea8261 @klacke added log_wrap_size, configurable wrap size for all logs, fixed a bug in...
authored
7 [{'div', [{id, "entry"}],
0be3c7e @klacke untabified all of yaws
authored
8 [{h1,[],"Yaws"},
f875c2b @klacke added <verbatim> tag for .yaws files, It works as the pre (or the code) ...
authored
9
10
0be3c7e @klacke untabified all of yaws
authored
11 {p,[],"Yaws is a HTTP high perfomance 1.1 webserver particularly"
0fa9db4 @vinoski fix typos on front page
vinoski authored
12 " well suited for dynamic-content web applications. Two
13 separate modes of operations are supported:"},
0be3c7e @klacke untabified all of yaws
authored
14 {ul,[],
15 [{li,[],
16 {p,[],"Standalone mode where Yaws runs as a regular webserver "
17 "daemon. This is the default mode."}},
18 {li,[],
19 {p,[], "Embedded mode where Yaws runs as an embedded webserver in "
0fa9db4 @vinoski fix typos on front page
vinoski authored
20 "another Erlang application."}}
0be3c7e @klacke untabified all of yaws
authored
21 ]},
22 {p,[], ["Yaws is entirely written in ",
23 {a, [{href, "http://www.erlang.org"}], "Erlang"},
0fa9db4 @vinoski fix typos on front page
vinoski authored
24 ", and furthermore it is a multithreaded webserver where one "
25 "Erlang lightweight process is used to handle each client."]},
26 {p,[], "The main advantages of Yaws compared to other Web technologies"
0be3c7e @klacke untabified all of yaws
authored
27 " are performance and elegance. The performance comes from the "
28 " underlying Erlang system and its ability to handle concurrent "
29 " processes in an efficent way. Its elegance comes from Erlang as "
0fa9db4 @vinoski fix typos on front page
vinoski authored
30 "well. Web applications don't have to be written in ugly ad hoc "
0be3c7e @klacke untabified all of yaws
authored
31 "languages."},
32
33 {h2,[], "yaws.hyber.org"},
34
35 {p,[], ["The www page for Yaws is ",
36 {a ,[{href,"http://yaws.hyber.org"}], "yaws.hyber.org"},
37 " The documentation, examples as well as releases can be "
38 "found there, and of course, ",
39 {a ,[{href,"http://yaws.hyber.org"}],"yaws.hyber.org"},
40 " is itself powered by Yaws."]},
41
42 {p,[], ["A mailing list exists at: ",
43 {a,[{href,"https://lists.sourceforge.net/lists/listinfo/""erlyaws-list"}],
44 "https://lists.sourceforge.net/lists/listinfo/erlyaws-list"}]},
45 {h2, [], "News"},
46 gen_news(A)]}]},
bea8261 @klacke added log_wrap_size, configurable wrap size for all logs, fixed a bug in...
authored
47 {ssi, "END2",[],[]}].
48
dbab7a3 @klacke ssi include with var expansion + docs
authored
49
50
51 gen_news(A) ->
b2d5a00 @klacke postvar(), queryvar(), ssi docs
authored
52 case file:open(A#arg.docroot ++ "/news",[read]) of
0be3c7e @klacke untabified all of yaws
authored
53 {ok, Fd} ->
54 gen_news(Fd, io:get_line(Fd,''));
55 Err ->
56 {p,[], f("No news: ~p",[Err])}
b2d5a00 @klacke postvar(), queryvar(), ssi docs
authored
57 end.
dbab7a3 @klacke ssi include with var expansion + docs
authored
58
59 gen_news(Fd, eof) ->
cf75f08 @klacke ""
authored
60 file:close(Fd),
dbab7a3 @klacke ssi include with var expansion + docs
authored
61 [];
62 gen_news(Fd, Line) ->
63 Items = gen_items(Fd, io:get_line(Fd, '')),
757eca1 @klacke ""
authored
64 case Items of
65 [] ->
66 gen_news(Fd, io:get_line(Fd,''));
67 _ ->
68 X = [{'div', [{class, "news"}],
0be3c7e @klacke untabified all of yaws
authored
69 [{h3, [], Line},
70 {ul, [], Items}]}
71 ],
72
757eca1 @klacke ""
authored
73 [X | gen_news(Fd, io:get_line(Fd,''))]
74 end.
75
dbab7a3 @klacke ssi include with var expansion + docs
authored
76
77 gen_items(Fd, [10]) ->
78 [];
79 gen_items(Fd,eof) ->
80 [];
81 gen_items(Fd,Line) ->
82 [{li, [], {p, [], Line}} |gen_items(Fd, io:get_line(Fd, ''))].
b12525a @klacke 1.01 checkin
authored
83
ad6ed86 @klacke ""
authored
84
85
dbab7a3 @klacke ssi include with var expansion + docs
authored
86 </erl>
e16ea1b @klacke ""
authored
87
88
f0b4192 @klacke ""
authored
89
Something went wrong with that request. Please try again.