<!-- 
srssoap.jsp 
Java Server Page test client for Bio-directory services 
d. gilbert, oct 2002
-->

<%@ page import="electric.registry.*,iubio.srs.*,java.util.*" %>
<%@ page import="javax.servlet.http.*,javax.servlet.jsp.*" %>
<%@ taglib prefix="c" uri="http://java.sun.com/jstl/core" %>
<%@ taglib prefix="x" uri="http://java.sun.com/jstl/xml" %>

<!-- for xtransform... the taglib <x.transform> is messing up -->
<%@ page import="java.io.*,org.w3c.dom.*,javax.xml.transform.*,javax.xml.transform.dom.*,javax.xml.transform.stream.*" %>


<%!
	// static/global code
static boolean canDo= true;

static int pagesize= 20;
static int atpage= 0;
static int nResults = 0 ;
static String query= "none"; 
static String dirinfo, libinfo;
static String dirname, dirSelector, libSelector, xmlresults;
static String format= "html";
static ArrayList libnames; 
static String libnamesXsl, dirnameXsl, err;
static String baseDN= ""; //"srv=srs";

static ConvertKeyVals toxml= ConvertKeyVals.getInstance();

static SRSsoapPortType app; 
	// reference to web service hosted in this app
	//? need a new one of these for each query??
		// add a soap host/service url choice ... don't rely on localhost service app?
		// e.g. fix Registry.bind( app, class)

static {
	try {
		libnames= new ArrayList();
		libnames.add("lib=none");
		libnames.add("lib=GenBank");
		libnames.add("lib=SwissProt");
	
		app = (SRSsoapPortType) Registry.bind( "srs", SRSsoapPortType.class );
		}
	catch( Exception ex ) { 
		err= ex.getMessage();
		}
}

static void setFormat(String fmt) { 
	if (fmt==null || fmt.length()==0) fmt= format;
	format= fmt;
	if (fmt.equals("html")) fmt= "xml";  
	toxml.setReturnType(fmt); 
	if (canDo) app.setReturnType(fmt); // this one is doing conversion now - change to client?
	}

static String dsml2html= "bionames-dsml.xsl";

static String xtransform( String xml, String xsl ) 
	throws Exception
{		
	StringWriter sbuffer= new StringWriter();
	StreamSource source;
	if (xsl.endsWith(".xsl"))
		source = new StreamSource(new File(xsl)); // FIXME - path to bionames folder
		//source = new StreamSource(new URL(xsl).openStream());  //?
	else  
		source = new StreamSource(new StringReader(xsl)); 
	
	Document document = new electric.xml.Document( xml );
	TransformerFactory factory = TransformerFactory.newInstance();
	Transformer processor = factory.newTransformer( source );
	StreamResult result = new StreamResult( sbuffer );
	processor.transform( new DOMSource( document ), result );
	return sbuffer.toString();
}
 

static void getDirInfo() 
{
	if (dirnameXsl==null) {
		// this would be easier w/ some xpath function
		StringBuffer s= new StringBuffer();
		s.append("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
		s.append("<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\"> ");
		s.append("<xsl:output indent=\"no\" method=\"html\"/>");
		s.append("<xsl:template match=\"entry\">");
		s.append("dn=<xsl:value-of select=\"@dn\" />;<xsl:apply-templates/>");
		s.append("</xsl:template>");
		s.append("<xsl:template match=\"attr\">");
		s.append("<xsl:if test='@name=\"name\"' >name=<xsl:value-of select=\"value/text()\" />;</xsl:if>");
		s.append("<xsl:if test='@name=\"cn\"' >cn=<xsl:value-of select=\"value/text()\" />;</xsl:if>");
		s.append("</xsl:template>");
		s.append("</xsl:stylesheet>");
		dirnameXsl= s.toString();
		}


	int nrecs= 0;
	dirname= "";
	String savefmt= format;
	//setFormat("xml");
	dirinfo= toxml.getHeader();
	if (canDo) {
		nrecs= app.search(baseDN,"base",null,"","*","99","0");
						//"base","(objectClass=*)","*,+","99","0"
		if (nrecs>0) {
			//app.setReturnType("xml"); //! urk, need to fix soap server get kinds !
			String dirxml= app.getPage(0, nrecs);
			dirinfo += dirxml;
			try { 
				String dn= xtransform( dirxml, dirnameXsl); 
				String[] kv= splitString(dn,";"); // "=;" is bad for dn's
				for (int i=0; i<kv.length; i++) {
					String k= kv[i]; String v= k;
					int e; if ((e=k.indexOf('=')) > 0) { v= k.substring(e+1); k= k.substring(0,e); }
					if ("name".equals(k)) { dirname= v; break; }
					else if ("cn".equals(k)) { dirname= v; break; }
					else if ("dn".equals(k)) { dirname= v; }
					}
				} catch (Exception e){}
			}
		}
	if (nrecs==0) dirinfo += "<entry dn=\"No directory info\"/>";
	dirinfo += toxml.getFooter();
	//setFormat(savefmt);
}

		
static void getLibInfo() 
{
	if (libnamesXsl==null) {
		StringBuffer s= new StringBuffer();
		s.append("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
		s.append("<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\"> ");
		s.append("<xsl:output indent=\"no\" method=\"html\"/>");
		s.append("<xsl:template match=\"entry\">");
		s.append("<xsl:value-of select=\"@dn\" />;");
		s.append("</xsl:template>");
		s.append("</xsl:stylesheet>");
		libnamesXsl= s.toString();
		}

	int nrecs= 0;
	String savefmt= format;
	//setFormat("xml");
	libinfo= toxml.getHeader();
	if (canDo) {
		nrecs= app.search(baseDN,"one",null,"","*","0","0");
		//nrecs= app.search(baseDN,"one",null,"","","0","0");
		//ok= ldapsearch(ldapurl,"one","(objectClass=*)","*,+",null,null);
		if (nrecs>0) {
			// argg - want soap server to return key/value list for lib names also
			String libxml= app.getPage(0, nrecs);
			libinfo += libxml; //!toxml.toXML(libxml);
			}
		}
	if (nrecs==0) libinfo += "<entry dn=\"No library info\"/>";
	libinfo += toxml.getFooter();
	//setFormat(savefmt);
	if (nrecs>0) try { 
		libnames.clear();  
		String libns= xtransform( libinfo, libnamesXsl); 
		String[] libs= splitString(libns,";");
		if (libs!=null) for (int i=0; i<libs.length; i++) libnames.add(libs[i]);
		} catch (Exception e){}
}

static String libkey= "lib";
static String makeLibSelector(String[] sels) 
{
	StringBuffer s= new StringBuffer();
	s.append("<select name=\"lib\" multiple size=7>\n");
	for (int i=0; i<libnames.size(); i++) {
		String dn= (String) libnames.get(i);
		String[] kv= splitString(dn, "=,");
		if (kv.length<2) continue; //?
		String key= kv[0];
		libkey= key; // save for query
		String lib= kv[1];
		s.append("<option");
		if (sels!=null) 
		for (int j=0; j<sels.length; j++) {
			if (lib.equals(sels[j])) s.append(" selected");
			}
		s.append(">");
		s.append(lib); s.append("\n");
		}
	s.append("</select>\n");
	libSelector= s.toString();
	return libSelector;
}


static String[] splitString(String s, String del) {
	if (s==null) return new String[0];
	StringTokenizer st= new StringTokenizer(s, del);
	int n= st.countTokens(); String[] ss= new String[n];
	for (int i=0; i<n; i++) ss[i]= st.nextToken();
	return ss;
}

static void doSearch(HttpServletRequest request, PageContext pageContext) 
{
	String field= request.getParameter( "field" );
	String value= request.getParameter( "value" );
	String basedn= request.getParameter( "basedn" );
	String scope= request.getParameter( "scope" );
	String objectClasses = request.getParameter( "objectClasses" );
	String attributes= request.getParameter( "attributes" );
	String sizelimit= request.getParameter( "sizelimit" );
	String timelimit= request.getParameter( "timelimit" );

	String lib= request.getParameter( "lib" );
	//String[] libs= request.getParameterValues("lib");
	//String[] fields= splitString( field," ,;");
	
	baseDN= basedn; //???
	
	String err= null;
	nResults = 0 ;
	atpage= 0;
	boolean ok= ( (lib!=null && lib.length()>0)
					&& (field!=null && field.length()>0)
					&& (value!=null && value.length()>0) );

	query = "[lib={"+lib+"}-"+field+":"+value+"]";
	if (!ok) {
		if (!"sub".equals(scope)) { query= ""; ok= true; }
		}
	
 	if (!ok)	
		err= "<dsml><directory-entries>"
			+"<entry dn=\"Badly formed query\"/></directory-entries></dsml>";
//  	else if (app == null)
// 		err= "<dsml><directory-entries>"
// 			+"<entry dn=\"Application error\"/></directory-entries></dsml>";
			
 	else if (canDo)  
		nResults= app.search( basedn, scope, query, objectClasses, 
  	  		attributes, sizelimit, timelimit); 

	pageContext.setAttribute("query",query);
	pageContext.setAttribute("nResults",new Integer(nResults));

	if ( nResults > 0 )
		nextPage(request, pageContext);
	else {
		if (err==null) err= "<dsml><directory-entries>"
		+"<entry dn=\"No results\"/></directory-entries></dsml>";
	 	xmlresults= err;
	 	pageContext.setAttribute("results",xmlresults);
 		pageContext.setAttribute("moreresults","");
	 	}
}

static void nextPage(HttpServletRequest request, PageContext pageContext) {
	String x = toxml.getHeader();
	int nrecs= pagesize; 
	if (nrecs>nResults - atpage) nrecs= nResults-atpage;
	if (canDo) 
		x += app.getPage(atpage, nrecs);
	x += toxml.getFooter();
 	xmlresults= x;
 	pageContext.setAttribute("results",x);
 	pageContext.setAttribute("moreresults",(nrecs>=nResults)?"true":"");
}

%>


<html>
<head>
<title>Bio-data Directories: SRS-WS-Test</title>
<head>
<body>

<center>
<h1>Experimental Biodata Directory Systems<br>
<small>Sequence Retrieval System via <i>Web Services</i></small>
</h1>
</center>

<c:import  url="dsmlxsl.txt" var="dsml2html" />

<%
	if (err!=null) {
		out.print("Error: "+err+"<p>"); err= null;
		}
		
	dsml2html= (String)pageContext.getAttribute("dsml2html");

	setFormat(request.getParameter("format"));
	pageContext.setAttribute("format",format);  
		
	try {
		pagesize= Integer.parseInt(request.getParameter("pagesize"));
		} catch (Exception ex) { pagesize= 20; }
		
	if (dirinfo==null) {
		getDirInfo();  
 		getLibInfo();
 		}
 		
	if ("dir".equals(request.getParameter("info"))) {
 		pageContext.setAttribute("dirinfo",dirinfo); // testing
		}
	else if ("lib".equals(request.getParameter("info"))) {
 		pageContext.setAttribute("libinfo",libinfo); // testing
		}
	else if ("nextpage".equals(request.getParameter("action"))) {
		nextPage(request, pageContext);
		}
 	else {
		String libsel= makeLibSelector(request.getParameterValues("lib"));
		//pageContext.setAttribute("libsel",libsel);
	
	if ("search".equals(request.getParameter("action"))) {
			doSearch(request, pageContext);
			}
		
	}
	
%>

<script language="javascript">
function ldapurl(u) { 
	//document.dform.ldapurl.value= u; 
	//u= "<%= request.getRequestURL() %>"+"?action=setserver&ldapurl="+u;
	//window.open(u,"_self");
	}
</script>

<div style="background-color: #e0e0e0">
<hr>
<center>
<h2><%= dirname %></h2>
----------
<a href="<%= request.getRequestURL()+"?info=dir" %>">Directory Info</a>
----------
<a href="<%= request.getRequestURL()+"?info=lib" %>">Library Info</a>
----------
<p>
</center>
 
<form name="sform" method="post" action="<%= request.getRequestURL() %>">
<input type="hidden" name="action" value="search">
<table>

<tr>
<td colspan=1>
<table>
<tr>
<td>Library</td>
<td>
<%= libSelector %>
</td>
</tr></table>
</td>

<td colspan=1>
<table>

<tr>
<td>Library field(s)</td>
<td><input type="text" name="field" size="30"
value=<c:out value="${param.field}" default="" /> >
e.g., des id all 
</td>
</tr>

<tr>
<td>Match string</td>
<td><input type="text" name="value" size="30"
value=<c:out value="${param.value}" default="" /> >
</td>
</tr>

<tr>
<td>Return object</td>
<td><input type="text" name="objectClasses" size="30"
value=<c:out value="${param.objectClasses}" default="*" /> >
 * = result summary, BioseqEntry, BioseqRecord
 </td>
</tr>
<tr>
<td>Return attributes</td>
<td><input type="text" name="attributes" size="30"
value=<c:out value="${param.attributes}" default="" />
>
 E.g. *=all  dn,id,nam,seq
 </td>
</tr>
</table>
</td></tr>

<tr><td colspan=2>
<table>
<tr>
<td>Search base</td>
<td><input type="text" name="basedn" size="30"
value=<c:out value="${param.basedn}" default="" /> >

 </td>
  
<td>Search scope</td>
<td>
<select name="scope">
<option value=base>Base level
<option value=one>One level
<option value=sub selected>Subtree
</select>
 </td>
</tr>

<tr>
<td>Size limit</td>
<td><input type="text" name="sizelimit" size="10"
value=<c:out value="${param.sizelimit}" default="0" /> >
</td>

<td>Output format</td>
<td>
<select name="format">
<option value=html 
<c:if test="${param.format == \"html\"}">selected</c:if>
>HTML
<option value=xml 
<c:if test="${param.format == \"xml\"}">selected</c:if>
>XML (dsml)
<option value=ldif 
<c:if test="${param.format == \"ldif\"}">selected</c:if>
>LDIF (ldap)
</select>
 </td>
 
<td><input type="submit" value="Search"></td>

</tr>
</table>
</td></tr>

</table>
</form>

<hr>
</div>

<c:if test="${!empty results}">
<h3>Results:</h3>

Query= <b><c:out value="${query}" /></b><br>

No. matches= <b><c:out value="${nResults}" /></b><br>

<c:if test="${!empty moreresults}">
<form name="nform" method="post" action="<%= request.getRequestURL() %>">
<input type="hidden" name="action" value="nextpage">
<input type="submit" name="page" value="Next page">
</form>
</c:if>

<c:choose>
<c:when test="${format == \"html\"}">
<%= xtransform(xmlresults, dsml2html) %>
<!-- this fails: x:transform xml="${results}" xslt="${dsml2html}"/ -->
</c:when>
<c:otherwise>
<pre><c:out value="${results}" /></pre>
</c:otherwise>
</c:choose>
</c:if>

<c:if test="${!empty dirinfo}">
<h3>Directory info</h3>
<c:choose>
<c:when test="${format == \"html\"}">
<%= xtransform(dirinfo, dsml2html) %>
</c:when>
<c:otherwise>
<pre><c:out value="${dirinfo}" /></pre>
</c:otherwise>
</c:choose>
</c:if>

<c:if test="${!empty libinfo}">
<h3>Library info</h3>
<c:choose>
<c:when test="${format == \"html\"}">
<%= xtransform(libinfo, dsml2html) %>
</c:when>
<c:otherwise>
<pre><c:out value="${libinfo}" /></pre>
</c:otherwise>
</c:choose>
</c:if>


</body>
</html>