r7095: more html tidying
[jra/samba/.git] / swat / esptest / loadparm.esp
1 <% page_header("columns", "ESP loadparm test"); %>
2
3 <h1>Samba4 loadparm test</h1>
4
5 <%
6 var f = Form("LoadparmTest", 2, 1);
7 f.element[0].label = "Share";
8 f.element[1].label = "Parameter";
9 f.submit[0] = "OK";
10
11 display_form(f);
12
13 function stringVar(v) {
14         var type = typeof(v);
15         var ret = "";
16         if (type == "object") {
17                 for (val in v) {
18                         ret = ret + " " + v[val];
19                 }
20         } else {
21                 ret = ret + v;
22         }
23         return ret;
24 }
25
26 function showValue(name, v) {
27         write("parameter:" + name + "<br>\n");
28         write("Type  is: " + typeof(v) + "<br>\n");
29         write("Value is: " + stringVar(v) + "<p>\n");
30 }
31
32
33 if (request['REQUEST_METHOD'] == "POST") {
34         /* if they cancelled then take them back to the list of tests */
35         if (form['submit'] == "Cancel") {
36                 redirect("/");
37         }
38         
39         var v;
40
41         share = form['Share'];
42         name  = form['Parameter'];
43         if (share && name) {
44                 v = lpGet(share, name);
45         } else if (name) {
46                 v = lpGet(name);
47         }
48
49         showValue(name, v);
50 }
51 %>
52
53 Here are some commonly used parameters:<p>
54
55 <%
56
57 showValue("defined services", lpServices());
58
59 function showParameter(name) {
60         showValue(name, lpGet(name));
61 }
62
63 showParameter("server services");
64 showParameter("netbios name");
65 showParameter("security");
66 showParameter("workgroup");
67 showParameter("log level");
68 showParameter("server signing");
69 showParameter("interfaces");
70 %>
71
72 <% page_footer(); %>