summaryrefslogtreecommitdiffstats
path: root/openvpn-read-html.lsp
blob: 75215ef50e6565b76d661e43ab569d07c7a5dcf6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
<? local view = ... ?>

<html>
<body>
<h1>Welcome</h1>


<? --[[ DEBUG INFORMATION...?>
<span style='color:#D2691E;font-family:courier;'>------------ START DEBUG INFORMATION ------------
<h3>THIS VIEW CONTAINS THE FOLLOWING VARIABLES/TABLES</h2>
<?
--print ("<span style='color:darkblue;font-family:courier;'>")
for a,b in pairs(view) do
	if not (type(b) == "table") then
		print ("<b>" .. a .. "</b>: ><span2 style='color:black'>" .. b .. "</span2><<BR>")
	else
		print ("<b>" .. a .. "</b>:...<BR>")
		for c,d in pairs(view[a]) do
			if not (type(d) == "table") then
				print ("<b> { " .. c .. "</b>: ><span2 style='color:black'>" .. d .. "</span2>< <B> }</B><BR>")
			else
				print ("<b> { " .. c .. "</b>:...<BR>")
				for e,f in pairs(view[a][c]) do
					if not (type(f) == "table") then
						print ("<b> { { " .. e .. "</b>: ><span2 style='color:black'>" .. f .. "</span2>< <B> } }</B><BR>")
					else
						print ("<b> { { " .. e .. "</b>:... (table is not visible at the moment)<BR>")
					end
				end
			end
		end
	end
a,b,c,d,e,f,g,h,i,j = nil,nil,nil,nil,nil,nil,nil,nil,nil,nil
end
print ("------------ END DEBUG INFORMATION ------------</span>")
?>
<? --]] ?>

<h2>Available configs</h2>
<TABLE BORDER=0 WIDTH="100%">
	<TR style="background:#eee;font-weight:bold;vertical-align:top;">
		<TD WIDTH=140>Config</TD>
		<TD WIDTH=70>Type</TD>
		<TD WIDTH=70>Status</TD>
		<TD WIDTH=140>Connected Clients</TD>
		<TD>Notes</TD>
	</TR>		

<? for i = 1, table.maxn(view.conflistfiles) do ?>
	<TR >
		<TD><?= html.link{value = view.url .. "/" .. view.conflistfiles[i].type .. "_config?name=" .. view.conflistfiles[i].name , label=view.conflistfiles[i].name } ?></TD>
		<TD><?= view.conflistfiles[i].type ?></TD>
		<TD><?= view.conflistfiles[i].status ?></TD>
		<TD><? if ( view.conflistfiles[i].type == "server" ) then ?><? if ( view.conflistfiles[i].clients > 0 ) then ?><?= html.link{value = view.url .. "/status_info?name=" .. view.conflistfiles[i].name  , label=view.conflistfiles[i].clients } ?><? else ?><?= view.conflistfiles[i].clients ?><? end ?><? end ?></TD>
		<TD style="color:red"><i><?= view.conflistfiles[i].err ?></i></TD>
	</TR>		
<? end ?>
</TABLE>

<h2>System info</h2>

<dt>Program version</dt>
<dd><?= view.version ?></dd>



</body>
</html>