home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 November / PCWorld_2000-11_cd.bin / Komunik / sambar444 / _SETUP.1 / forward.stm < prev    next >
Text File  |  2000-09-06  |  7KB  |  202 lines
  1. <!--- Login Check --->
  2. <RCif RCEloggedin ! true>
  3. <html><head><title>You have been logged out.</title></head><body>
  4. <RCZMAIL_ERROR_START><BR>
  5. <FONT SIZE=+2 COLOR=#ff0000><B>Mail user not logged in!</B></FONT><RCZMAIL_ERROR_END></body></HTML>
  6. <RCexit>
  7. <RCendif>
  8. <!--- /Login Check --->
  9. <RCif RC$date ! null>
  10.     <RC$date_esc = RC@txt2html(RC$date)>
  11. <RCendif>
  12. <RCif RC$from ! null>
  13.     <RC$from_esc = RC@txt2html(RC$from)>
  14. <RCendif>
  15. <!--- Eliminate double and single quotes, which give problems with textfields in the form  --->
  16. <RC$subject = RC@urlescape(RC$subj)>
  17. <RC$subj_hdquot = RC@grep(RC$subject, %22)>
  18. <RC$subj_hsquot = RC@grep(RC$subject, %27)>
  19. <RC$mailto = RC@urlescape(RC$to)>
  20. <RC$to_hdquot = RC@grep(RC$mailto, %22)>
  21. <RC$to_hsquot = RC@grep(RC$mailto, %27)>
  22. <RC$mail_cc = RC@urlescape(RC$cc)>
  23. <RC$cc_hdquot = RC@grep(RC$mail_cc, %22)>
  24. <RC$cc_hsquot = RC@grep(RC$mail_cc, %27)>
  25.  
  26. <HTML>
  27. <HEAD>
  28. <!--- Popup routine --->
  29. <RCif RC$popup ! null>
  30. <TITLE>::::Edit Window - Mail to <RC$to>::::</title>
  31. <RCelse>
  32. <!--- /Popup routine --->
  33. <TITLE>Forward Mail to <RC$to></TITLE>
  34. <RCendif>
  35. <!--- CSS routine --->
  36.     <LINK REL="StyleSheet" HREF="/syscss/webmail_<RCSstylesheet>.css" type="text/css">
  37.     <LINK REL="StyleSheet" HREF="/syscss/filters_<RCSstylesheet>.css" type="text/css">    
  38.     <RCif RCSstylesheet = winter>
  39.         <RC$nextsheet = spring>
  40.     <RCelseif RCSstylesheet = spring>
  41.         <RC$nextsheet = summer>
  42.     <RCelseif RCSstylesheet = summer>
  43.         <RC$nextsheet = autumn>
  44.     <RCelseif RCSstylesheet = autumn>
  45.         <RC$nextsheet = winter>
  46.     <RCendif>
  47. <!--- /CSS routine --->
  48. <script language="JScript" type="text/jscript">
  49.     //little feature. Navigator cannot dynamically change the contents of a tablecell, so it only works with MSIE 4 and higher
  50.     function updateHeader(strText) {
  51.         if(document.all) {
  52.             objHeader = document.all['mailtoheader']
  53.             objHeader.innerText = "Mail to " + strText
  54.         }
  55.     }
  56. </script>
  57. <!--- If this is a popup, resize the window, if the user specified a different message width. Because a profilevariable may not be set, the contents need to be evaluated to be true. --->
  58. <RCif RCPresize_win = true>
  59.     <RC$resize_win = true>
  60. <RCelse>
  61.     <RC$resize_win = false>
  62. <RCendif>
  63. <RCif RC$popup ! null AND RC$resize_win ! false>
  64. <script type="text/javascript" language="JavaScript1.2">
  65. <!--
  66. var scrWi = parseInt(screen.availWidth)
  67. var scrHe = parseInt(screen.availHeight)
  68. function doResize(intWi, intHe) {
  69.     window.resizeTo(intWi, intHe)
  70. }
  71.  
  72. function checkSize() {
  73.     if(document.all) {
  74.         //ie has a different method of determining the innerWidth of a window
  75.         if(document.body.scrollWidth != document.body.clientWidth) {
  76.             newWi = ((document.body.scrollWidth + 30) <= scrWi) ? (document.body.scrollWidth + 30) : scrWi;
  77.             newHe = ((document.body.scrollHeight + 35) <= scrHe) ? (document.body.scrollHeight + 35) : scrHe;
  78.             doResize(newWi, newHe)
  79.         }
  80.     } else {
  81.         if(window.innerWidth != document.width) {
  82.             newWi = ((document.width + 20) < scrWi) ? document.width : scrWi;
  83.             newHe = ((document.height + 20) < scrHe) ? document.height : scrHe;
  84.             doResize(newWi, newHe)
  85.         }
  86.     }
  87. }
  88.     
  89. //-->
  90. </script>
  91. <RCendif>
  92. </HEAD>
  93. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#ff0000" ALINK="#ff0000" TEXT="#000000" marginheight="0" marginwidth="0" rightmargin="0" topmargin="0" onload="document.frmCompose.to.focus(); <RCif RC$popup ! null AND RC$resize_win ! false>checkSize()<RCendif>">
  94.  
  95. <FORM ACTION="forward.stm" METHOD="POST" name="frmCompose">
  96. <INPUT TYPE=hidden NAME="RCpage" VALUE="<RCShome>/webmail.stm">
  97. <INPUT TYPE=hidden NAME="start" VALUE="1">
  98. <INPUT TYPE=hidden NAME="count" VALUE="25">
  99. <INPUT TYPE=hidden NAME="msgno" VALUE="<RC$msgno>">
  100. <INPUT TYPE=hidden NAME="folder" VALUE="<RCSfolder>">
  101. <INPUT TYPE=hidden NAME="popup" VALUE="<RC$popup>">
  102. <TABLE align="center" BORDER="0" CELLSPACING="5" CELLPADDING="4">
  103.     <tr><td align="right" colspan="2"><RCVwmheader></td></tr>
  104.     <tr>
  105.         <td align="right" class="lblmailto" colspan="2" id="mailtoheader">Mail to <RCif RC$to ! null><RC$to><RCelse>new recipient<RCendif></td>
  106.     </tr>
  107.     <TR>
  108.         <TD align="right" class="lblmailto">To </TD>
  109.         <TD width=395>
  110.         <RCif RC$action = reply OR RC$action = replytoall>
  111.             <!--- With reply(toall) the to field is filled in --->
  112.             <RCif RC$to_hdquot ! -1 AND RC$to_hsquot ! -1>
  113.                 <!--- Both a single and a double quote. Resort to a textarea --->
  114.             <TEXTAREA cols=60 rows=2 name="to" wrap="soft"><RC$to></textarea>
  115.             <RCelse>
  116.                 <!--- Not both quotes, so determin the quotemark to use --->
  117.                 <RCif RC$to_hdquot ! -1>
  118.                     <!--- A double quote, so use a single --->
  119.             <INPUT TYPE="text" NAME="to" VALUE='<RC$to>' SIZE="60" MAXLENGTH="300" onChange="updateHeader(this.value)">
  120.                 <RCelse>
  121.                     <!--- A single quote, so use a double --->
  122.             <INPUT TYPE="text" NAME="to" VALUE="<RC$to>" SIZE="60" MAXLENGTH="300" onChange="updateHeader(this.value)">
  123.                 <RCendif>
  124.             <RCendif>
  125.         <RCelse>
  126.             <!--- Not a reply(toall) so don't bother to set the to field --->
  127.             <INPUT TYPE="text" NAME="to" SIZE="60" MAXLENGTH="300" onblur="updateHeader(this.value)">
  128.         <RCendif>
  129.         </TD>
  130.     </TR>
  131.     <TR>
  132.         <TD align="right" class="lblmailto">From </TD>
  133.         <TD>
  134.             <INPUT TYPE="text" NAME="from" VALUE=""<RCPname>" <<RCEusername>@<RCEmailname>>" SIZE="60" MAXLENGTH="300">
  135.         </TD>
  136.     </TR>
  137.     <TR>
  138.         <TD align="right" class="lblmailto">Subject </TD>
  139.         <TD>
  140.             <INPUT TYPE="text" NAME="subj" Value="<RC$subj>" SIZE="60" MAXLENGTH="300">
  141.         </TD>
  142.     </TR>
  143.     <TR>
  144.         <TD align="right" class="lblmailto">Cc </TD>
  145.         <TD>
  146.         <RCif RC$action = replytoall>
  147.             <RCif RC$cc_hdquot ! -1 AND RC$cc_hsquot ! -1>
  148.                 <!--- Both a single and a double quote. Resort to a textarea --->
  149.             <TEXTAREA cols=60 rows=2 name="to" wrap="soft"><RC$to></textarea>
  150.             <RCelse>
  151.                 <!--- Not both quotes, so determin the quotemark to use --->
  152.                 <RCif RC$cc_hdquot ! -1>
  153.                     <!--- A double quote, so use a single --->
  154.             <INPUT TYPE="text" NAME="cc" Value='<RC$cc>' SIZE=60 MAXLENGTH=400>
  155.                 <RCelse>
  156.                     <!--- A single quote, so use a double --->
  157.             <!--DEBUG:<RC$cc>-->
  158.             <INPUT TYPE="Text" name="cc" value="<RC$cc>" SIZE=60 MAXLENGTH=400>
  159.                 <RCendif>
  160.             <RCendif>
  161.         <RCelse>
  162.             <INPUT TYPE="text" NAME="cc" Value="" SIZE="60" MAXLENGTH="400">
  163.         <RCendif>
  164.         </TD>
  165.     </TR>
  166.     <TR>
  167.         <TD align="right" class="lblmailto">Bcc </TD>
  168.         <TD>
  169.             <INPUT TYPE="text" NAME="bcc" Value="<RCPdef_bcc>" SIZE="60" MAXLENGTH="300">
  170.         </TD>
  171.     </TR>
  172.     <TR>
  173.         <TD align="right" valign="top" class="lblmailto">Body </TD>
  174.         <TD>
  175. <!--- Format the textarea to accompany reply/forward and profile settings for wrapping. --->
  176. <RCif RCPwrap_out > 0>
  177.     <RC$wrap = hard>
  178.     <RC$cols = RCPwrap_out>
  179. <RCelse>
  180.     <RC$wrap = soft>
  181.     <RC$cols = 58>
  182. <RCendif>
  183. <!--DEBUG <RCPwrap_out>-->
  184. <!--- PERFORMANCE NOTE: This if-then branch sets a number of independant parameters. To tweak performance, you might change the evalution of the parameters, to evaluate the "most likely" first. This is different for all systems and depends on your users. --->
  185.  
  186. <TEXTAREA NAME="body" ROWS="10" COLS="<RC$cols>" wrap="<RC$wrap>"></TEXTAREA>
  187. <!--- Set at 1 line, to eliminate returns in the textarea --->
  188.         </TD>
  189.     </TR>
  190.     <TR>
  191.     <TD> </TD>
  192.     <TD>
  193.         <INPUT TYPE="SUBMIT" NAME="send" VALUE="Forward Message">
  194. </FORM>
  195.         </TD>
  196.     </TR>
  197. </TABLE>
  198.  
  199.  
  200. </body>
  201. </HTML>
  202.