home *** CD-ROM | disk | FTP | other *** search
- <HTML>
- <HEAD><TITLE>Sambar Server POP3Mail</TITLE>
- <SCRIPT language="JavaScript">
- <!--
- agent = navigator.userAgent;
- browserOK = 0;
- if (navigator.appName == "Netscape" &&
- navigator.appVersion.substring(0,1) >= 2)
- {
- browserOK = 1
- }
- else
- {
- if (navigator.appName == "Microsoft Internet Explorer" &&
- navigator.appVersion.substring(0,1) >= 4)
- {
- browserOK = 1
- }
- }
-
- function checkUncheck(xxx)
- {
- if (browserOK)
- {
- for (i = 0; i < document.forms["mform"].length; i++)
- {
- document.forms["mform"].elements[i].checked = xxx;
- }
- }
- }
-
- //-->
- </SCRIPT>
- <%
- #include "../header.asp"
- #include "../menu.asp"
- area = "inbox";
- #include "submenu.asp"
-
- server = getParameter($params, "server");
- username = getParameter($params, "username");
- password = getParameter($params, "password");
- start = (int)getParameter($params, "start");
- if (start <= 0)
- start = 1;
- stop = (int)getParameter($params, "stop");
- if (stop < 20)
- stop = 20;
-
- pop3 = POP3Connect(server, username, decrypt(password));
- stat = POP3Stat(pop3);
- messages = stat[0];
- size = stat[1];
- if (stop > messages)
- stop = messages;
-
- printf("<BR><center><table border=0 cellpadding=0><tr><td>\n");
- printf("<B>%s@%s</B><BR>\n", username, server);
-
- printf("<FONT SIZE=-1 color=#0000ff>\n");
- printf("Mailbox contains %ld messages (total size %ld bytes)\n",
- messages, size);
- printf("</FONT><BR>\n");
- printf("<FORM METHOD=POST NAME=\"mform\" ACTION=\"pop3dele.asp\">\n");
-
- /*
- ** Format the POPMail subject header.
- */
- printf("<TABLE border=0 cellpadding=2 cellspacing=0>");
- printf("<TR bgcolor=#0000bb><TD> </TD>\n");
- printf("<TD><font color=#ffffff><B>From</B></font></TD>");
- printf("<TD><font color=#ffffff><B>Date</B></font></TD>");
- printf("<TD><font color=#ffffff><B>Size</B></font></TD>\n");
- printf("<TD><font color=#ffffff><B>Subject</B></font></TD></TR>\n");
-
- /*
- ** List the messages.
- */
- for (i = start; i <= stop; i++)
- {
- msg = POP3Message(pop3, i);
- msgno = msg[0];
- size = msg[1];
- to = msg[2];
- from = msg[3];
- subj = msg[4];
- date = msg[5];
-
- /* Truncate the subject */
- /* if (strlen(subj) > 40)
- ** subj[40] = NULL;
- */
-
- printf("<TR nowrap bgcolor=%s>", (msgno % 2==0) ? "#ffffff":"#ffff88");
- printf("<TD nowrap><INPUT width=1%% type=checkbox name=d%d> %d</TD>\n",
- msgno, msgno);
-
- /*
- ** FIX THIS sambar - scrub the from/date/subject fields before display
- */
- printf("<TD nowrap><font size=-1>%s</font></TD>\n", from);
- printf("<TD nowrap><font size=-1>%s</font></TD>\n", date);
- if (size < 1024)
- {
- printf("<TD nowrap><font size=-1>1 KB</font></TD>");
- }
- else if (size < 1024 * 1024)
- {
- printf("<TD nowrap><font size=-1>%d KB</font></TD>\n",
- (int)(size / 1024));
- }
- else
- {
- printf("<TD nowrap><font size=-1>%d MB</font></TD>\n",
- (int)(size / (1024 * 1024)));
- }
-
- /*
- ** Setup link to actual message body.
- */
- printf("<TD nowrap><A HREF=\"pop3retr.asp?username=%s&password=%s&server=%s&",
- username, password, server);
- printf("msgno=%d&start=%d&stop=%d\">%s</A></TD></TR>\n",
- msgno, start, stop, subj);
- }
-
- POP3Disconnect(pop3);
-
- printf("</TABLE>\n");
- printf("<INPUT type=hidden name=start value=\"%d\">\n", start);
- printf("<INPUT type=hidden name=stop value=\"%d\">\n", stop);
- printf("<INPUT type=hidden name=username value=\"%s\">\n", username);
- printf("<INPUT type=hidden name=password value=\"%s\">\n", password);
- printf("<INPUT type=hidden name=server value=\"%s\">\n", server);
- printf("<A HREF=\"javascript:checkUncheck(true)\">");
- printf("<FONT SIZE=-1>Select All</FONT></A>");
- printf("<FONT COLOR=#ffffff> . . </FONT>");
- printf("<A HREF=\"javascript:checkUncheck(false)\">");
- printf("<FONT SIZE=-1>Deselect All</FONT></A>\n");
- printf("<BR><INPUT type=submit value=\"Delete Marked\"></FORM>\n");
- printf("</table></center>\n");
-
- #include "../footer.asp"
- %>
- </BODY></HTML>
-