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