Parse a single topic mailing list index
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 index page from Topica.com's mailing list indexes.
Parse the html to get message ids and next & prev offsets.
Return all the messge ids found on the page
Return the offset of the previous page or undef if there is none.
Return the offset of the next page or undef if there is none.
Simon Wistow <[email protected]>
Copyright (c) 2004, Simon Wistow