home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Komunik / sambar / _setup.1 / mailmsg.stm < prev    next >
Text File  |  2000-04-06  |  8KB  |  217 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. <RCif RCSusecss = true>
  103.     <LINK REL="StyleSheet" HREF="/syscss/webmail_<RCSstylesheet>.css" type="text/css">
  104.     <LINK REL="StyleSheet" HREF="/syscss/filters_<RCSstylesheet>.css" type="text/css">    
  105.     <RCif RCSstylesheet = winter>
  106.         <RC$nextsheet = spring>
  107.     <RCelseif RCSstylesheet = spring>
  108.         <RC$nextsheet = summer>
  109.     <RCelseif RCSstylesheet = summer>
  110.         <RC$nextsheet = autumn>
  111.     <RCelseif RCSstylesheet = autumn>
  112.         <RC$nextsheet = winter>
  113.     <RCendif>
  114. <RCendif>
  115. <!--- ******************Popup script************************************** --->
  116. <!--- 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. --->
  117. <script type="text/javascript" language="JavaScript1.1">
  118.     function init() {
  119.         self.defaultStatus = "Mail from <RC$from_adr>"
  120.     }
  121.     
  122.     function fnEditWin(strUrl) {
  123.         strUrl += "&popup=true"
  124.         isIE = (navigator.appName.indexOf("Microsoft") != -1)
  125.         wiWidth = screen.availWidth
  126.         wiHeight = screen.availHeight
  127.         strSize = (wiWidth >= 640 && wiHeight >=480) ? "width=640,height=480," : "width=560,height=420,"
  128.         featString = "directories=no,location=no,menubar=no,resizable=yes,status=no,titlebar=no,toolbar=no,scrollbars=yes," + strSize;
  129.         if(isIE) {
  130.             featString += "channelmode=no,fullscreen=no,left=0,top=0"
  131.         } else {
  132.             featString += "hotkeys=no,personalbar=no,screenX=0,screenY=0"
  133.         }
  134.         if(navigator.appVersion < 4) {
  135.             self.name = "opener"
  136.         }
  137. <!--- 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) --->
  138.         editWin = window.open(strUrl,'popupWin',featString)
  139.         return false
  140.     }
  141. </script>
  142. <!--- ******************/Popup script************************************* --->
  143.  
  144. <!--- ******************Remove focuslines in IE5************************** --->
  145. <!--- 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. --->
  146. <RCif RC$agent = ie5>
  147. <script for="window" event="onload" language="JScript">
  148.     init()
  149.     if(document.getElementById) {
  150.     //compensate for failures in browserID
  151.         colLinks = document.links
  152.         colButtons = document.getElementsByTagName("BUTTON")
  153.         colInput = document.getElementsByTagName("INPUT")
  154.     
  155.         for(var i=0; i<colLinks.length; i++) {
  156.             colLinks[i].attachEvent('onmouseup', fnBlur)
  157.         }
  158.         for(var i2=0; i2<colButtons.length; i2++) {
  159.             colButtons[i2].attachEvent('onmouseup', fnBlur)
  160.         }
  161.         for(var i3=0; i3<colInput.length; i3++) {
  162.             var oElement = colInput[i3]
  163.             with (oElement) {
  164.                 if(type == 'button' || type == 'image' || type == 'submit' || type == 'reset') {
  165.                     oElement.attachEvent('onmouseup', fnBlur)
  166.                 }
  167.             }
  168.         }
  169.     }
  170.     
  171.     function fnBlur() {
  172.         if(event.srcElement) {
  173.             event.srcElement.blur()
  174.         }
  175.     }
  176. </script>
  177. <RCendif>
  178. <!--- ******************/Remove focuslines in IE5************************* --->
  179. </HEAD>
  180. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000" onload="init()">
  181.     <RCif RCSusecss = true>
  182. <table width="100%" border=0 cellpadding=4 cellspacing=1>
  183.     <tr>
  184.         <td colspan=5 class="msgtitle"><RCVwmheader></td>
  185.     </tr>
  186.     <RCinclude RCShome/snippets/msgheader.stm>
  187.     <RCinclude RCShome/snippets/toolbar.stm>
  188.     <RCinclude RCShome/snippets/actions.stm>
  189.     <RCinclude RCShome/snippets/features.stm>
  190.             </TABLE>
  191.         </TD>
  192.         <td class="msgbody" width="80%" colspan=4 valign="top">
  193. <pre><RCXmailbody folder=RCSfolder msgno=RC$msgno style=RCSstyle home=RCShome wrap=RCSwrap></pre>
  194.         </td>
  195.     </tr>
  196.     <RCinclude RCShome/snippets/toolbar.stm>
  197. </table>
  198.     <RCelse>
  199.     <RCVwmheader>
  200.     User <B><RCEusername></B><BR>
  201.     Folder <I><RCSfolder></I><BR>
  202.     Message <RC$msgno><BR><BR>
  203.  
  204.     <RCXmailheader folder=RCSfolder msgno=RC$msgno>
  205.     <RCXmailmsgnav folder=RCSfolder msgno=RC$msgno start=RC$start>
  206.     <table width="100%" border=0 cellpadding=2 cellspacing=1>
  207.     <tr>
  208.         <td class="msgbody" width="80%" colspan=4 valign="top">
  209. <pre><RCXmailbody folder=RCSfolder msgno=RC$msgno style=RCSstyle home=RCShome wrap=RCSwrap></pre>
  210.         </td>
  211.     </tr>
  212. </table>
  213.     <RCendif>
  214.  
  215. </body>
  216. </HTML>
  217.