File Coverage

blib/lib/WWW/Mail15.pm

Criterion	Covered	Total	%
statement	22	79	27.8
branch	0	16	0.0
condition			n/a
subroutine	7	17	41.1
pod	1	7	14.2
total	30	119	25.2

package WWW::Mail15;
use Carp;
use base 'WWW::Mechanize';
use 5.006;
use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new();
    $self->cookie_jar({});
    return $self;
}

sub login {
    my ($self,$user,$pass) = @_;
    my $resp = $self->get("http://www.mail15.com/");
    $resp->is_success || croak $resp->error_as_HTML;
    $self->form(2);
    $self->field(user    => $user);
    $self->field(pass    => $pass);
    $resp = $self->submit();
    $resp->is_success || croak $resp->error_as_HTML;
    die "cannot login! (format changed?)" if $self->res->header('title') !~ /Folders list/;
    $self->get($self->res->request->uri);
    $self->{_folders} = $self->parse_folders;
    croak "Couldn't read folder list " unless $self->{_folders};
    return 1;
}

sub folders {
    my $self = shift;
    croak "Not logged in!" unless $self->{_folders};
    return map { keys %{$_} } @{$self->{_folders}};
}

sub read_folder {
    my ($self,$fnum) = @_;
    croak "Not logged in!" unless $self->{_folders};
    my($resp) = $self->get(values %{$self->{_folders}[$fnum]});
    $resp->is_success || croak $resp->error_as_HTML;
    $self->{_folder_mails}->{$fnum} = $self->parse_mails;
}

sub parse_folders{
	my($self) = @_;
	my(@p) = (grep { $$_[0] =~ /mailbox\.php.*mailb/ } @{$self->links});
	my(@folders);
	foreach my $folder (@p){
		push @folders , {$$folder[1] => $$folder[0]};
	}
	return \@folders;
}

sub parse_mails {
	my($self) = @_;
	my(@p) = (grep { $$_[0] =~ /message\.php.*index/ } @{$self->links});
	my(@mails);
	for (my $i=0; $i<$#p ; $i+=2) {
		push @mails , WWW::Mail15::Message->new  ($self,$p[$i]->[0],$p[$i]->[1],$p[$i+1]->[1]);
	}
	return \@mails;
}

sub get_mail {
	my($self, $fnum, $mnum) = @_;
	return $self->{_folder_mails}->{$fnum}->[$mnum];
}

package WWW::Mail15::Message;
@WWW::Mail15::Message::ISA = qw(WWW::Mail15);

use Mail::Audit;

sub new {
    my ($class,$parent,$url,$from,$subj) = @_;

    my $self = $class->SUPER::new();
    $self -> {_parent} = $parent;
    $self -> {_url}    = $url;
    $self -> {_from}   = $from;
    $self -> {_subj}   = $subj;

    return $self;
}


sub subject { $_[0]->{_subj} }

sub retrieve {
    my $self = shift;
    my $resp = $self->{_parent}->get($self-> {_url});
    $resp->is_success || croak $resp->error_as_HTML;
    my($text) =  $self->{_parent}->content() =~ /(.*)<\/pre>/si;

    return Mail::Audit->new(data => \$text);
}


sub delete {
    my $self = shift;
}

1;
__END__