home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / windowsxp / ftgateoffice / ftgateoffice.exe / Main / controls.fts < prev    next >
Encoding:
Text File  |  2001-11-29  |  8.5 KB  |  282 lines
  1. <%
  2. #include </utility/security.fts>
  3. #include </utility/global.fts>
  4. #include </utility/theme.fts>
  5. #include </utility/ftgate.fts>
  6.  
  7. var d = new server.domain
  8. var m
  9.  
  10. var domain
  11. var name
  12.  
  13. session.system.error=0
  14.  
  15. if ((form.command==1)||(form.command==3))
  16. {
  17.     domain = form.domain
  18.     name = form.name
  19.  
  20.     d.domainname = form.domain
  21.     m = new d.mailbox
  22.     m.name=name
  23.  
  24.     m.listowner = form.listowner
  25.  
  26.     m.allowsubscribe = (form.allowsubscribe=="on")
  27.     m.logsubscribes = (form.logsubscribes=="on")
  28.     m.confirmsubscribes = (form.confirmsubscribes=="on")
  29.     m.hidefromlistserver = (form.hidefromlistserver=="on")
  30.     m.keepmessages = (form.keepmessages=="on")
  31.     m.moderated = (form.moderated=="on")
  32.     m.membersonly = (form.membersonly=="on")
  33.     m.includesender = (form.includesender=="on")
  34.     m.replyoption = (form.replyoption=="on")
  35.     m.enabledsn = (form.enabledsn=="on")
  36.  
  37.     if (form.sizelimit==0)
  38.         m.sizelimitenable = 0
  39.     else
  40.     {
  41.         m.sizelimitenable = 1
  42.         m.sizelimit = form.sizelimit
  43.     }
  44.  
  45.     m.titletag = form.titletag
  46.  
  47.     if (form.command==3)
  48.         output.redirect("done.fts")
  49.     else
  50.         output.redirect("join.fts?domain="+domain+"&name="+name)
  51. }
  52. else if (form.command=="2")
  53. {
  54.     output.redirect("password.fts?domain="+form.domain+"&name="+form.name)
  55. }
  56. else
  57. {
  58.     domain = request.domain
  59.     name = request.name
  60.  
  61.     d.domainname = request.domain
  62.     m = new d.mailbox
  63.     m.name=name
  64. }
  65. %>
  66. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
  67. <HTML>
  68. <HEAD>
  69. <LINK REL=STYLESHEET HREF="/utility/main<%=nn4%>.css" TYPE="text/css">
  70. <META NAME="GENERATOR" Content="Microsoft Developer Studio">
  71. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  72. <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
  73. <!--
  74. var dir="<%=buttons%>";
  75.  
  76. <%
  77. if (netscape)
  78. {
  79.   %>
  80.   var enter=false;
  81.   document.captureEvents(Event.KEYPRESS);
  82.   document.onkeypress = keypress;
  83.  
  84.   function keypress(event)
  85.   {
  86.     if (event.which==13)
  87.     {
  88.       onNext();
  89.       return false;
  90.     }
  91.  
  92.     return true;
  93.   }
  94.   <%
  95. }
  96. else
  97. {
  98.   %>
  99.   function keypress()
  100.   {
  101.     if (event.keyCode==13)
  102.     {
  103.       event.returnValue=null;
  104.       onNext();
  105.     }
  106.   }
  107.   <%
  108. }
  109. %>
  110.  
  111. function isOK(form)
  112. {
  113.     if (form.moderated.checked && !isEmail(form.listowner.value))
  114.     {
  115.         alert(errEmail);
  116.         form.listowner.focus();
  117.         return false;
  118.     }
  119.  
  120.     return true;
  121. }
  122.  
  123. function onLoad()
  124. {
  125.     <%
  126.     if (session.system.error)
  127.     {
  128.         output.writeln("alert(aspError("+session.system.error+"));")
  129.     }
  130.     %>
  131.  
  132.   document.ftgate.listowner.focus();
  133. }
  134. //-->
  135. </SCRIPT>
  136. <SCRIPT LANGUAGE="JavaScript1.2" SRC="/utility/cookies.js" TYPE="text/javascript"></SCRIPT>
  137. <SCRIPT LANGUAGE="JavaScript1.2" SRC="/utility/core.js" TYPE="text/javascript"></SCRIPT>
  138. <SCRIPT LANGUAGE="JavaScript1.2" SRC="/utility/wizard.js" TYPE="text/javascript"></SCRIPT>
  139. </HEAD>
  140.  
  141. <%
  142. var pagetitle="List Controls"
  143. #include <header.fts>
  144. %>
  145.  
  146. <!--- start of the tabs ---->
  147. <FORM NAME="ftgate" METHOD="POST" onSubmit="return isOK(this)" ACTION="controls.fts">
  148. <INPUT TYPE="HIDDEN" NAME="command" VALUE="1">
  149. <INPUT TYPE="HIDDEN" NAME="domain" VALUE="<%=domain%>">
  150. <INPUT TYPE="HIDDEN" NAME="name" VALUE="<%=name%>">
  151.  
  152. <!--- start of the tab body --->
  153. <TABLE BORDER="0" BGCOLOR="<%=border%>" WIDTH="100%" CELLPADDING="0" CELLSPACING="0"><TR><TD>
  154. <TABLE <%=table%> CELLPADDING="0" CELLSPACING="0">
  155.   <!----- start of block --->
  156.   <TR>
  157.     <TD VALIGN="TOP">
  158.         <!----- sub table goes here --->
  159.         <TABLE BORDER="0" WIDTH="100%">
  160.           <TR>
  161.                 <TD>
  162.                         <TABLE BORDER="0" WIDTH="100%">
  163.                             <TR>
  164.                                 <TH COLSPAN="2">These settings define how the list box operates.<P></TH>
  165.                             </TR>
  166.                             <TR>
  167.                                 <TD COLSPAN="2">List owner <INPUT TYPE="EDIT" NAME="listowner" VALUE="<%=m.listowner%>" onKeyPress="setModified(true)"></TD>
  168.                             </TR>
  169.                             <TR>
  170.                                 <TD>
  171.                                     <INPUT TYPE="CHECKBOX" NAME="allowsubscribe" onClick="setModified(true)"
  172.                                     <% if (m.allowsubscribe) output.writeln("CHECKED") %>>Allow SUBSCRIBE<BR>
  173.                                     <INPUT TYPE="CHECKBOX" NAME="logsubscribes" onClick="setModified(true)"
  174.                                     <% if (m.logsubscribes) output.writeln("CHECKED") %>>Log SUBSCRIBES<BR>
  175.                                     <INPUT TYPE="CHECKBOX" NAME="confirmsubscribes" onClick="setModified(true)"
  176.                                     <% if (m.confirmsubscribes) output.writeln("CHECKED") %>>Confirm SUBSCRIBES<BR>
  177.                                     <INPUT TYPE="CHECKBOX" NAME="hidefromlistserver" onClick="setModified(true)"
  178.                                     <% if (m.hidefromlistserver) output.writeln("CHECKED") %>>Hide from server LIST command<BR>
  179.                                     <INPUT TYPE="CHECKBOX" NAME="keepmessages" onClick="setModified(true)"
  180.                                     <% if (m.keepmessages) output.writeln("CHECKED") %>>Maintain archive of postings<BR>
  181.                                 </TD>
  182.                                 <TD>
  183.                                     <INPUT TYPE="CHECKBOX" NAME="moderated" onClick="setModified(true)"
  184.                                     <% if (m.moderated) output.writeln("CHECKED") %>>Moderated<BR>
  185.                                     <INPUT TYPE="CHECKBOX" NAME="membersonly" onClick="setModified(true)"
  186.                                     <% if (m.membersonly) output.writeln("CHECKED") %>>Only allow list members to post messages<BR>
  187.                                     <INPUT TYPE="CHECKBOX" NAME="includesender" onClick="setModified(true)"
  188.                                     <% if (m.includesender) output.writeln("CHECKED") %>>Include Sender in postings<BR>
  189.                                     <INPUT TYPE="CHECKBOX" NAME="replyoption" onClick="setModified(true)"
  190.                                     <% if (m.replyoption) output.writeln("CHECKED") %>>Set header "Reply to:" to this list<BR>
  191.                                     <INPUT TYPE="CHECKBOX" NAME="enabledsn" onClick="setModified(true)"
  192.                                     <% if (m.enabledsn) output.writeln("CHECKED") %>>Auto-manage members<BR>
  193.                                 </TD>
  194.                             </TR>
  195.               <TR>
  196.                                 <TD COLSPAN="2">
  197.                                     <TABLE WIDTH="100%">
  198.                                         <TR>
  199.                                             <TD COLSPAN="2">Limit postings to</TD>
  200.                                             <TD>
  201.                                                 <SELECT NAME="sizelimit" onClick="setModified(true)">
  202.                                                     <OPTION VALUE="0"
  203.                                                     <%
  204.                                                         if (m.sizelimitenable==0)
  205.                                                             output.write("SELECTED")
  206.                                                     %>>No Limit</OPTION>
  207.                                                     <OPTION VALUE="1024"
  208.                                                     <%
  209.                                                         if ((m.sizelimitenable==1)&&(m.sizelimit<=1024))
  210.                                                             output.write("SELECTED")
  211.                                                     %>>1Kb</OPTION>
  212.                                                     <OPTION VALUE="2048"
  213.                                                     <%
  214.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>1024) && (m.sizelimit<=2048)))
  215.                                                             output.write("SELECTED")
  216.                                                     %>>2Kb</OPTION>
  217.                                                     <OPTION VALUE="5120"
  218.                                                     <%
  219.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>2048) && (m.sizelimit<=5120)))
  220.                                                             output.write("SELECTED")
  221.                                                     %>>5Kb</OPTION>
  222.                                                     <OPTION VALUE="10240"
  223.                                                     <%
  224.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>5120) && (m.sizelimit<=10240)))
  225.                                                             output.write("SELECTED")
  226.                                                     %>>10Kb</OPTION>
  227.                                                     <OPTION VALUE="20480"
  228.                                                     <%
  229.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>10240) && (m.sizelimit<=20480)))
  230.                                                             output.write("SELECTED")
  231.                                                     %>>20Kb</OPTION>
  232.                                                     <OPTION VALUE="51200"
  233.                                                     <%
  234.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>20480) && (m.sizelimit<=51200)))
  235.                                                             output.write("SELECTED")
  236.                                                     %>>50Kb</OPTION>
  237.                                                     <OPTION VALUE="102400"
  238.                                                     <%
  239.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>51200) && (m.sizelimit<=102400)))
  240.                                                             output.write("SELECTED")
  241.                                                     %>>100Kb</OPTION>
  242.                                                     <OPTION VALUE="512000"
  243.                                                     <%
  244.                                                         if ((m.sizelimitenable==1)&&((m.sizelimit>102400) && (m.sizelimit<=512000)))
  245.                                                             output.write("SELECTED")
  246.                                                     %>>500Kb</OPTION>
  247.                                                     <OPTION VALUE="1048576"
  248.                                                     <%
  249.                                                         if ((m.sizelimitenable==1)&&(m.sizelimit>512000))
  250.                                                             output.write("SELECTED")
  251.                                                     %>>1Mb</OPTION>
  252.                                                 </SELECT>
  253.                                             </TD>
  254.                                         </TR>
  255.                                         <TR>
  256.                       <TD COLSPAN="2">Subject identifier</TD>
  257.                       <TD><INPUT TYPE="EDIT" NAME="titletag" VALUE="<%=m.titletag%>"></TD>
  258.                     </TR>
  259.                                     </TABLE>
  260.                                 </TD>
  261.                             </TR>
  262.                         </TABLE>
  263.           </TD>
  264.             </TR>
  265.                 <%
  266.                 #include <footer.fts>
  267.                 %>
  268.         </TABLE>
  269.         <!----- sub table ends here --->
  270.     </TD>
  271.     </TR>
  272.   <!------ end of block ----->
  273. </TABLE>
  274. <!--- end of the tab body --->
  275. </TD></TR></TABLE>
  276. <INPUT TYPE="HIDDEN" NAME="href" VALUE="/mailboxes/wizard/controls.fts?domain=<%=domain%>&name=<%=name%>">
  277. </FORM>
  278.  
  279. </TD><TD WIDTH="10"> </TD></TD></TR></TABLE>
  280. </BODY>
  281. </HTML>
  282.