1<erl>
2out(A) -> {ssi, "HEAD.inc","%%",[{"remove", "choosen"}]}.
3</erl>
4
5
6<h3>Remove yapp</h3>
7<form action="remove_post.yaws" method="post">
8<erl>
9
10format_yapp_tables([]) -> [];
11format_yapp_tables([ServId|T]) ->
12   Yapps = yapp_handler:list(yapp_handler,ServId),
13   [ format_yapp_table(ServId, Yapps) | format_yapp_tables(T)].
14
15format_yapp_table(ServId, undefined) -> "";
16format_yapp_table(ServId, Yapps) ->
17    ["<h3> Server id : ", ServId, "</h3>",
18     "<table border=\"1\"><tr><th>Select</th><th>Application</th><th>Url</th></tr>",
19    format_yapps(ServId, Yapps),
20    "<table>"].
21
22format_yapps(ServId,[]) ->
23    [];
24format_yapps(ServId, [{Urlpath, Appname}|T]) ->
25    ["<tr><td>",
26     "<input type=\"radio\" name=\"srvidurlpath\" value=\"", ServId,",",Urlpath, "\" />",
27     "</td><td>", atom_to_list(Appname), "</td><td>", Urlpath, "</td></tr>" | format_yapps(ServId, T)].
28
29out(A) ->
30   Header = "Cache-Control:no-store",
31
32   [{header,Header},{html, format_yapp_tables(yapp:get_server_ids())}].
33
34</erl>
35<p>
36<input type="submit" value="Remove Yapp">
37</p>
38</form>
39<p>The Yapps listed in this page are those stored in the Yapp registry. It excludes the applications
40loaded from yaws.conf with the bootstrap_yapps opaque variable. It will also include those registered
41applications that are not available in the Erlang load path, and therefore not shown on the "List" page.</p>
42
43<erl>
44out(A) -> {ssi,"END.inc",[],[]}.
45</erl>
46