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