| 90,6 → 90,7 |
|---|
| my $formatter = new Number::Format( |
| -decimal_point => $decimal_point, |
| -thousands_sep => $thousands_sep, |
| |
| # -grouping => $grouping[0] |
| ); |
| |
| 314,7 → 315,7 |
|---|
| dmsg($ua) if DEBUG; |
| } |
| |
| ## The User Agent for User-Agent by number of articles |
| ## The User Agent for User-Agent by number of posts |
| get_agent($msg); |
| |
| ## Get all cross-posted newsgroups |
| 605,9 → 606,8 |
|---|
| print "=" x 76, "\n"; |
| printf "%s\n", |
| centred( |
| __x( "Analysis of articles to {newsgroup}", newsgroup => $newsgroup_name ), |
| 76 |
| ); |
| __x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ), |
| 76 ); |
| print "=" x 76, "\n"; |
| printf "%s\n", |
| centred( |
| 617,7 → 617,7 |
|---|
| 76 |
| ); |
| print "\n\n"; |
| printf __"Total articles considered: %s over %d days\n", |
| printf __"Total posts 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 articles: %s bytes (%s)" . "\n", |
| printf __"Total size of posts: %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 articles)", |
| "Top {count} responders by original text (> 5 posts)", |
| count => $topposters |
| ), |
| 76 |
| 796,7 → 796,7 |
|---|
| printf "%s\n", |
| centred( |
| __x( |
| "Bottom {count} responders by original text (> 5 articles)", |
| "Bottom {count} responders by original text (> 5 posts)", |
| count => $topposters |
| ), |
| 76 |
| 952,10 → 952,7 |
|---|
| } |
| printf "%s\n", |
| centred( |
| __x( |
| "Top {count} user agents by number of articles", |
| count => $topagents |
| ), |
| __x( "Top {count} user agents by number of posts", count => $topagents ), |
| 76 |
| ); |
| print "=" x 76, "\n"; |
| 987,9 → 984,7 |
|---|
| $count = $toptz; |
| } |
| printf "%s\n", |
| centred( |
| __x( "Top {count} time zones by number of articles", count => $toptz ), |
| 76 ); |
| centred( __x( "Top {count} time zones", count => $toptz ), 76 ); |
| print "=" x 76, "\n"; |
| my $i = 0; |
| foreach my $zone ( sort { $tz{$b} <=> $tz{$a} } keys %tz ) |