<%! /********************************************************************** ** ** SAP AG Walldorf ** (C) Copyright SAP AG 1999-2010 ** ***********************************************************************/ #include "publicincl/tools.inc" struct icm_adm_status_type { string auth_file; string port; string host; string rhost; string hostaddr; string rhostaddr; }; %> <% int user_count; int nr, rc; string what, browser, fld, is_checked, opstr; string user, passwd; boolean is_admin; struct icm_adm_status_type icm_adm_status; struct icm_user_type icm_user_info[]; is_admin = __icm_get_system_property ("is_admin"); browser = __icm_get_browser_type(); what = anumenc(__icm_get_form_field ("what")); rc = __icm_adm_hdl (1, icm_adm_status); user_count = 0; if (rc == 0) user_count = __icm_get_user_info(icm_adm_status.auth_file, icm_user_info); %>

Web Admin handler		Refresh
Name of Authentication File:	<%=icm_adm_status.auth_file%>
Admin restricted to local port:	<% if (icm_adm_status.port == "") __output (" "); else __output (icm_adm_status.port); %>
Admin restricted to local host:	<% if (icm_adm_status.host == "") __output (" "); else __output (icm_adm_status.host, "(", icm_adm_status.hostaddr, ")"); %>
Admin restricted to client host:	<% if (icm_adm_status.rhost == "") __output (" "); else __output (icm_adm_status.rhost, "(", icm_adm_status.rhostaddr, ")"); %>

<% for (nr = 0; nr < user_count; nr++) { if (icm_user_info[nr].passwd != "x") passwd = "set"; else passwd = "none"; %> <% } %>

Users in file <%=icm_adm_status.auth_file%>					<% if (is_admin) { %> Edit Users <% } else __output(" "); %>
	Name	Group	Client Certificate Data	Password	Attributes
<%=nr%>	<%=icm_user_info[nr].user%>	<%=icm_user_info[nr].group%>	<%=icm_user_info[nr].cert%>	<%=passwd%>	<% if (icm_user_info[nr].locked) __output(""); else __output(" "); %>