home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 February / PCWorld_2003-02_cd.bin / Komunik / sambar / sambar53b3.exe / sysadmin / control / pop3mail / inbox.asp < prev    next >
Encoding:
Text File  |  2002-11-15  |  4.0 KB  |  157 lines
  1. <HTML>
  2. <HEAD><TITLE>Sambar Server POP3Mail</TITLE>
  3. <SCRIPT language="JavaScript">
  4. <!--
  5. agent = navigator.userAgent;
  6. browserOK = 0;
  7. if (navigator.appName == "Netscape" &&
  8.     navigator.appVersion.substring(0,1) >= 2)
  9. {
  10.     browserOK = 1
  11. }
  12. else
  13. {
  14.     if (navigator.appName == "Microsoft Internet Explorer" &&
  15.         navigator.appVersion.substring(0,1) >= 4)
  16.     {
  17.         browserOK = 1
  18.     }
  19. }
  20.  
  21. function checkUncheck(xxx)
  22. {
  23.     if (browserOK)
  24.     {
  25.         for (i = 0; i < document.forms["mform"].length; i++)
  26.         {
  27.             document.forms["mform"].elements[i].checked = xxx;
  28.         }
  29.     }
  30. }
  31.  
  32. //-->
  33. </SCRIPT>
  34. <% 
  35. #include "../header.asp"
  36. #include "../menu.asp"
  37. area = "inbox";
  38. #include "submenu.asp"
  39.  
  40. server = getParameter($params, "server");
  41. username = getParameter($params, "username");
  42. password = getParameter($params, "password");
  43. start = (int)getParameter($params, "start");
  44. if (start <= 0)
  45.     start = 1;
  46. stop = (int)getParameter($params, "stop");
  47. if (stop < 20)
  48.     stop = 20;
  49.  
  50. pop3 = NULL;
  51.  
  52. try
  53. {
  54.     pop3 = POP3Connect(server, username, decrypt(password));
  55. }
  56. catch (e)
  57. {
  58.     printf("Failure logging into POP3 server.");
  59.     exit;
  60. }
  61.  
  62. stat = POP3Stat(pop3);
  63. messages = stat[0];
  64. size = stat[1];
  65. if (stop > messages)
  66.     stop = messages;
  67.  
  68. printf("<BR><center><table border=0 cellpadding=0><tr><td>\n");
  69. printf("<B>%s@%s</B><BR>\n", username, server);
  70.  
  71. printf("<FONT SIZE=-1 color=#0000ff>\n");
  72. printf("Mailbox contains %ld messages (total size %ld bytes)\n", 
  73.     messages, size);
  74. printf("</FONT><BR>\n");
  75. printf("<FORM METHOD=POST NAME=\"mform\" ACTION=\"pop3dele.asp\">\n");
  76.  
  77. /*
  78. ** Format the POPMail subject header.
  79. */
  80. printf("<TABLE border=0 cellpadding=2 cellspacing=0>");
  81. printf("<TR bgcolor=#0000bb><TD> </TD>\n");
  82. printf("<TD><font color=#ffffff><B>From</B></font></TD>");
  83. printf("<TD><font color=#ffffff><B>Date</B></font></TD>");
  84. printf("<TD><font color=#ffffff><B>Size</B></font></TD>\n");
  85. printf("<TD><font color=#ffffff><B>Subject</B></font></TD></TR>\n");
  86.  
  87. /*
  88. ** List the messages.
  89. */
  90. for (i = start; i <= stop; i++)
  91. {
  92.     msg = POP3Message(pop3, i);
  93.     msgno = msg[0];
  94.     size = msg[1];
  95.     to = msg[2];
  96.     from = msg[3];
  97.     subj = msg[4];
  98.     date = msg[5];
  99.  
  100.     /* Truncate the subject */
  101.     /* if (strlen(subj) > 40)
  102.     **    subj[40] = NULL;
  103.     */
  104.  
  105.     printf("<TR nowrap bgcolor=%s>", (msgno % 2==0) ? "#ffffff":"#ffff88");
  106.     printf("<TD nowrap><INPUT width=1%% type=checkbox name=d%d> %d</TD>\n",
  107.         msgno, msgno);
  108.  
  109.     /* 
  110.     ** FIX THIS sambar - scrub the from/date/subject fields before display     
  111.     */
  112.     printf("<TD nowrap><font size=-1>%s</font></TD>\n", from);
  113.     printf("<TD nowrap><font size=-1>%s</font></TD>\n", date);
  114.     if (size < 1024)
  115.     {
  116.         printf("<TD nowrap><font size=-1>1 KB</font></TD>");
  117.     }
  118.     else if (size < 1024 * 1024)
  119.     {
  120.         printf("<TD nowrap><font size=-1>%d KB</font></TD>\n", 
  121.             (int)(size / 1024));
  122.     }
  123.     else
  124.     {
  125.         printf("<TD nowrap><font size=-1>%d MB</font></TD>\n", 
  126.             (int)(size / (1024 * 1024)));
  127.     }
  128.  
  129.     /*
  130.     ** Setup link to actual message body.
  131.     */
  132.     printf("<TD nowrap><A HREF=\"pop3retr.asp?username=%s&password=%s&server=%s&",
  133.         username, password, server);
  134.     printf("msgno=%d&start=%d&stop=%d\">%s</A></TD></TR>\n", 
  135.         msgno, start, stop, subj);
  136. }
  137.  
  138. POP3Disconnect(pop3);
  139.  
  140. printf("</TABLE>\n");
  141. printf("<INPUT type=hidden name=start value=\"%d\">\n", start);
  142. printf("<INPUT type=hidden name=stop value=\"%d\">\n", stop);
  143. printf("<INPUT type=hidden name=username value=\"%s\">\n", username);
  144. printf("<INPUT type=hidden name=password value=\"%s\">\n", password);
  145. printf("<INPUT type=hidden name=server value=\"%s\">\n", server);
  146. printf("<A HREF=\"javascript:checkUncheck(true)\">");
  147. printf("<FONT SIZE=-1>Select All</FONT></A>");
  148. printf("<FONT COLOR=#ffffff> . . </FONT>");
  149. printf("<A HREF=\"javascript:checkUncheck(false)\">");
  150. printf("<FONT SIZE=-1>Deselect All</FONT></A>\n");
  151. printf("<BR><INPUT type=submit value=\"Delete Marked\"></FORM>\n");
  152. printf("</table></center>\n");
  153.  
  154. #include "../footer.asp"
  155. %>
  156. </BODY></HTML>
  157.