Keep track of posters to a newsgroup
use News::Scan::Poster; my $poster = News::Scan::Poster->new($news_scan_article_obj);
This module provides a class whose objects can be used to keep track of cumulative statistics for posters to a Usenet newsgroup such as header volume or signature lines.
\*(C`ARTICLE\*(C' should be a \*(C`News::Scan::Article\*(C' object or inherit from the \*(C`News::Scan::Article\*(C' class. \*(C`new\*(C' performs some initialization and returns a \*(C`News::Scan::Poster\*(C' object.
Returns the address of this poster represented as a \*(C`Mail::Internet\*(C' object. If present, \*(C`ADDRESS\*(C' tells the object that the \*(C`Mail::Internet\*(C' object in \*(C`ADDRESS\*(C' is its address. idea.
Returns some nice attribution for this poster. If present, \*(C`ATTRIBUTION\*(C' tells the object how it shall identify itself when asked.
Returns a list of Message-IDs attributed to this poster. If present, \*(C`MESSAGE-ID\*(C' is added to this list of this poster's articles.
Returns the volume in bytes of the traffic generated by this poster.
Returns the number of articles attributed to this poster.
Returns a hash whose keys are newsgroup names and whose values are the number of times this poster has crossposted to the group of interest and the corresponding newsgroup.
Returns the total number of crossposts this poster has sent through the group of interest.
Returns the volume in bytes generated by this poster's headers.
Returns the number of header lines generated by this poster.
Returns the volume in bytes generated by this poster's message bodies.
Returns the number of body lines generated by this poster.
Returns the volume in bytes of original content generated by this poster.
Returns the number of original lines generated by this poster.
Returns the volume in bytes generated by this poster's signatures.
Returns the number of signature lines generated by this poster.
News::Scan, Mail::Address, News::Scan::Article
Greg Bacon <[email protected]>
Copyright (c) 1997 Greg Bacon. All Rights Reserved. This library is free software. You may distribute and/or modify it under the same terms as Perl itself.