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