Parse a single topica mailing list mail
my $index = WWW::Topic::Index->new($index_html); foreach my $mess_id ($index->message_ids) { # the mail has some information and also provides a link to the reply ... my $mail = WWW::Topica::Mail->new($topica->fetch_mail($mess_id), $mess_id); # which has other information (like the un-htmled mail and the email address) ... my $reply = WWW::Topica::Reply->new($topica->fetch_reply($mail->id, $mail->eto), $mail->id, $mail->eto); } print "Next offset is ".$index->next."\n"; print "Previous offset is ".$index->prev."\n";
Used to parse a single message page from Topica.com's mailing list indexes.
Message pages have the subject and the date and time of the mail being sent as well as a full name of each sender.
Takes the page html and the message-id and parses the html.
Parse the html to get message ids and next & prev offsets.
Get the id of this mail
Get the eto of the next reply we need to get
Get the date of this mail
The subject of the mail
Get the name of the person it was from
Get the body of the mail.
Simon Wistow <[email protected]>
Copyright (c) 2004, Simon Wistow