home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 January / PCWorld_2001-01_cd.bin / Software / Topware / sambar / _SETUP.1 / mailmsg.stm < prev    next >
Text File  |  2000-08-28  |  7KB  |  198 lines
  1. <RCif RCEloggedin ! true>
  2. <HTML><BODY><RCZMAIL_ERROR_START><BR>
  3. <FONT SIZE=+2 COLOR=#ff0000><B>Your login has expired.</B></FONT><RCZMAIL_ERROR_END>
  4.  
  5. </body></HTML>
  6. <RCexit>
  7. <RCendif>
  8. <!--- Standard variables --->
  9. <RC$npage = RC@sprintf("%s/%s", RCShome, webmail.stm)>
  10. <!--- Hook for customized script and elements --->
  11. <!--- browserID copyright (c) 2000 Melvyn Sopacua--->
  12. <RC$browser = RC@lcase(RCEagent)>
  13. <RC$msie5 = RC@grep(RC$browser, msie 5)>
  14. <RC$msie4 = RC@grep(RC$browser, msie 4)>
  15. <RC$opera = RC@grep(RC$browser, opera)>
  16. <RCif RC$msie5 ! -1>
  17.     <RC$agent = ie5>
  18. <RCelseif RC$msie4 ! -1>
  19.     <RC$agent = ie4>
  20. <RCelseif RC$opera ! -1>
  21.     <RC$agent = opera>
  22. <RCelse>
  23.     <RC$ns4 = RC@grep(RC$browser, mozilla/4)>
  24.     <RC$ns5 = RC@grep(RC$browser, mozilla/5)>
  25.     <RCif RC$ns4 ! -1>
  26.         <RC$agent = ns4>
  27.     <RCelseif RC$ns5 ! -1>
  28.         <RC$agent = ns5>
  29.     <RCelse>
  30.         <RC$agent = standard>
  31.     <RCendif>
  32. <RCendif>
  33. <!--- /browserID --->
  34.  
  35. <!--- Message properties --->
  36. <RC$subject = RC@mailprop(RCSfolder,RC$msgno,subject)>
  37. <RC$from = RC@mailprop(RCSfolder,RC$msgno,from)>
  38. <RC$recip = RC@mailprop(RCSfolder,RC$msgno,to)>
  39. <RC$reply = RC@mailprop(RCSfolder,RC$msgno,reply-to)>
  40. <RC$cc = RC@mailprop(RCSfolder,RC$msgno,cc)>
  41. <RC$attachments = RC@mailprop(RCSfolder,RC$msgno,attachments)>
  42. <RC$subject_link = RC@urlescape(RC$subject)>
  43. <RC$reply_link = RC@urlescape(RC$reply)>
  44. <RC$date = RC@mailprop(RCSfolder,RC$msgno,date)>
  45. <RC$date_link = RC@urlescape(RC$date)>
  46. <RC$from_link = RC@urlescape(RC$from)>
  47. <RC$cc_link = RC@urlescape(RC$cc)>
  48. <!--- Different subjects for reply and forward. --->
  49. <!--- Ditch multiple RE:'s --->
  50. <RC$subj_hasre = RC@igrep(RC$subject, RE:)>
  51. <RCif RC$subj_hasre ! 0>
  52.     <RC$subject_reply = RC@sprintf("RE: %s", RC$subject_link)>
  53. <RCelse>
  54.     <RC$subject_reply = RC$subject_link>
  55. <RCendif>
  56. <!--- Forwards always seems prepended so let's stick with it --->
  57. <RC$subject_forward = RC@sprintf("[FWD: %s]", RC$subject_link)>
  58.  
  59. <!--- Eliminate ending carriage return, which causes an unterminated literal string bug in the Javascript block --->
  60. <RC$from_test = RC@grep(RC$from_link, %0d)>
  61. <RC$from_len = RC@length(RC$from)>
  62.  
  63. <RCif RC$from_test ! -1>
  64.     <RC$from_len = RC$from_len -1>
  65.     <RC$from_adr = RC@left(RC$from, RC$from_len)>
  66. <RCelse>
  67.     <RC$from_adr = RC$from>
  68. <RCendif>
  69.  
  70. <!--- navigation, compensating for illegal msg numbers --->
  71. <RC$IsCeiling = RC$msgno + 1>
  72. <RC$IsFloor = RC$msgno - 1>
  73. <RC$nummsgs = RC@mailattr(RCSfolder, nummsgs)>
  74. <RCif RCSsort = asc>
  75.     <RCif RC$IsCeiling < RC$nummsgs OR RC$IsCeiling = RC$nummsgs>
  76.         <RC$nextmsg = RC$msgno + 1>
  77.     <RCelse>
  78.         <RC$nextmsg = none>
  79.     <RCendif>
  80.     <RCif 0 < RC$IsFloor>
  81.         <RC$prevmsg = RC$msgno - 1>
  82.     <RCelse>
  83.         <RC$prevmsg = none>
  84.     <RCendif>
  85. <RCelse>
  86.     <RCif 0 < RC$IsFloor>
  87.         <RC$nextmsg = RC$msgno - 1>
  88.     <RCelse>
  89.         <RC$nextmsg = none>
  90.     <RCendif>
  91.     <RCif RC$IsCeiling < RC$nummsgs OR RC$IsCeiling = RC$nummsgs>
  92.         <RC$prevmsg = RC$msgno + 1>
  93.     <RCelse>
  94.         <RC$prevmsg = none>
  95.     <RCendif>
  96. <RCendif>
  97. <!--- Navigation: Set thispage variable for includes --->
  98. <RC$this_page = RCShome/RCEdocument_name>
  99. <HTML>
  100. <HEAD>
  101. <TITLE><RC$subject> - <RC$from></TITLE>
  102.     <LINK REL="StyleSheet" HREF="/syscss/webmail_<RCSstylesheet>.css" type="text/css">
  103.     <LINK REL="StyleSheet" HREF="/syscss/filters_<RCSstylesheet>.css" type="text/css">    
  104.     <RCif RCSstylesheet = winter>
  105.         <RC$nextsheet = spring>
  106.     <RCelseif RCSstylesheet = spring>
  107.         <RC$nextsheet = summer>
  108.     <RCelseif RCSstylesheet = summer>
  109.         <RC$nextsheet = autumn>
  110.     <RCelseif RCSstylesheet = autumn>
  111.         <RC$nextsheet = winter>
  112.     <RCendif>
  113. <!--- ******************Popup script************************************** --->
  114. <!--- This JavaScript makes the popup windows. If you do not want to use the popups, you need to remove this script AND the onClick event for the reply, replytoall and forward link. --->
  115. <script type="text/javascript" language="JavaScript1.1">
  116.     function init() {
  117.         self.defaultStatus = "Mail from <RC$from_adr>"
  118.     }
  119.     
  120.     function fnEditWin(strUrl) {
  121.         strUrl += "&popup=true"
  122.         isIE = (navigator.appName.indexOf("Microsoft") != -1)
  123.         wiWidth = screen.availWidth
  124.         wiHeight = screen.availHeight
  125.         strSize = (wiWidth >= 640 && wiHeight >=480) ? "width=640,height=480," : "width=560,height=420,"
  126.         featString = "directories=no,location=no,menubar=no,resizable=yes,status=no,titlebar=no,toolbar=no,scrollbars=yes," + strSize;
  127.         if(isIE) {
  128.             featString += "channelmode=no,fullscreen=no,left=0,top=0"
  129.         } else {
  130.             featString += "hotkeys=no,personalbar=no,screenX=0,screenY=0"
  131.         }
  132.         if(navigator.appVersion < 4) {
  133.             self.name = "opener"
  134.         }
  135. <!--- NOTE: This script uses 1 pop-up maximum. If you want to use multiple pop-ups, change the following line as follows: editWin = window.open(strUrl,'_blank',featString) --->
  136.         editWin = window.open(strUrl,'popupWin',featString)
  137.         return false
  138.     }
  139. </script>
  140. <!--- ******************/Popup script************************************* --->
  141.  
  142. <!--- ******************Remove focuslines in IE5************************** --->
  143. <!--- This is merely an interface thing. When you click on a link or button in IE, you get these annoying lines around them, especially with popups. This script makes sure these lines don't show up, but have no effect on actual webmail. --->
  144. <RCif RC$agent = ie5>
  145. <script for="window" event="onload" language="JScript">
  146.     init()
  147.     if(document.getElementById) {
  148.     //compensate for failures in browserID
  149.         colLinks = document.links
  150.         colButtons = document.getElementsByTagName("BUTTON")
  151.         colInput = document.getElementsByTagName("INPUT")
  152.     
  153.         for(var i=0; i<colLinks.length; i++) {
  154.             colLinks[i].attachEvent('onmouseup', fnBlur)
  155.         }
  156.         for(var i2=0; i2<colButtons.length; i2++) {
  157.             colButtons[i2].attachEvent('onmouseup', fnBlur)
  158.         }
  159.         for(var i3=0; i3<colInput.length; i3++) {
  160.             var oElement = colInput[i3]
  161.             with (oElement) {
  162.                 if(type == 'button' || type == 'image' || type == 'submit' || type == 'reset') {
  163.                     oElement.attachEvent('onmouseup', fnBlur)
  164.                 }
  165.             }
  166.         }
  167.     }
  168.     
  169.     function fnBlur() {
  170.         if(event.srcElement) {
  171.             event.srcElement.blur()
  172.         }
  173.     }
  174. </script>
  175. <RCendif>
  176. <!--- ******************/Remove focuslines in IE5************************* --->
  177. </HEAD>
  178. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000" onload="init()">
  179. <table width="100%" border=0 cellpadding=4 cellspacing=1>
  180.     <tr>
  181.         <td colspan=5 class="msgtitle"><RCVwmheader></td>
  182.     </tr>
  183.     <RCinclude RCShome/snippets/msgheader.stm>
  184.     <RCinclude RCShome/snippets/toolbar.stm>
  185.     <RCinclude RCShome/snippets/actions.stm>
  186.     <RCinclude RCShome/snippets/features.stm>
  187.             </TABLE>
  188.         </TD>
  189.         <td class="msgbody" width="80%" colspan=4 valign="top">
  190. <pre><RCXmailbody folder=RCSfolder msgno=RC$msgno style=RCSstyle home=RCShome wrap=RCSwrap></pre>
  191.         </td>
  192.     </tr>
  193.     <RCinclude RCShome/snippets/toolbar.stm>
  194. </table>
  195.  
  196. </body>
  197. </HTML>
  198.