home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd1.bin / Komunik / sambar / _setup.1 / webmail.stm < prev    next >
Encoding:
Text File  |  2000-08-01  |  6.4 KB  |  212 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.     <LINK REL="StyleSheet" HREF="/syscss/webmail_<RCSstylesheet>.css" type="text/css">
  55.     <LINK REL="StyleSheet" HREF="/syscss/filters_<RCSstylesheet>.css" type="text/css">    
  56.     <RCif RCSstylesheet = winter>
  57.         <RC$nextsheet = spring>
  58.     <RCelseif RCSstylesheet = spring>
  59.         <RC$nextsheet = summer>
  60.     <RCelseif RCSstylesheet = summer>
  61.         <RC$nextsheet = autumn>
  62.     <RCelseif RCSstylesheet = autumn>
  63.         <RC$nextsheet = winter>
  64.     <RCendif>
  65. <!--- /Set the stylesheets --->
  66. </HEAD>
  67. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000">
  68. <RCif RCEmailserver ! true>
  69. <RCZMAIL_ERROR_START><BR>
  70. <FONT SIZE=+2 COLOR=#ff0000><B>Mail Server NOT enabled!</B></FONT><RCZMAIL_ERROR_END>
  71.  
  72. </body></HTML>
  73. <RCexit>
  74. <RCendif>
  75.  
  76. <RCif RCEloggedin ! true>
  77. <RCZMAIL_ERROR_START><BR>
  78. <FONT SIZE=+2 COLOR=#ff0000><B>Mail user not logged in!</B></FONT><RCZMAIL_ERROR_END>
  79.  
  80. </body></HTML>
  81. <RCexit>
  82. <RCendif>
  83.  
  84. <RCif RCEhasmbox ! true>
  85. <RCZMAIL_ERROR_START><BR>
  86. <FONT SIZE=+2 COLOR=#ff0000><B>User <RCEusername> does not have a mailbox!</B></FONT><RCZMAIL_ERROR_END>
  87.  
  88. </body></HTML>
  89. <RCexit>
  90. <RCendif>
  91. <RCif RCVnext_sched_down ! none>
  92.     <H2><span style="color:red">Next Scheduled Down Time: <RCVnext_sched_down></span></h2>
  93. <RCendif>
  94. <!--- MAIN HEADER --->
  95. <table width="100%" border=0 cellpadding=4 cellspacing=0>
  96.     <tr>
  97.         <td align="right" colspan=2><RCVwmheader></td>
  98.     </tr>
  99.     <tr>
  100.         <td class="wmmainheader">
  101.             <span class="headline"><RCSacc_name> <RCSfolder></span><br>
  102.             <span class="statistics">You are using <RC$fsize_kb> kB of <RC$msize_kb>kB allowed (<RC$usage_pc>%)</span></td>
  103.         <td align=right nowrap class="wmmainheader" valign="bottom">
  104.             <table border=0>
  105.                 <tr nowrap>
  106.                     <RCif RC$start ! 1>
  107.                         <td valign="bottom"><a href="<RC$npage>?start=1"><img src=/sysimage/icons/first.gif border=0 vspace=0 hspace=2></a></td>
  108.                     <RCelse>
  109.                         <td valign="bottom"><img src=/sysimage/icons/firstd.gif border=0 vspace=0 hspace=2></td>
  110.                     <RCendif>
  111.                     <RCif RCScount < RC$start>
  112.                     <RC$pstart = RC$start - RCScount>
  113.                     <td valign=bottom><A href="<RC$npage>?start=<RC$pstart>"><img src="/sysimage/icons/prev.gif" border=0 vspace=0 hspace=2></a></td>
  114.                     <RCelse>
  115.                         <td valign="bottom"><img src=/sysimage/icons/prevd.gif border=0 vspace=0 hspace=2></td>
  116.                     <RCendif>
  117.                     
  118.                     <td valign=bottom>
  119.                         <table border=1 cellpadding=0 cellspacing=0>
  120.                             <tr>
  121.                                 <td nowrap width=100 class="navscore" align=center>
  122.                                 <RC$multiplier = ((RC$start - 1) / RCScount) + 1>
  123.                                 <RC$nextend = RCScount * RC$multiplier>
  124.                                 <RCif RC$nummsgs < RC$nextend>
  125.                                     <RC$start>-<RC$nummsgs> / <RC$nummsgs>
  126.                                 <RCelse>
  127.                                     <RC$start>-<RC$nextend> / <RC$nummsgs>
  128.                                 <RCendif>
  129.                                 </td>
  130.                             </tr>
  131.                         </table>
  132.                     </td>
  133.                     <RC$nstart = RCScount + RC$start>
  134.                     <RCif RC$nstart < RC$nummsgs>
  135.                     <td valign=bottom><a href="<RC$npage>?start=<RC$nstart>"><img src="/sysimage/icons/next.gif" border=0 vspace=0 hspace=2></a></td>
  136.                     <RCelse>
  137.                         <td valign="bottom"><img src="/sysimage/icons/nextd.gif" border=0 vspace=0 hspace=0></td>
  138.                     <RCendif>
  139.                     
  140.                 </tr>
  141.             </table>
  142.         </td>
  143.     </tr>
  144. </table>
  145.  
  146.  
  147. <TABLE WIDTH=100% border=0 cellspacing=4>
  148.     <RCinclude RCShome/snippets/actions.stm>
  149.     <RCinclude RCShome/snippets/features.stm>
  150.             </TABLE>
  151.         </TD>
  152.         <TD WIDTH=80% valign="top">
  153.             <FORM METHOD=POST NAME="mform" ACTION="/session/maildele">
  154.             <INPUT type=hidden name=RCpage value="<RCShome>/webmail.stm">
  155.             <INPUT TYPE=hidden NAME=start VALUE="<RC$start>">
  156.             <INPUT TYPE=hidden NAME=count VALUE="<RCScount>">
  157.             <INPUT TYPE=hidden NAME=folder VALUE="<RCSfolder>">
  158.             <TABLE border=0 cellpadding=4 cellspacing=0>
  159.                 <TR bgcolor=#000080>
  160.                     <TH align=left width=5%>
  161.                         Message
  162.                     </TH>
  163.                     <TH align=left width=15%>
  164.                         Sender
  165.                     </TH>
  166.                     <TH align=left width=5%>
  167.                         Date
  168.                     </TH>
  169.                     <TH align=left width=5%>
  170.                         .
  171.                     </TH>
  172.                     <TH align=left width=5%>
  173.                         Size
  174.                     </TH>
  175.                     <TH align=left>
  176.                         Subject
  177.                     </TH>
  178.                 </TR>
  179.                 <RCXmaillist folder=RCSfolder start=RC$start usecss=true count=RCScount sort=RCSsort home=RCShome>
  180.                 <TR bgcolor=#c0c0c0>
  181.                     <TD colspan=6 class="wmmainheader">
  182.                         <A HREF="javascript:checkUncheck(true)"><FONT SIZE=-1>Select All</FONT></A>
  183.                         <FONT COLOR=#ffffff> . . </FONT>
  184.                         <A HREF="javascript:checkUncheck(false)"><FONT SIZE=-1>Deselect All</FONT></A>
  185.                     </TD>
  186.                 </TR>
  187.             </TABLE>
  188.             <BR>
  189.             <TABLE border=0 cellspacing=4>
  190.                 <TR VALIGN=top>
  191.                     <TD nowrap>
  192.                         <B>
  193.                         <INPUT TYPE=submit value="Delete"> Selected Messages</B>
  194.                         </FORM>
  195.                     </TD>
  196.                     <TD nowrap>
  197.                         <FORM METHOD=GET ACTION=<RCShome>/webmail.stm>
  198.                         <FONT COLOR=#ffffff> . . . </FONT>
  199.                         <INPUT TYPE=hidden NAME=count VALUE="<RCScount>">
  200.                         <INPUT TYPE=submit VALUE="Go To">
  201.                         <INPUT TYPE=text NAME=start SIZE=4 VALUE="1">
  202.                         </FORM>
  203.                     </TD>
  204.                 </TR>
  205.             </TABLE>
  206.         </TD>
  207.     </TR>
  208. </TABLE>
  209.  
  210. </body>
  211. </HTML>
  212.