File Coverage

blib/lib/Apache/WAP/MailPeek.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Apache::WAP::MailPeek;
use strict;
use Apache::Constants qw(:common);
use Mail::Cclient;

our $VERSION = '0.01';
our $mail_server = 'brians.org';

Mail::Cclient::parameters(
  'NIL',
  RSHTIMEOUT     => 0,
  OPENTIMEOUT    => 1,
  READTIMEOUT    => 1,
  CLOSETIMEOUT   => 1,
  MAXLOGINTRIALS => 1,
);

sub handler {
  my $r      = shift;
  my @msgnos = ();
  my %params = $r->method eq 'POST' ? $r->content : $r->args;

  Mail::Cclient::set_callback
        login    => sub {
            return $params{'username'}, $params{'password'}
        },
        searched   => sub {
            push (@msgnos, $_[1]);
        },
        log => sub { print @_ }, dlog => sub { print @_};

  my $mail = Mail::Cclient->new("{$mail_server/imap}") or die $!;

  $r->content_type('text/vnd.wap.wml');
  $r->send_http_header;

  $r->print(<


                    "http://www.wapforum.org/DTD/wml_1.1.xml">

END

  $mail->search("UNSEEN");
  foreach my $msgno (@msgnos) {
      my ($envelope,$body) = $mail->fetchstructure($msgno);
      my $subject = $envelope->subject;
      my $from    = ${$envelope->{from}}[0]->{personal} ||
              ${$envelope->{from}}[0]->{mailbox} . "@" .
              ${$envelope->{from}}[0]->{host};
      $from =~ s/\&/\&\;/g; $subject =~ s/\&/\&\;/g;
      $from =~ s/\$/\$\$/g; $subject =~ s/\$/\$\$/g;
      $r->print ("", $from, ": ", $subject, "\n");
  }
  $mail->close;
  $r->print("");
}
1;