<%--     H e a d e r   --%>
<%
uri <- getRequestUri(request);
uriPath <- strsplit(uri, split="/")[[1]][-1];

if (regexpr("./$", uri) != -1) {
  upPath <- "../";
} else if (regexpr("./index.rsp$", uri) != -1) {
  upPath <- "../";
  uriPath <- uriPath[-length(uriPath)];
} else {
  upPath <- "index.rsp";
  uriPath <- uriPath[-length(uriPath)];
}
%>

<div class="PageHeader">
 <div style="float: left;">
  <a href="/">~</a> / 
  <% for (kk in seq(length=length(uriPath))) { %>
    <a href="/<%=paste(uriPath[1:kk], collapse="/")%>/"><%=uriPath[kk]%></a> /
  <% } %>
 </div>
 <div style="float: right;">
  Admin: 
  <a href="/admin/shutdown.rsp">shutdown</a>
 </div>
 <br>
</div>


<style type="text/css">  
tt {  
font-family: courier, monospace;  
}  
</style>  
