<%!
%>
<%
struct wdisp_systeminfo_type
{
  string sid;
};

  string browser, appl, ver, user, inst, isExtern;
  boolean is_admin;
  struct wdisp_systeminfo_type wdisp_sysinfo[];
  int sysNo,nr;
  
  sysNo = __wdisp_get_SIDs (wdisp_sysinfo);

  browser = __icm_get_browser_type();
  appl = __icm_get_system_property ("app_name");
  ver  = __icm_get_system_property ("version_string");
  user = __icm_get_system_property ("auth_user");
  inst = __icm_get_param ("rdisp/myname");
  is_admin = __icm_get_system_property ("is_admin");

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  <html>
    <head>
      <link rel=stylesheet type="text/css" href="../public/css/controls_<%=browser%>.css">
      <link rel=stylesheet type="text/css" href="../public/css/sapbsp.css">
      <title> Navigation </title>
      
      <script type="text/javascript" src="../public/js/menulist.js"></script>
      	<script type="text/javascript">
      	  <!--
      	  
	//-->
	</script>
	
    </head>
    <body class="sapBdy">
      <table border="0" cellspacing="0" cellpadding="0" width="100%" class="sapTreWhl">
	<tr>
	  <td>
	    <table border="0" cellspacing="0" cellpadding="0" width="100%">
	      <tr>
		<td class="sapTreTit">
		  <table width="100%" cellpadding="0" cellspacing="0">
		    <tr>
		      <td class="sapTxtStd">
			<span style="cursor:default;"><%= appl %> Menu (<%=inst%>)</span></td>
		    </tr>
		  </table>
		</td>
	      </tr>
	      
	      <tr>
		<td valign="top">
		<div style="white-space:nowrap;">
		  <script type="text/javascript">
		  <!--
		    var core_list = new Array;

		    core_list[0]   = "Monitor@@monitor.icp@@main@@sapLnk";
		    core_list[1]   = "Active Services@@show_serv.icp@@main@@sapLnk";
		    core_list[2]   = "Core Thread Status@@show_cthr.icp@@main@@sapLnk";
		    core_list[3]   = "Active Connections@@show_conns.icp@@main@@sapLnk";
		    core_list[4]   = "Trace@@show_trace.icp@@main@@sapLnk";
		    core_list[5]   = "Parameters@@show_params.icp@@main@@sapLnk";
		    core_list[6]   = "Hostname Buffer@@show_htab.icp@@main@@sapLnk";
		    core_list[7]   = "Release Information@@show_relinfo.icp@@main@@sapLnk";
		    core_list[8]   = "Statistic@@statistic.icp@@main@@sapLnk";
		    core_list[9]   = "MPI Status@@mpi_info.icp@@main@@sapLnk";
		    core_list[10]  = "ICM Security Log@@show_slog.icp@@main@@sapLnk";

		    createListMenu('Core System', core_list, true);
		  //-->
		  </script>
		</div>
		</td>
	      </tr>
	      
	      <tr style="height:10px"><td class="sapTreNl2"></td></tr>
	      <tr>
		<td valign="top">
		<div style="white-space:nowrap;">
		  <script type="text/javascript">
		  <!--
		    var httphand_list = new Array;

		    httphand_list[0]  = "Access Log@@show_log.icp@@main@@sapLnk";
		    httphand_list[1]  = "Server Cache@@show_cache.icp@@main@@sapLnk";
		    httphand_list[2]  = "Access Handler@@show_auth.icp@@main@@sapLnk";
		    httphand_list[3]  = "Admin Handler@@show_admin.icp@@main@@sapLnk";
		    httphand_list[4]  = "Modification Handler@@show_mod.icp@@main@@sapLnk";

		    createListMenu('HTTP Handler', httphand_list, true);
		  //-->
		  </script>
		</div>
		</td>
	      </tr>
	      
<%
    if (appl == "SAP Web Dispatcher")
    {
%>
              <tr style="height:10px"><td class="sapTreNl2"></td></tr>
              <tr>
		<td valign="top">
		<div style="white-space:nowrap;">
		  <script type="text/javascript">
		  <!--
		    var webdisp_list = new Array;
				
		    webdisp_list[0]  = "SSL End To End Dispatching@@wdisp_ssl.icp@@main@@sapLnk";
		    webdisp_list[1]  = "URL Filter@@wdisp_perm.icp@@main@@sapLnk";
		    webdisp_list[2]  = "Parameters@@show_wd_params.icp@@main@@sapLnk";
		    webdisp_list[3]  = "Session Dispatching@@wdisp_session.icp@@main@@sapLnk";
		    
		    createListMenu('Dispatching Module', webdisp_list, true);
		  //-->
		  </script>
		</div>
		</td>
	      </tr>

<%
    for (nr = 0; nr < sysNo; nr++) {
    isExtern = __wdisp_is_extern_sid(wdisp_sysinfo[nr].sid);
%>	      
	      <tr style="height:10px"><td class="sapTreNl2"></td></tr>
	      <tr>
		<td valign="top">
		<div style="white-space:nowrap;">
		  <script type="text/javascript">
		  <!--
		    var sysList<%=nr%> = new Array;
          
		    sysList<%=nr%>[0]  = "Monitor Application Servers@@wdisp_host.icp?systemID=<%=wdisp_sysinfo[nr].sid%>@@main@@sapLnk";
<%
    if (isExtern == "false") {
%>		    
		    sysList<%=nr%>[1]  = "Monitor Server Groups@@wdisp_group.icp?systemID=<%=wdisp_sysinfo[nr].sid%>@@main@@sapLnk";
            sysList<%=nr%>[2]  = "URL Mapping@@wdisp_url.icp?systemID=<%=wdisp_sysinfo[nr].sid%>@@main@@sapLnk";

<%  
    }
    if (wdisp_sysinfo[nr].sid == "000")
    {
%>
		    createListMenu('Backend System', sysList<%=nr%>, true);
<%
    } else {
%>
                    createListMenu('<%=wdisp_sysinfo[nr].sid%>', sysList<%=nr%>, true);
<%
    }
%>    
		  //-->
		  </script>
		</div>
		</td>
	      </tr>
<%
    }
%>
	      
<%
    } else {
%>
	      <tr style="height:10px"><td class="sapTreNl2"></td></tr>
	      <tr>
	        <td valign="top">
	        <div style="white-space:nowrap;">
		  <script type="text/javascript">
		  <!--
		    var icm_list = new Array;
		    icm_list[0]  = "Application Server@@serv_admin.icp@@main@@sapLnk";
	            icm_list[1]  = "Proxy Connections@@show_pconns.icp@@main@@sapLnk";
		    createListMenu('ICM', icm_list, true);
		  //-->
		  </script>
                </div>
                </td>
	      </tr>
<%
    }
%>
	    </table>
	  </td>
	</tr>
	</table>
	<br>
      <table border="0" cellspacing="0" cellpadding="0" width="100%">
	<tr><td class="sapTxtH2" align="center">Welcome, <%=user%>!</td></tr>
	<tr><td class=\"sapTxtStd\" align=\"center\">
<%
	if (is_admin)
	__output("Admin ");
	else
	__output("Monitoring ");
%>
	rights granted</td></tr>
      </table>
    </body>
  </html>
