home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd1.bin / Komunik / sambar / _setup.1 / mailto.stm < prev    next >
Text File  |  2000-08-01  |  8KB  |  220 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>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 ENCTYPE="multipart/form-data" ACTION="sendmail.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="popup" VALUE="<RC$popup>">
  100. <TABLE align="center" BORDER="0" CELLSPACING="5" CELLPADDING="4">
  101.     <tr><td align="right" colspan="2"><RCVwmheader></td></tr>
  102.     <tr>
  103.         <td align="right" class="lblmailto" colspan="2" id="mailtoheader">Mail to <RCif RC$to ! null><RC$to><RCelse>new recipient<RCendif></td>
  104.     </tr>
  105.     <TR>
  106.         <TD align="right" class="lblmailto">To </TD>
  107.         <TD width=395>
  108.         <RCif RC$action = reply OR RC$action = replytoall>
  109.             <!--- With reply(toall) the to field is filled in --->
  110.             <RCif RC$to_hdquot ! -1 AND RC$to_hsquot ! -1>
  111.                 <!--- Both a single and a double quote. Resort to a textarea --->
  112.             <TEXTAREA cols=60 rows=2 name="to" wrap="soft"><RC$to></textarea>
  113.             <RCelse>
  114.                 <!--- Not both quotes, so determin the quotemark to use --->
  115.                 <RCif RC$to_hdquot ! -1>
  116.                     <!--- A double quote, so use a single --->
  117.             <INPUT TYPE="text" NAME="to" VALUE='<RC$to>' SIZE="60" MAXLENGTH="300" onChange="updateHeader(this.value)">
  118.                 <RCelse>
  119.                     <!--- A single quote, so use a double --->
  120.             <INPUT TYPE="text" NAME="to" VALUE="<RC$to>" SIZE="60" MAXLENGTH="300" onChange="updateHeader(this.value)">
  121.                 <RCendif>
  122.             <RCendif>
  123.         <RCelse>
  124.             <!--- Not a reply(toall) so don't bother to set the to field --->
  125.             <INPUT TYPE="text" NAME="to" SIZE="60" MAXLENGTH="300" onblur="updateHeader(this.value)">
  126.         <RCendif>
  127.         </TD>
  128.     </TR>
  129.     <TR>
  130.         <TD align="right" class="lblmailto">From </TD>
  131.         <TD>
  132.             <INPUT TYPE="text" NAME="from" VALUE=""<RCPname>" <<RCEusername>@<RCEmailname>>" SIZE="60" MAXLENGTH="300">
  133.         </TD>
  134.     </TR>
  135.     <TR>
  136.         <TD align="right" class="lblmailto">Subject </TD>
  137.         <TD>
  138.             <INPUT TYPE="text" NAME="subj" Value="<RC$subj>" SIZE="60" MAXLENGTH="300">
  139.         </TD>
  140.     </TR>
  141.     <TR>
  142.         <TD align="right" class="lblmailto">Cc </TD>
  143.         <TD>
  144.         <RCif RC$action = replytoall>
  145.             <RCif RC$cc_hdquot ! -1 AND RC$cc_hsquot ! -1>
  146.                 <!--- Both a single and a double quote. Resort to a textarea --->
  147.             <TEXTAREA cols=60 rows=2 name="to" wrap="soft"><RC$to></textarea>
  148.             <RCelse>
  149.                 <!--- Not both quotes, so determin the quotemark to use --->
  150.                 <RCif RC$cc_hdquot ! -1>
  151.                     <!--- A double quote, so use a single --->
  152.             <INPUT TYPE="text" NAME="cc" Value='<RC$cc>' SIZE=60 MAXLENGTH=400>
  153.                 <RCelse>
  154.                     <!--- A single quote, so use a double --->
  155.             <!--DEBUG:<RC$cc>-->
  156.             <INPUT TYPE="Text" name="cc" value="<RC$cc>" SIZE=60 MAXLENGTH=400>
  157.                 <RCendif>
  158.             <RCendif>
  159.         <RCelse>
  160.             <INPUT TYPE="text" NAME="cc" Value="" SIZE="60" MAXLENGTH="400">
  161.         <RCendif>
  162.         </TD>
  163.     </TR>
  164.     <TR>
  165.         <TD align="right" class="lblmailto">Bcc </TD>
  166.         <TD>
  167.             <INPUT TYPE="text" NAME="bcc" Value="<RCPdef_bcc>" SIZE="60" MAXLENGTH="300">
  168.         </TD>
  169.     </TR>
  170.     <TR>
  171.         <TD align="right" valign="top" class="lblmailto">Body </TD>
  172.         <TD>
  173. <!--- Format the textarea to accompany reply/forward and profile settings for wrapping. --->
  174. <RCif RCPwrap_out > 0>
  175.     <RC$wrap = hard>
  176.     <RC$cols = RCPwrap_out>
  177. <RCelse>
  178.     <RC$wrap = soft>
  179.     <RC$cols = 58>
  180. <RCendif>
  181. <!--DEBUG <RCPwrap_out>-->
  182. <!--- 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. --->
  183.  
  184. <RCif RC$action = reply>
  185. <TEXTAREA NAME="body" ROWS="10" COLS="<RC$cols>" wrap="<RC$wrap>">
  186. On <RC$date>, you wrote:
  187. <RCXmailbody folder=RCSfolder msgno=RC$msgno style=RCSstyle prepend="> ">
  188. </TEXTAREA>
  189. <RCelseif RC$action = forward OR RC$action = replytoall>
  190. <TEXTAREA NAME="body" ROWS="10" COLS="<RC$cols>" wrap="<RC$wrap>">
  191. On <RC$date_esc>, <RC$from_esc> wrote:
  192. <RCXmailbody folder=RCSfolder msgno=RC$msgno style=RCSstyle prepend="> ">
  193. </TEXTAREA>
  194. <RCelse>
  195. <TEXTAREA NAME="body" ROWS="10" COLS="<RC$cols>" wrap="<RC$wrap>"></TEXTAREA>
  196. <RCendif>
  197. <!--- Set at 1 line, to eliminate returns in the textarea --->
  198.         </TD>
  199.     </TR>
  200.     <TR>
  201.         <TD VALIGN=TOP ALIGN=RIGHT class="lblmailto">Attachment</TD>
  202.         <TD VALIGN=TOP>
  203.             <input name="attach" type="file" size="46" value="">
  204.             <BR>
  205.             <I>(100k Limit)</I>
  206.             <BR>
  207.         </TD>
  208.     </TR>
  209.     <TR>
  210.     <TD> </TD>
  211.     <TD>
  212.         <INPUT TYPE="SUBMIT" NAME="send" VALUE="Send Message">
  213. </FORM>
  214.         </TD>
  215.     </TR>
  216. </TABLE>
  217.  
  218. </body>
  219. </HTML>
  220.