From a343050b2b91067d70eafd5ade88d6a3637be236 Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Sat, 9 Jul 2005 05:31:38 +0000
Subject: r8257: add a samr rpc test page in the web server. It lists all
 level3 information from QueryUserInfo for all users in the domain.

If you want to see why I am putting the effort into ejs, then please
read swat/scripting/samr.js, and compare it to other methods of rpc
access for our web management interface. Using ejs like this will make
building a rich interface _much_ easier.
(This used to be commit eb354f6da7ed79eb080f2ba47df2ea655e1891db)
---
 swat/esptest/samr.esp | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 swat/esptest/samr.esp

(limited to 'swat/esptest/samr.esp')

diff --git a/swat/esptest/samr.esp b/swat/esptest/samr.esp
new file mode 100644
index 0000000000..f0159fcafa
--- /dev/null
+++ b/swat/esptest/samr.esp
@@ -0,0 +1,35 @@
+<% page_header("columns", "ESP samr test"); 
+
+  include("/scripting/samr.js");
+%>
+
+<h1>Samba4 samr rpc test</h1>
+
+<%
+var conn    = new Object();
+var binding = "ncalrpc:";
+status = rpc_connect(conn, binding, "samr");
+check_status_ok(status);
+
+handle = samrConnect(conn);
+
+domains = samrEnumDomains(conn, handle);
+
+for (i=0;i<domains.length;i++) {
+    write("<h2>Domain " + domains[i].name + "</h2>\n");
+    sid = samrLookupDomain(conn, handle, domains[i].name);
+    dom_handle = samrOpenDomain(conn, handle, sid);
+    users = samrEnumDomainUsers(conn, dom_handle);
+    samrFillUserInfo(conn, dom_handle, users, 3);
+    if (users.length == 0) {
+	    write("no users in domain<br>\n");
+    } else {
+	    multi_table(users, "name");
+    }
+    samrClose(dom_handle);
+}
+
+%>
+
+
+<% page_footer(); %>
-- 
cgit