(=_INFO
NOCACHE=>1
_INFO=)(=PAGE
TITLE=>My Mail
BODY<=

(=_CODE

 use Net::POP3;
 my $ret = "(=H1 My Mail H1=)\n(=P \nJust for the hell of it, here's the current list of messages sitting in my Inbox.  My Inbox is my to-do list... if there's a message here, it's because I haven't read it yet (very unlikely) or more likely, that it contains something which I have to take action on.  The size of my inbox is almost directly proportional to my stress level.  Under 20 messages is generally pretty good.\n P=)\n";
 $ret .= "(=P <B>How do you do this?</B> People keep asking me how I do this.  <A HREF=\"./mail.bml.txt\">Here's the source</A>.  It's Perl, wrapped in <A HREF=\"/bml/\">BML</A>. P=)";
 
 open (PASS, "/path/to/some/password/file/outside/your/webroot.txt");
 chomp ($pass = <PASS>);
 close PASS;
 
 $pop = Net::POP3->new('your.pop3.server.com', Timeout => 5);
 $pop->user('username');
 $count = $pop->pass($pass);
 unless (defined $count)
 {
     return "(=H1 Error H1=)(=P There was an error contacting my mail server in under 5 seconds.  Maybe it's dead. P=)";
 }
 $ret .= "<P>Number of messages: <B>$count</B><TABLE BORDER=0 CELLPADDING=2 CELLSPACING=1>\n";
 $ret .= "<TR BGCOLOR=(=CELL_ENHANCE_COLOR=)><TH>#</TH><TH>From</TH><TH>Subject</TH><TH>Date</TH></TR>\n";
 
 for (my $mi=1; $mi<=$count; $mi++)
 {
     my $lines = $pop->top($mi);
     my %msg = {};
     foreach my $l (@{$lines})
     {
	 if ($l =~ /^(Subject|Date|From): (.+)$/)
	 {
	     $msg{lc($1)} = $2;
	 }
     }
     $msg{'from'} = &BMLUtil::ehtml($msg{'from'});
     if ($msg{'from'} =~ /^\s*(.+) (\&lt;.+)/)
     {
	 my $fromname = $1;
	 my $email = $2;
	 $fromname =~ s/^\&quot;//; $fromname =~ s/\&quot;$//;
	 if ($fromname =~ /^=\?.+\?(.+)\?=$/)
	 {
	     $fromname = $1;
	     $fromname =~ s/=20/ /;
	 }
	 $email =~ s/^\&lt;//; $email =~ s/\&gt;$//;
	 $msg{'from'} = "<B>$fromname</B><BR><FONT SIZE=-1>$email</FONT>";
     }
     $msg{'subject'} = &BMLUtil::ehtml($msg{'subject'});
     $msg{'date'} =~ s/(\d\d\:\d\d):\d\d.*/$1/;
	
     my $shading = $mi % 2 ? "" : "BGCOLOR=#EEEEFF";
     if ($msg{'from'} =~ /some_regular_expression_matching_private_messages/i)
     {
	 $msg{'subject'} = "<FONT COLOR=#FF0000><B>x x x x x x</B></FONT>";
     }
     $ret .= "<TR VALIGN=TOP $shading><TD ALIGN=RIGHT><B>$mi</B></TD><TD>$msg{'from'}</TD><TD>$msg{'subject'}</TD><TD>$msg{'date'}</TD></TR>\n";
     
 }
 $ret .= "</TABLE>\n";
 return $ret;
 
_CODE=)

<=BODY
PAGE=)