home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 July / PCWorld_2000-07_cd.bin / Komunik / sambar / _SETUP.1 / webmail.stm < prev    next >
Text File  |  2000-03-31  |  8KB  |  253 lines

  1. <!--- Set the state variable for the grammatically correct accountname --->
  2. <RCif RCPname ! null>
  3.     <RCif RC@right(RCPname, 1) ! s>
  4.         <RCSacc_name = RC@sprintf("%s'%s", RCPname, s)>
  5.     <RCelse>
  6.         <RCSacc_name = RC@sprintf("%s'", RCPname)>
  7.     <RCendif>
  8. <RCendif>
  9. <!--- Set main variables --->
  10. <!--- RC$npage is set dynamically to allow custom names for webmail.stm --->
  11. <RC$npage = RCShome/webmail.stm>
  12. <RC$nummsgs = RC@mailattr(RCSfolder, nummsgs)>
  13. <RC$foldersize = RC@mailattr(RCSfolder, size)>
  14. <RC$usage_pc = RC@floor(RC$foldersize / RCEmboxsize * 100)>
  15. <RC$fsize_kb = RC@floor(RC$foldersize / 1024)>
  16. <RC$msize_kb = RC@floor(RCEmboxsize / 1024)>
  17. <!--- Navigation: Set thispage variable for includes --->
  18. <RC$this_page =RCShome/RCEdocument_name>
  19.  
  20. <!--- /Set main variables --->
  21. <HTML>
  22. <HEAD>
  23. <TITLE><RCSacc_name> <RCSfolder></TITLE>
  24. <SCRIPT language="JavaScript">
  25. <!--
  26. agent = navigator.userAgent;
  27. browserOK = 0;
  28. if (navigator.appName == "Netscape" && navigator.appVersion.substring(0,1) >= 2)
  29. {
  30.     browserOK = 1
  31. }
  32. else 
  33. {
  34.     if (navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.substring(0,1) >= 4)
  35.     {
  36.         browserOK = 1
  37.     }
  38. }
  39.  
  40. function    checkUncheck(xxx)
  41. {
  42.     if (browserOK)
  43.     {
  44.         for (i = 0; i < document.forms["mform"].length; i++)
  45.         {
  46.             document.forms["mform"].elements[i].checked = xxx
  47.         }
  48.     }
  49. }
  50.  
  51. //-->
  52. </SCRIPT>
  53. <!--- Set the stylesheets --->
  54.     <!--- A test for RCSusecss is done. Allthough a link to the stylesheet will not interfere greatly with display (ie classnames will not be parsed in the tables), browsers who are capable of css, will still download the css files, even if the user specified they don't want to use it. The test here, saves bandwidth and allows the default bgcolor and font choices. --->
  55. <RCif RCSusecss = true>
  56.     <LINK REL="StyleSheet" HREF="/syscss/webmail_<RCSstylesheet>.css" type="text/css">
  57.     <LINK REL="StyleSheet" HREF="/syscss/filters_<RCSstylesheet>.css" type="text/css">    
  58.     <RCif RCSstylesheet = winter>
  59.         <RC$nextsheet = spring>
  60.     <RCelseif RCSstylesheet = spring>
  61.         <RC$nextsheet = summer>
  62.     <RCelseif RCSstylesheet = summer>
  63.         <RC$nextsheet = autumn>
  64.     <RCelseif RCSstylesheet = autumn>
  65.         <RC$nextsheet = winter>
  66.     <RCendif>
  67. <RCendif>
  68. <!--- /Set the stylesheets --->
  69. </HEAD>
  70. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000">
  71. <RCif RCEmailserver ! true>
  72. <RCZMAIL_ERROR_START><BR>
  73. <FONT SIZE=+2 COLOR=#ff0000><B>Mail Server NOT enabled!</B></FONT><RCZMAIL_ERROR_END>
  74.  
  75. </body></HTML>
  76. <RCexit>
  77. <RCendif>
  78.  
  79. <RCif RCEloggedin ! true>
  80. <RCZMAIL_ERROR_START><BR>
  81. <FONT SIZE=+2 COLOR=#ff0000><B>Mail user not logged in!</B></FONT><RCZMAIL_ERROR_END>
  82.  
  83. </body></HTML>
  84. <RCexit>
  85. <RCendif>
  86.  
  87. <RCif RCEhasmbox ! true>
  88. <RCZMAIL_ERROR_START><BR>
  89. <FONT SIZE=+2 COLOR=#ff0000><B>User <RCEusername> does not have a mailbox!</B></FONT><RCZMAIL_ERROR_END>
  90.  
  91. </body></HTML>
  92. <RCexit>
  93. <RCendif>
  94. <RCif RCVnext_sched_down ! none>
  95.     <H2><span style="color:red">Next Scheduled Down Time: <RCVnext_sched_down></span></h2>
  96. <RCendif>
  97. <!--- MAIN HEADER --->
  98. <table width="100%" border=0 cellpadding=4 cellspacing=0>
  99.     <tr>
  100.         <td align="right" colspan=2><RCVwmheader></td>
  101.     </tr>
  102.     <RCif RCSusecss = true>
  103.     <!--- This section is customized. Original code using the mailnav RPC is used when usecss is disabled. Only the logo will be used in this table. The original code is part of the second table.--->
  104.     <tr>
  105.         <td class="wmmainheader">
  106.             <span class="headline"><RCSacc_name> <RCSfolder></span><br>
  107.             <span class="statistics">You are using <RC$fsize_kb> kB of <RC$msize_kb>kB allowed (<RC$usage_pc>%)</span></td>
  108.         <td align=right nowrap class="wmmainheader" valign="bottom">
  109.             <table border=0>
  110.                 <tr nowrap>
  111.                     <RCif RC$start ! 1>
  112.                         <td valign="bottom"><a href="<RC$npage>?start=1"><img src=/sysimage/icons/first.gif border=0 vspace=0 hspace=2></a></td>
  113.                     <RCelse>
  114.                         <td valign="bottom"><img src=/sysimage/icons/firstd.gif border=0 vspace=0 hspace=2></td>
  115.                     <RCendif>
  116.                     <RCif RCScount < RC$start>
  117.                     <RC$pstart = RC$start - RCScount>
  118.                     <td valign=bottom><A href="<RC$npage>?start=<RC$pstart>"><img src="/sysimage/icons/prev.gif" border=0 vspace=0 hspace=2></a></td>
  119.                     <RCelse>
  120.                         <td valign="bottom"><img src=/sysimage/icons/prevd.gif border=0 vspace=0 hspace=2></td>
  121.                     <RCendif>
  122.                     
  123.                     <td valign=bottom>
  124.                         <table border=1 cellpadding=0 cellspacing=0>
  125.                             <tr>
  126.                                 <td nowrap width=100 class="navscore" align=center>
  127.                                 <RC$multiplier = ((RC$start - 1) / RCScount) + 1>
  128.                                 <RC$nextend = RCScount * RC$multiplier>
  129.                                 <RCif RC$nummsgs < RC$nextend>
  130.                                     <RC$start>-<RC$nummsgs> / <RC$nummsgs>
  131.                                 <RCelse>
  132.                                     <RC$start>-<RC$nextend> / <RC$nummsgs>
  133.                                 <RCendif>
  134.                                 </td>
  135.                             </tr>
  136.                         </table>
  137.                     </td>
  138.                     <RC$nstart = RCScount + RC$start>
  139.                     <RCif RC$nstart < RC$nummsgs>
  140.                     <td valign=bottom><a href="<RC$npage>?start=<RC$nstart>"><img src="/sysimage/icons/next.gif" border=0 vspace=0 hspace=2></a></td>
  141.                     <RCelse>
  142.                         <td valign="bottom"><img src="/sysimage/icons/nextd.gif" border=0 vspace=0 hspace=0></td>
  143.                     <RCendif>
  144.                     
  145.                 </tr>
  146.             </table>
  147.         </td>
  148.     </tr>
  149.     <RCendif>
  150. </table>
  151.  
  152.  
  153. <TABLE WIDTH=100% border=0 cellspacing=4>
  154.     <RCif RCSusecss ! true>
  155.     <TR VALIGN=top>
  156.         <TD nowrap>
  157.             <FONT SIZE=+2><B><RCEusername></B></FONT><BR>
  158.             <FONT SIZE=-1><RCEdatetime></FONT>
  159.         </td>
  160.         <td>
  161.         <table border=0 width=100% cellspacing=0 cellpadding=0>
  162.         <RCXmailnav folder=RCSfolder usecss=RCSusecss start=RC$start count=RCScount page=RC$npage>
  163.         </table>
  164.     </tr>
  165.     <RCendif>
  166.     <RCinclude RCShome/snippets/actions.stm>
  167.     <RCinclude RCShome/snippets/features.stm>
  168.             </TABLE>
  169.         </TD>
  170.         <TD WIDTH=80% valign="top">
  171.             <FORM METHOD=POST NAME="mform" ACTION="/session/maildele">
  172.             <INPUT type=hidden name=RCpage value="<RCShome>/webmail.stm">
  173.             <INPUT TYPE=hidden NAME=start VALUE="<RC$start>">
  174.             <INPUT TYPE=hidden NAME=count VALUE="<RCScount>">
  175.             <INPUT TYPE=hidden NAME=folder VALUE="<RCSfolder>">
  176.             <TABLE border=0 cellpadding=4 cellspacing=0>
  177.                 <RCif RCSusecss = true>
  178.                 <TR bgcolor=#000080>
  179.                     <TH align=left width=5%>
  180.                         Message
  181.                     </TH>
  182.                     <TH align=left width=15%>
  183.                         Sender
  184.                     </TH>
  185.                     <TH align=left width=5%>
  186.                         Date
  187.                     </TH>
  188.                     <TH align=left width=5%>
  189.                         .
  190.                     </TH>
  191.                     <TH align=left width=5%>
  192.                         Size
  193.                     </TH>
  194.                     <TH align=left>
  195.                         Subject
  196.                     </TH>
  197.                 </TR>
  198.                 <RCelse>
  199.                 <TR bgcolor=#000080>
  200.                     <TH align=left width=5%>
  201.                         <FONT color=white>Message</FONT>
  202.                     </TH>
  203.                     <TH align=left width=15%>
  204.                         <FONT color=white>Sender</FONT>
  205.                     </TH>
  206.                     <TH align=left width=5%>
  207.                         <FONT color=white>Date</FONT>
  208.                     </TH>
  209.                     <TH align=left width=5%>
  210.                         <FONT color=#000080>.</FONT>
  211.                     </TH>
  212.                     <TH align=left width=5%>
  213.                         <FONT color=white>Size</FONT>
  214.                     </TH>
  215.                     <TH align=left>
  216.                         <FONT color=white>Subject</FONT>
  217.                     </TH>
  218.                 </TR>
  219.                 <RCendif>
  220.                 <RCXmaillist folder=RCSfolder start=RC$start usecss=RCSusecss count=RCScount sort=RCSsort home=RCShome>
  221.                 <TR bgcolor=#c0c0c0>
  222.                     <TD colspan=6 class="wmmainheader">
  223.                         <A HREF="javascript:checkUncheck(true)"><FONT SIZE=-1>Select All</FONT></A>
  224.                         <FONT COLOR=#ffffff> . . </FONT>
  225.                         <A HREF="javascript:checkUncheck(false)"><FONT SIZE=-1>Deselect All</FONT></A>
  226.                     </TD>
  227.                 </TR>
  228.             </TABLE>
  229.             <BR>
  230.             <TABLE border=0 cellspacing=4>
  231.                 <TR VALIGN=top>
  232.                     <TD nowrap>
  233.                         <B>
  234.                         <INPUT TYPE=submit value="Delete"> Selected Messages</B>
  235.                         </FORM>
  236.                     </TD>
  237.                     <TD nowrap>
  238.                         <FORM METHOD=GET ACTION=<RCShome>/webmail.stm>
  239.                         <FONT COLOR=#ffffff> . . . </FONT>
  240.                         <INPUT TYPE=hidden NAME=count VALUE="<RCScount>">
  241.                         <INPUT TYPE=submit VALUE="Go To">
  242.                         <INPUT TYPE=text NAME=start SIZE=4 VALUE="1">
  243.                         </FORM>
  244.                     </TD>
  245.                 </TR>
  246.             </TABLE>
  247.         </TD>
  248.     </TR>
  249. </TABLE>
  250.  
  251. </body>
  252. </HTML>
  253.