Subversion Repositories LCARS

Compare Revisions

Last modification

Ignore whitespace Rev 47 → Rev 48

/trunk/tools/network/news/newsstat/newsstat.pl
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;
}
}
/trunk/tools/network/news/newsstat/po/de.po
7,8 → 7,8
msgstr ""
"Project-Id-Version: newsstat r23\n"
"Report-Msgid-Bugs-To: Thomas 'PointedEars' Lahn <startrek@PointedEars.de>\n"
"POT-Creation-Date: 2013-01-07 00:47+0100\n"
"PO-Revision-Date: 2012-06-07 04:57+0200\n"
"POT-Creation-Date: 2013-01-07 01:50+0100\n"
"PO-Revision-Date: 2013-01-07 01:50+0100\n"
"Last-Translator: Thomas 'PointedEars' Lahn <startrek@PointedEars.de>\n"
"Language-Team: German <startrek@PointedEars.de>\n"
"Language: de\n"
16,33 → 16,33
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
 
#: ../newsstat.pl:207
#: ../newsstat.pl:206
#, perl-brace-format
msgid "Can't cd to {newsgroup}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:213
#: ../newsstat.pl:212
#, perl-brace-format
msgid "Can't open {newsgroup}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:245
#: ../newsstat.pl:244
#, perl-brace-format
msgid "Can't open {file}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:300 ../newsstat.pl:419
#: ../newsstat.pl:299 ../newsstat.pl:418
msgid "unknown"
msgstr "unbekannt"
 
#: ../newsstat.pl:554
#: ../newsstat.pl:553
#, perl-brace-format
msgid "Can't create XDATA: {error}\n"
msgstr ""
 
#: ../newsstat.pl:609
#: ../newsstat.pl:608
#, perl-brace-format
msgid "Analysis of posts to {newsgroup}"
msgid "Analysis of articles to {newsgroup}"
msgstr "Analyse der Artikel in {newsgroup}"
 
#: ../newsstat.pl:615
55,28 → 55,28
 
#: ../newsstat.pl:620
#, perl-format
msgid "Total posts considered: %s over %d days\n"
msgstr "Berücksichtigte Postings: %s über %d Tage\n"
msgid "Total articles considered: %s over %d days\n"
msgstr "Berücksichtigte Artikel: %s über %d Tage\n"
 
#: ../newsstat.pl:635
#, perl-format
msgid "Earliest article: %s\n"
msgstr "Ältester Artikel: %s\n"
msgid "Earliest article: %s\n"
msgstr "Ältester Artikel: %s\n"
 
#: ../newsstat.pl:637
#, perl-format
msgid "Latest article: %s\n"
msgstr "Neuester Artikel: %s\n"
msgid "Latest article: %s\n"
msgstr "Neuester Artikel: %s\n"
 
#: ../newsstat.pl:639
#, perl-format
msgid "Original articles: %s; replies: %s\n"
msgstr "Originalartikel: %s; Antworten: %s\n"
msgid "Original articles: %s; replies: %s\n"
msgstr "Originalartikel: %s; Antworten: %s\n"
 
#: ../newsstat.pl:642
#, perl-format
msgid "Total size of posts: %s bytes (%s)\n"
msgstr "Postings insgesamt: %s Bytes (%s)\n"
msgid "Total size of articles: %s bytes (%s)\n"
msgstr "Artikel insgesamt: %s Bytes (%s)\n"
 
#: ../newsstat.pl:645
#, perl-format
120,13 → 120,13
 
#: ../newsstat.pl:757
#, perl-brace-format
msgid "Top {count} responders by original text (> 5 posts)"
msgstr "Top {count} der Antwortenden nach Originaltext (> 5 Postings)"
msgid "Top {count} responders by original text (> 5 articles)"
msgstr "Top {count} der Antwortenden nach Originaltext (> 5 Artikel)"
 
#: ../newsstat.pl:799
#, perl-brace-format
msgid "Bottom {count} responders by original text (> 5 posts)"
msgstr "{count} seltenste Antwortende nach Originaltext (> 5 Postings)"
msgid "Bottom {count} responders by original text (> 5 articles)"
msgstr "{count} seltenste Antwortende nach Originaltext (> 5 Artikel)"
 
#: ../newsstat.pl:836
#, perl-brace-format
148,16 → 148,16
msgid "Top {count} user agents by poster"
msgstr "Top {count} der Benutzerprogramme nach Anzahl der Poster"
 
#: ../newsstat.pl:955
#: ../newsstat.pl:956
#, perl-brace-format
msgid "Top {count} user agents by number of posts"
msgid "Top {count} user agents by number of articles"
msgstr "Top {count} der Benutzerprogramme nach Anzahl der Artikel"
 
#: ../newsstat.pl:987
#: ../newsstat.pl:991
#, perl-brace-format
msgid "Top {count} time zones"
msgstr "Top {count} der Zeitzonen"
msgid "Top {count} time zones by number of articles"
msgstr "Top {count} der Benutzerprogramme nach Anzahl der Artikel"
 
#: ../newsstat.pl:1064
#: ../newsstat.pl:1069
msgid "usage: newsstat.pl NEWS.GROUP"
msgstr ""
/trunk/tools/network/news/newsstat/po/de.pointedears.newsstat.pot
8,7 → 8,7
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: Thomas 'PointedEars' Lahn <startrek@PointedEars.de>\n"
"POT-Creation-Date: 2012-12-06 00:12+0100\n"
"POT-Creation-Date: 2013-01-07 01:50+0100\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
17,33 → 17,33
"Content-Type: text/plain; charset=CHARSET\n"
"Content-Transfer-Encoding: 8bit\n"
 
#: ../newsstat.pl:207
#: ../newsstat.pl:206
#, perl-brace-format
msgid "Can't cd to {newsgroup}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:213
#: ../newsstat.pl:212
#, perl-brace-format
msgid "Can't open {newsgroup}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:245
#: ../newsstat.pl:244
#, perl-brace-format
msgid "Can't open {file}: {error}\n"
msgstr ""
 
#: ../newsstat.pl:300 ../newsstat.pl:419
#: ../newsstat.pl:299 ../newsstat.pl:418
msgid "unknown"
msgstr ""
 
#: ../newsstat.pl:554
#: ../newsstat.pl:553
#, perl-brace-format
msgid "Can't create XDATA: {error}\n"
msgstr ""
 
#: ../newsstat.pl:609
#: ../newsstat.pl:608
#, perl-brace-format
msgid "Analysis of posts to {newsgroup}"
msgid "Analysis of articles to {newsgroup}"
msgstr ""
 
#: ../newsstat.pl:615
54,27 → 54,27
 
#: ../newsstat.pl:620
#, perl-format
msgid "Total posts considered: %s over %d days\n"
msgid "Total articles considered: %s over %d days\n"
msgstr ""
 
#: ../newsstat.pl:635
#, perl-format
msgid "Earliest article: %s\n"
msgid "Earliest article: %s\n"
msgstr ""
 
#: ../newsstat.pl:637
#, perl-format
msgid "Latest article: %s\n"
msgid "Latest article: %s\n"
msgstr ""
 
#: ../newsstat.pl:639
#, perl-format
msgid "Original articles: %s; replies: %s\n"
msgid "Original articles: %s; replies: %s\n"
msgstr ""
 
#: ../newsstat.pl:642
#, perl-format
msgid "Total size of posts: %s bytes (%s)\n"
msgid "Total size of articles: %s bytes (%s)\n"
msgstr ""
 
#: ../newsstat.pl:645
119,12 → 119,12
 
#: ../newsstat.pl:757
#, perl-brace-format
msgid "Top {count} responders by original text (> 5 posts)"
msgid "Top {count} responders by original text (> 5 articles)"
msgstr ""
 
#: ../newsstat.pl:799
#, perl-brace-format
msgid "Bottom {count} responders by original text (> 5 posts)"
msgid "Bottom {count} responders by original text (> 5 articles)"
msgstr ""
 
#: ../newsstat.pl:836
147,16 → 147,16
msgid "Top {count} user agents by poster"
msgstr ""
 
#: ../newsstat.pl:955
#: ../newsstat.pl:956
#, perl-brace-format
msgid "Top {count} user agents by number of posts"
msgid "Top {count} user agents by number of articles"
msgstr ""
 
#: ../newsstat.pl:987
#: ../newsstat.pl:991
#, perl-brace-format
msgid "Top {count} time zones"
msgid "Top {count} time zones by number of articles"
msgstr ""
 
#: ../newsstat.pl:1064
#: ../newsstat.pl:1069
msgid "usage: newsstat.pl NEWS.GROUP"
msgstr ""