Parse a single topic mailing list index
my $index = WWW::Topic::Index->new($index_html); foreach my $message_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 reply page from Topica.com's mailing list indexes.
Reply pages have the body of the email (albeit quoted) and potentially a full email address.
Takes the html of the page, the eto and the message-id and parses the html.
Parse the html to get the subject, email address and body of the email.
Get the message id
Get the message eto
Get the email address parsed out.
Get the email subject parsed out.
Get the email body parsed out.
Simon Wistow <[email protected]>
Copyright (c) 2004, Simon Wistow