summaryrefslogtreecommitdiffstats
path: root/squid-digest-html.lsp
blob: c5049c9a9f2d3108987c7b3fd19e695adb24f5d7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<% local form, viewlibrary, page_info, session = ... %>
<% require("viewfunctions") %>

<% displaycommandresults({"enabledigestlist"}, session) %>

<H1>Digest User List Status</H1>
<DL>
<%
	displayitem(form.value.status)
	if form.value.status.errtxt then %>
<dt></dt><dd><form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/enabledigestlist" %>">
<input class="submit" type="submit" value="Enable"></form></dd>
<%	end
%>
</DL>

<%
local pattern = string.gsub(page_info.prefix..page_info.controller, "[%(%)%.%%%+%-%*%?%[%]%^%$]", "%%%1")
local func = haserl.loadfile(page_info.viewfile:gsub(pattern..".*$", "/") .. "filedetails-html.lsp")
func(form, viewlibrary, page_info, session)
%>