90,7 → 90,6 |
my $formatter = new Number::Format( |
-decimal_point => $decimal_point, |
-thousands_sep => $thousands_sep, |
|
# -grouping => $grouping[0] |
); |
|
315,7 → 314,7 |
dmsg($ua) if DEBUG; |
} |
|
## The User Agent for User-Agent by number of posts |
## The User Agent for User-Agent by number of articles |
get_agent($msg); |
|
## Get all cross-posted newsgroups |
326,11 → 325,11 |
|
## Get threads |
my $thread = $msg->study('Subject'); |
$thread =~ s/^\s*re:\s*//i; # Remove Re: or re: at the start |
$thread =~ s/^\s*re:\s*//i; # Remove Re: or re: at the start |
$thread =~ s/\s*\(was:\s*.*\)\s*$//i; # Remove (was: ...) at the end |
$thread =~ s/\s+/ /g; # collapse whitespace |
$threads{$thread}{'count'}++; # bump count of this subject |
$threads{$thread}{'size'} += $filesize; # bump bytes for this thread |
$thread =~ s/\s+/ /g; # collapse whitespace |
$threads{$thread}{'count'}++; # bump count of this subject |
$threads{$thread}{'size'} += $filesize; # bump bytes for this thread |
|
## Is this an original post or a reply? |
if ( defined $msg->study('References') ) |
606,8 → 605,9 |
print "=" x 76, "\n"; |
printf "%s\n", |
centred( |
__x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ), |
76 ); |
__x( "Analysis of articles to {newsgroup}", newsgroup => $newsgroup_name ), |
76 |
); |
print "=" x 76, "\n"; |
printf "%s\n", |
centred( |
617,7 → 617,7 |
76 |
); |
print "\n\n"; |
printf __"Total posts considered: %s over %d days\n", |
printf __"Total articles considered: %s over %d days\n", |
$formatter->format_number($totalposts), |
$formatter->format_number($numdays); |
my $time_locale = setlocale(LC_TIME); |
639,7 → 639,7 |
printf __"Original articles: %s; replies: %s\n", |
$formatter->format_number($origposts), |
$formatter->format_number($replies); |
printf __"Total size of posts: %s bytes (%s)" . "\n", |
printf __"Total size of articles: %s bytes (%s)" . "\n", |
$formatter->format_number($totsize), |
$formatter->format_bytes( $totsize, ( 'precision' => 1, 'mode' => 'iec' ) ); |
printf __"Average %s articles per day, %s per day, %s bytes per article\n", |
754,7 → 754,7 |
printf "%s\n", |
centred( |
__x( |
"Top {count} responders by original text (> 5 posts)", |
"Top {count} responders by original text (> 5 articles)", |
count => $topposters |
), |
76 |
796,7 → 796,7 |
printf "%s\n", |
centred( |
__x( |
"Bottom {count} responders by original text (> 5 posts)", |
"Bottom {count} responders by original text (> 5 articles)", |
count => $topposters |
), |
76 |
952,7 → 952,10 |
} |
printf "%s\n", |
centred( |
__x( "Top {count} user agents by number of posts", count => $topagents ), |
__x( |
"Top {count} user agents by number of articles", |
count => $topagents |
), |
76 |
); |
print "=" x 76, "\n"; |
984,7 → 987,9 |
$count = $toptz; |
} |
printf "%s\n", |
centred( __x( "Top {count} time zones", count => $toptz ), 76 ); |
centred( |
__x( "Top {count} time zones by number of articles", count => $toptz ), |
76 ); |
print "=" x 76, "\n"; |
my $i = 0; |
foreach my $zone ( sort { $tz{$b} <=> $tz{$a} } keys %tz ) |
1074,4 → 1079,4 |
{ |
my ( $level, @msg ) = @_; |
print STDERR @msg, "\n" if $level >= DEBUG; |
} |
} |