summaryrefslogtreecommitdiffstats
path: root/openvpn-client_config-html.lsp
blob: c2395ca5c8580eb8f6170af96ba751c51b2145b8 (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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
<? local view = ... ?>
<html>
<body>
<h1>Client config '<?= view.config.name ?>'</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>Client settings</h2>

<dt>Mode</dt>
<dd>client</dd>

<dt>User device</dt>
<dd><?= view.config.dev ?></dd>

<dt>Remote server</dt>
<dd><?= view.config.remote ?>:<?= view.config.remoteport ?> (<?= view.config.proto ?>)</dd>

<dt>Logfile</dt>
<dd><? if ( view.config.log ) then ?><?= html.link{value = view.url .. "/logfile?name=" .. view.config.linkname  , label=view.config.log } ?><? else ?>Syslog<? end ?> (Verbosity level: <?= view.config.verb ?>)</dd>

<dt>View/Modify configfile</dt>
<dd><?= html.link{value = view.url .. "/unknown_config?name=" .. view.config.linkname  , label=view.config.name } ?></dd>

<? --[[ ?>
<h3>Client properties</h3>

<dt>Common name</dt>
<dd>xxx</dd>

<dt>Virtual address</dt>
<dd>xxx.xxx.xxx.xxx</dd>

<dt>Real address</dt>
<dd>xxx.xxx.xxx.xxx:xxxx</dd>

<? --]] ?>

<h2>Startup options</h2>

<dt>Process running</dt>
<dd><input type="checkbox" disabled <? if (view.config.status_isrunning ~= "") then io.write("checked='yes'") end ?>></dd>

<h2>Certificate files</h2>

<? if (view.config.ca) then ?>
<dt>CA Certificate</dt>
<dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.ca  , label=view.config.ca } ?></dd>
<? end ?>

<? if (view.config.cert) then ?>
<dt>Client Certificate</dt>
<dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.cert  , label=view.config.cert } ?></dd>
<? end ?>

<? if (view.config.key) then ?>
<dt>Client Private Key</dt>
<dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.key  , label=view.config.key } ?></dd>
<? end ?>

<? if (view.config.tls) then ?>
<dt>TLS Authentication</dt>
<dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.tls  , label=view.config.tls } ?></dd>
<? end ?>

<? if (view.config.crl) then ?>
<dt>CRL Verify File</dt>
<dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.crl  , label=view.config.crl } ?> (client side)</dd>
<? end ?>
<? --]] ?>

</body>
</html>