diff options
-rw-r--r-- | openvpn-client_config-html.lsp | 34 | ||||
-rw-r--r-- | openvpn-logfile-html.lsp | 2 | ||||
-rw-r--r-- | openvpn-pem_info-html.lsp | 2 | ||||
-rw-r--r-- | openvpn-read-html.lsp | 44 | ||||
-rw-r--r-- | openvpn-server_config-html.lsp | 36 | ||||
-rw-r--r-- | openvpn-status_info-html.lsp | 10 | ||||
-rw-r--r-- | openvpn-unknown_config-html.lsp | 37 |
7 files changed, 15 insertions, 150 deletions
diff --git a/openvpn-client_config-html.lsp b/openvpn-client_config-html.lsp index c2395ca..03cbea3 100644 --- a/openvpn-client_config-html.lsp +++ b/openvpn-client_config-html.lsp @@ -3,39 +3,6 @@ <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> @@ -98,7 +65,6 @@ print ("------------ END DEBUG INFORMATION ------------</span>") <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> diff --git a/openvpn-logfile-html.lsp b/openvpn-logfile-html.lsp index 6eb05d5..0615b77 100644 --- a/openvpn-logfile-html.lsp +++ b/openvpn-logfile-html.lsp @@ -2,7 +2,7 @@ <html> <body> <h1>Logfile '<?= view.logfilecontent.name ?>'</h1> -<textarea name="" style="width:100%;height:450px;"><?= view.logfilecontent.value ?></textarea> +<textarea name=""><?= view.logfilecontent.value ?></textarea> </body> </html> diff --git a/openvpn-pem_info-html.lsp b/openvpn-pem_info-html.lsp index 028ba03..5f048b4 100644 --- a/openvpn-pem_info-html.lsp +++ b/openvpn-pem_info-html.lsp @@ -33,7 +33,7 @@ <h2>Certificate Details</h2> -<input type=text style="width:100%;height:300px"></input> +<textarea></textarea> </body> diff --git a/openvpn-read-html.lsp b/openvpn-read-html.lsp index 75215ef..c75f4c7 100644 --- a/openvpn-read-html.lsp +++ b/openvpn-read-html.lsp @@ -4,45 +4,13 @@ <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%"> +<TABLE> <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>Config</TD> + <TD>Type</TD> + <TD>Status</TD> + <TD>Connected<BR>Clients</TD> <TD>Notes</TD> </TR> @@ -62,7 +30,5 @@ print ("------------ END DEBUG INFORMATION ------------</span>") <dt>Program version</dt> <dd><?= view.version ?></dd> - - </body> </html> diff --git a/openvpn-server_config-html.lsp b/openvpn-server_config-html.lsp index 511e48a..d6e177c 100644 --- a/openvpn-server_config-html.lsp +++ b/openvpn-server_config-html.lsp @@ -3,39 +3,6 @@ <body> <h1>Server 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>Server settings</h2> <dt>Mode</dt> @@ -69,8 +36,6 @@ print ("------------ END DEBUG INFORMATION ------------</span>") <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.dh) then ?> @@ -103,6 +68,5 @@ print ("------------ END DEBUG INFORMATION ------------</span>") <dd><?= html.link{value = view.url .. "/pem_info?name=" .. view.config.crl , label=view.config.crl } ?></dd> <? end ?> -<? --]] ?> </body> </html> diff --git a/openvpn-status_info-html.lsp b/openvpn-status_info-html.lsp index 6aa3cdd..2c28d05 100644 --- a/openvpn-status_info-html.lsp +++ b/openvpn-status_info-html.lsp @@ -4,13 +4,13 @@ <h1>Status</h1> <h2>Connected clients</h2> -<TABLE BORDER=0 WIDTH="100%"> +<TABLE> <TR style="background:#eee;font-weight:bold;vertical-align:top;"> <TD WIDTH=140>Common Name<BR>Connected at</TD> - <TD WIDTH=140>Virtual Address</TD> - <TD WIDTH=140>Real Address</TD> - <TD WIDTH=140>Bytes Received</TD> - <TD>Bytes Sent</TD> + <TD WIDTH=130>Virtual Address</TD> + <TD WIDTH=130>Real Address</TD> + <TD>Bytes<BR>Received</TD> + <TD>Bytes<BR>Sent</TD> </TR> <? for i = 1, table.maxn(view.clientlist) do ?> <TR> diff --git a/openvpn-unknown_config-html.lsp b/openvpn-unknown_config-html.lsp index db577a7..fe8aa1f 100644 --- a/openvpn-unknown_config-html.lsp +++ b/openvpn-unknown_config-html.lsp @@ -3,37 +3,6 @@ <body> <h1>Configuration file '<?= view.configfilecontent.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>Details</h2> <dt>File name</dt> @@ -51,10 +20,10 @@ print ("------------ END DEBUG INFORMATION ------------</span>") <h2>Content</h2> <form name="myform" action="" method="POST"> -<input name="name" type="hidden" value="<?= view.configfilecontent.name ?>" style="width:100%"> -<textarea name="modifications" style="width:100%;height:400px;"><?= view.configfilecontent.value ?></textarea> +<input name="name" type="hidden" value="<?= view.configfilecontent.name ?>"> +<textarea name="modifications"><?= view.configfilecontent.value ?></textarea> -<input type="submit" name="cmd" value="update"></form> +<input type="submit" name="cmd" class="submit" value="update"></form> </body> </html> |