Gather and report usenet newsgroup statistics
use News::Scan;
my $scan = News::Scan->new;
This module provides a class whose objects can be used to gather and report Usenet newsgroup statistics.
\*(C`OPTIONS\*(C' is a list of named parameters (i.e. given in key-value pairs). Valid options are
The value of this option is the name of the newsgroup you wish to scan.
The value of this option should be either 'spool' or 'NNTP' (case is not significant). Any other value will produce an error (see the \*(C`error\*(C' method description below). A value of 'spool' indicates that you would like to scan articles in a spool (see the Spool option below). A value of 'NNTP' indicates that articles should be retrieved from your \s-1NNTP\s0 server (see the NNTPServer option below).
The value of this option should be the path to the spool directory that contains the articles you would like to scan. This option is ignored unless the value of From is 'spool'.
The value of this option (in the form server:port, with both being optional\*(--see Net::NNTP for the semantics of omitting one or both of these parameters) indicates the \s-1NNTP\s0 server from which to retrieve articles. This option is ignored unless From is 'NNTP'. See the description of the NNTPAuthLogin and NNTPAuthPasswd options below.
The value of this option should be a valid \s-1NNTP\s0 authentication login for your \s-1NNTP\s0 server. This option is only necessary if your \s-1NNTP\s0 server requires authentication.
The value of this option should be the password corresponding to the login in NNTPAuthLogin. Having this hardcoded in a script is evil, and there should be a much better way.
The value of this option indicates the length of the period (in days) immediately prior to invocation of the program from which you would like to scan articles. The default period is seven (7) days.
The value of this option is a Perl regular expression that accepts quoted lines and rejects unquoted or original lines. The default regular expression is \*(C`^\s{0,3}(?:\*(C'|:|\S+>|\+\+)>.
The value of this option should be a reference to an array containing regular expressions that accept email addresses of posters whose articles you wish to ignore.
The value of this option should be a reference to a hash whose keys are email addresses that should be transformed into the email addresses that are their corresponding values, i.e. \*(C`alias =\*(C' 'real@address'>.
\*(C`OPTIONS\*(C' is a list of named parameters identical to those accepted by \*(C`new\*(C'. Re-\*(C`configure\*(C'-ing an object after scanning is probably a bad idea. This method returns \*(C`undef\*(C' if it encounters an error.
The following methods are the actual underlying methods used to set and retrieve the configuration options of the same name (modulo case):
These methods can be used to retrieve information from the \*(C`News::Scan\*(C' object or ask it to perform some action.
Use this method to determine whether an object has encountered an error condition. The return value of \*(C`error\*(C' is guaranteed to be 0 after any method completes successfully (except \*(C`error\*(C'). (Keep in mind that this will also overwrite any previous error message.) If there has been an error, this method should return some useful message. If provided, \*(C`MESSAGE\*(C' sets the object's error message.
Returns the number of articles accounted for.
Returns the volume of traffic (in bytes) to the newsgroup in the period.
Returns the volume (in bytes) generated by headers.
Returns the number of lines consumed by headers.
Returns the volume (in bytes) generated by message bodies.
Returns the number of lines consumed by message bodies.
Returns the volume (in bytes) of text which has been determined to be original (see QuoteRE). Note that original traffic is a subset of body traffic.
Returns the number of lines that are determined to be original.
Returns the number of messages that had a cutline (/^-- $/).
Returns the volume (in bytes) generated by signatures.
Returns the number of lines consumed by signatures.
Use this method to determine the date (in seconds since the Epoch) that the oldest article found within the period was posted to Usenet. If \*(C`TIME\*(C' is given, it is treated as a candidate for the earliest article. If \*(C`TIME\*(C' is successful (i.e. is less than the previous earliest), this method returns 1, else 0.
Use this method to determine the date (in seconds since the Epoch) that the youngest article found within the period was posted to Usenet. If \*(C`TIME\*(C' is given, it is treated as a candidate for the latest article. If \*(C`TIME\*(C' is successful (i.e. is greater than the previous latest), this method returns 1, else 0.
Returns the list of regular expressions used to determine whether an article from a given email address should be ignored.
Returns a reference to a hash whose keys are email addresses and whose values are \*(C`News::Scan::Poster\*(C' objects corresponding to those email addresses. See News::Scan::Poster.
Returns a reference to a hash whose keys are subjects and whose values are \*(C`News::Scan::Thread\*(C' objects corresponding to those subjects. See News::Scan::Thread.
Returns a reference to a hash whose keys are newsgroup names and whose values are the number of times the corresponding groups have been crossposted to.
Use this method to mirror the articles from the specified \s-1NNTP\s0 server to the specified spool. Please be kind to the \s-1NNTP\s0 server.
Instruct the object to gather information about the newsgroup.
See the eg/ directory in the News-Scan distribution, available from the CPAN\*(--http://www.perl.com/CPAN/.
perlre, News::Scan::Poster, News::Scan::Thread, News::Scan::Article, Net::NNTP
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.