home *** CD-ROM | disk | FTP | other *** search
- <%
- #include </utility/global.fts>
- #include </utility/ftgate.fts>
- #include </utility/theme.fts>
- #include </utility/wmsecurity.fts>
-
- var name=""
- var email=""
- var imported=false
-
- var ldap = new server.ldapdata
-
- if (request.find=="1")
- {
- name = request.name
- email = request.mail
- imported = request.imported
- }
-
- if (name=="")
- name="*"
- if (email=="")
- email="*"
-
- var elements
- // Set up list parameters
- //
- if (request.elements!="")
- {
- session.address.start=number(request.start)
- if (session.address.start<0)
- session.address.start=0
-
- elements = number(request.elements)
- if (elements<1)
- elements=10
- }
- else
- {
- session.address.start=0
-
- if (number(session.address.elements)==0)
- session.address.elements=10
-
- elements=number(session.address.elements)
- }
-
- session.address.elements = elements
- %>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
- <HTML>
- <HEAD>
- <LINK REL=STYLESHEET HREF="/utility/main<%=nn4%>.css" TYPE="text/css">
- <META NAME="GENERATOR" Content="Microsoft Developer Studio">
- <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
- <TITLE>FTGate Web Mail -- Address Book</TITLE>
- </HEAD>
-
- <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
- <!--
- var details=null;
- var dir="<%=buttons%>"
-
- if (!document.images) {}
- else {
- close0 = new Image();
- close0.src = dir+"ok.gif";
- close1 = new Image();
- close1.src = dir+"okon.gif";
- find0 = new Image();
- find0.src = dir+"find.gif";
- find1 = new Image();
- find1.src = dir+"findon.gif";
- add0 = new Image();
- add0.src = dir+"add.gif";
- add1 = new Image();
- add1.src = dir+"addon.gif";
- next0 = new Image();
- next0.src = dir+"next.gif";
- next1 = new Image();
- next1.src = dir+"nexton.gif";
- prev0 = new Image();
- prev0.src = dir+"prev.gif";
- prev1 = new Image();
- prev1.src = dir+"prevon.gif";
- help0 = new Image();
- help0.src = dir+"help.gif";
- help1 = new Image();
- help1.src = dir+"helpon.gif";
- }
-
- function change(Name,Image,No)
- {
- if (!document.images) {}
- else document [Name].src = eval(Image + No + ".src");
- }
-
- function onAdd(email)
- {
- var to;
-
- if (window.opener.document.ftgate.tocc.value==1)
- to = window.opener.document.ftgate.to.value;
- else
- to = window.opener.document.ftgate.cc.value;
-
- if (to!="")
- to+=";";
-
- to+=email;
-
- if (window.opener.document.ftgate.tocc.value==1)
- window.opener.document.ftgate.to.value = to;
- else
- window.opener.document.ftgate.cc.value = to;
- }
-
- function onUnload()
- {
- if (details!= null && details.closed == false)
- {
- details.close();
- details = null;
- }
- }
-
- function onClose()
- {
- window.close();
- }
-
- function isOn(item)
- {
- if (item.checked)
- return 1;
-
- return 0
- }
-
- function onFind(form)
- {
- var href = "ldap.fts?find=1&start=0"+
- "&mail="+form.email.value+
- "&name="+form.name.value+
- "&imported="+isOn(form.imported)+
- "&elements="+form.elements.value;
-
- window.location.href = href;
- }
-
- function onDetails(url)
- {
- details = window.open(url,"Details","width=400,height=325,resizable=yes,scrollbars=yes");
- details.opener = window;
- details.focus();
- }
-
- function onNext()
- {
- var href = "ldap.fts?find=1"+
- "&start=<%=session.address.start+elements%>"+
- "&mail=<%=email%>"+
- "&name=<%=name%>"+
- "&imported=<%=imported%>"+
- "&elements=<%=elements%>";
-
- window.location.href = href;
- }
-
- function onPrev()
- {
- var start = <%=session.address.start%>-<%=elements%>;
-
- if (start<0)
- start=0
-
- var href = "ldap.fts?find=1"+
- "&start="+start+
- "&mail=<%=email%>"+
- "&name=<%=name%>"+
- "&imported=<%=imported%>"+
- "&elements=<%=elements%>";
-
- window.location.href = href;
- }
-
- function onLoad()
- {
- document.ftgate.name.focus();
- }
-
- function onLocalHelp()
- {
- var index;
- var s=window.location.href;
-
- s = s.slice(s.indexOf("/",7)+1);
- if ((index=s.indexOf("?"))!=-1)
- s=s.slice(0, index);
-
- // var help = window.open("/help/index.fts?href="+s, "WebMailHelp", "toolbar=1,menubar=1,location=0,resizable=1,scrollbars=1");
- var help = window.open("/help.fts?href="+s, "WebMailHelp");
- help.focus();
- }
- //-->
- </SCRIPT>
- <SCRIPT LANGUAGE="JavaScript1.2" SRC="/utility/cookies.js" TYPE="text/javascript"></SCRIPT>
- <SCRIPT LANGUAGE="JavaScript1.2" SRC="/utility/core.js" TYPE="text/javascript"></SCRIPT>
-
- <BODY BGCOLOR="khaki" BACKGROUND="/images/goldstn1.gif" onLoad="onLoad()" onUnload="onUnload()">
- <FORM NAME="ftgate" METHOD="POST" ACTION="">
-
- <INPUT TYPE="HIDDEN" NAME="config" VALUE="1">
-
- <TABLE BORDER="0"WIDTH="100%" CELLPADDING="0" CELLSPACING="0"><TR><TD>
- <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0">
- <TR>
- <TD VALIGN="TOP">
- <!-- sub table goes here -->
- <TABLE BORDER="0" WIDTH="100%">
- <TR>
- <TD ALIGN="RIGHT">
- <A HREF="javascript:onLocalHelp()"onMouseOver="st('Show Help topic for current page')"
- onMouseDown="change('helpA', 'help', 1)"
- onMouseOut="change('helpA', 'help', 0)"><IMG SRC="<%=buttons%>help.gif" NAME="helpA" BORDER="0" WIDTH="20" HEIGHT="20" ALT="Help"></A>
- </TD>
- </TR>
- <TR>
- <TD>
- <TABLE CLASS="box" WIDTH="100%">
- <TR>
- <TD>
- <TABLE BORDER="0" WIDTH="100%">
- <TR>
- <TD>Name</TD><TD><INPUT TYPE="TEXT" NAME="name" VALUE="<%=name%>" SIZE="<%=size20%>"></TD>
- <TD ALIGN="RIGHT">
- <A HREF="javascript:onFind(document.ftgate)"
- onMouseDown="change('findA', 'find', 1)"
- onMouseOut="change('findA', 'find', 0)"><IMG SRC="<%=buttons%>find.gif" NAME="findA" BORDER="0" WIDTH="50" HEIGHT="20" ALT="Find Entries"></A>
- </TD>
- </TR>
- <TR>
- <TD>Email</TD><TD><INPUT TYPE="TEXT" NAME="email" VALUE="<%=email%>" SIZE="<%=size20%>"></TD>
- <TD ALIGN="RIGHT">
- <A HREF="javascript:onClose()"
- onMouseDown="change('closeA', 'close', 1)"
- onMouseOut="change('closeA', 'close', 0)"><IMG SRC="<%=buttons%>ok.gif" NAME="closeA" BORDER="0" WIDTH="50" HEIGHT="20" ALT="Close Window"></A>
- </TD>
- </TR>
- <TR>
- <TD> </TD>
- <TD>
- <INPUT TYPE="CHECKBOX" NAME="imported"
- <% if (imported) output.write("CHECKED") %>>Imported
- </TD>
- <TD> </TD>
- </TR>
- <%
- if (request.find)
- {
- %>
- <TR>
- <TD>Limit list to</TD>
- <TD>
- <INPUT TYPE="TEXT" NAME="elements" VALUE="<%=elements%>">
- </TD>
- <TD> </TD>
- </TR>
- <%
- }
- %>
- </TABLE>
- </TD>
- </TR>
- </TABLE>
- </TD>
- </TR>
- <%
- if (request.find=="1")
- {
- %>
- <TR>
- <TD>
- <TABLE CLASS="box" WIDTH="100%">
- <TR>
- <TH> </TH>
- <TH>Name</TH>
- <TH>Email</TH>
- <TH>Phone</TH>
- <TH>Fax</TH>
- <TH> </TH>
- </TR>
- <%
- var index = 0
-
- var end = session.address.start+elements
-
- var sql = "mail LIKE '"+email+"'"
- sql = sql +" AND cn LIKE '"+name+"'"
- sql = sql +" AND imported="+number(imported)
-
- var ok=ldap.entry.select(sql)
-
- while (ok && (index<session.ldap.start))
- {
- ok ldap.entry.next()
- index++
- }
-
- while (ok && (index<end))
- {
- var qMail=""
- var qCn=""
- var qGn=""
- var qSn=""
- var qO=""
- var qFn=""
- var qPn=""
- var qImported=0
-
- index++
-
- var ok2 = ldap.entry.field.first()
- while (ok2)
- {
- if (ldap.entry.field.name=="mail")
- qMail=ldap.entry.field.value
- else if (ldap.entry.field.name=="cn")
- qCn=ldap.entry.field.value
- else if (ldap.entry.field.name=="givenname")
- qGn=ldap.entry.field.value
- else if (ldap.entry.field.name=="sn")
- qSn=ldap.entry.field.value
- else if (ldap.entry.field.name=="o")
- qO=ldap.entry.field.value
- else if (ldap.entry.field.name=="imported")
- qImported=ldap.entry.field.value
- else if (ldap.entry.field.name=="facsimiletelephonenumber")
- qFn=ldap.entry.field.value
- else if (ldap.entry.field.name=="telephonenumber")
- qPn=ldap.entry.field.value
-
- ok2=ldap.entry.field.next()
- }
- %>
- <TR>
- <TD CLASS="box"><%=index%></TD>
- <TD CLASS="box"><A HREF="javascript:onDetails('details.fts?mail=<%=qMail%>&cn=<%=qCn%>&gn=<%=qGn%>&sn=<%=qSn%>&o=<%=qO%>&import=<%=qImported%>')"><%=qCn%></A> </TD>
- <TD CLASS="box"><%=qMail%> </TD>
- <TD CLASS="box"><%=qPN%> </TD>
- <TD CLASS="box"><%=qFN%> </TD>
- <TD ALIGN="RIGHT">
- <A HREF="javascript:onAdd('<%=qMail%>')"
- onMouseDown="change('addA<%=ldap.entry.id%>', 'add', 1)"
- onMouseOut="change('addA<%=ldap.entry.id%>', 'add', 0)"><IMG SRC="<%=buttons%>add.gif" NAME="addA<%=ldap.entry.id%>" BORDER="0" WIDTH="50" HEIGHT="20" ALT="Close Window"></A>
- </TD>
- </TR>
- <%
- ok=ldap.entry.next()
- }
- %>
- </TABLE>
- </TD>
- </TR>
- <%
- if ((session.address.start!=0) || ok)
- {
- %>
- <TR>
- <TD COLSPAN="2">
- <TABLE BORDER="0" WIDTH="100%">
- <TR>
- <TD>
- <%
- if (session.address.start!=0)
- {
- %>
- <A HREF="javascript:onPrev()" onMouseDown="change('prevA', 'prev', 1)" onMouseOut="change('prevA', 'prev', 0)"><IMG SRC="<%=buttons%>prev.gif" NAME="prevA" BORDER="0" WIDTH="40" HEIGHT="20" ALT="Previous <%=elements%> entries"></A>
- <%
- }
- else
- {
- %>
- <IMG SRC="<%=buttons%>prevoff.gif" NAME="prevA" BORDER="0" WIDTH="40" HEIGHT="20" ALT="Previous <%=elements%> entries">
- <%
- }
- if (ok)
- {
- %>
- <A HREF="javascript:onNext()" onMouseDown="change('nextA', 'next', 1)" onMouseOut="change('nextA', 'next', 0)"><IMG SRC="<%=buttons%>next.gif" NAME="nextA" BORDER="0" WIDTH="40" HEIGHT="20" ALT="Next <%=elements%> entries"></A>
- <%
- }
- else
- {
- %>
- <IMG SRC="<%=buttons%>nextoff.gif" NAME="nextA" BORDER="0" WIDTH="40" HEIGHT="20" ALT="Next <%=elements%> entries">
- <%
- }
- %>
- </TD>
- </TR>
- </TABLE>
- </TD>
- </TR>
- <%
- }
- }
- %>
- </TABLE>
- <!-- end of the tab body -->
- </TD></TR></TABLE>
-
- </FORM>
- </BODY>
- </HTML>