Subversion Repositories LCARS

Compare Revisions

Last modification

Regard whitespace Rev 31 → Rev 30

/trunk/tools/network/news/newsstat/newsstat.pl
98,7 → 98,7
 
## The name of the group to do stats for
my $newsgroup_name = $ARGV[0];
$newsgroup_name // usage();
$newsgroup_name or usage();
 
## Check for removal flags
my $ix;
249,7 → 249,7
 
## Disregard article if timestamp is not in range
dmsg($timestamp) if DEBUG;
if ( $timestamp < $start || $timestamp >= $end )
if ( $timestamp < $start or $timestamp >= $end )
{
dmsg("Posting on $date ignored.") if DEBUG;
return;
264,11 → 264,11
my $filesize = -s $filename; # get total size of file
$totsize += $filesize; # bump total sizes of all files
 
if ( ( not defined $earliest ) || $timestamp < $earliest )
if ( ( not defined $earliest ) or $timestamp < $earliest )
{
$earliest = $timestamp;
}
elsif ( ( not defined $latest ) || $timestamp > $latest )
elsif ( ( not defined $latest ) or $timestamp > $latest )
{
$latest = $timestamp;
}
306,7 → 306,7
 
## The User-Agent and/or X-Newsreader fields
## for User-Agent by poster
my $ua = $msg->study('User-Agent') // $msg->study('X-Newsreader');
my $ua = $msg->study('User-Agent') or $msg->study('X-Newsreader');
if ( defined $ua )
{
$data{$poster}{'agent'} = $ua;
367,7 → 367,7
}
## are we in a quote line?
## Bill Unruh uses ] quotes, and another poster uses ::
elsif ( m{^\s*[>\]]}o || m{^\s*::}o )
elsif ( m{^\s*[>\]]}o or m{^\s*::}o )
{
## bump count of quoted chrs
$data{$poster}{'quoted'} += length($_);
395,9 → 395,10
{
my $msg = shift;
 
my $ua = $msg->study('User-Agent') // $msg->study('X-Newsreader')
// $msg->study('X-Mailer');
 
my $ua =
$msg->study('User-Agent')
or $msg->study('X-Newsreader')
or $msg->study('X-Mailer');
if ( not defined $ua )
{
my $org = $msg->study('Organization');
737,8 → 738,6
#####################################
## Show top posters for original text
#####################################
my $topposters_real = 0;
 
unless ( $skipSec{3} )
{
if ( keys %data < $topposters )
749,7 → 748,6
{
$count = $topposters;
}
 
printf "%s\n",
centred(
__x(
759,6 → 757,7
76
);
print "=" x 76, "\n";
my $i = 0;
foreach my $poster (
sort { $data{$b}{percent} <=> $data{$a}{percent} }
keys %data
767,10 → 766,9
next if $data{$poster}{quoted} == 0;
next if $data{$poster}{count} < 5;
my $name = substr( $poster, 0, 63 );
printf "%2d. %-63s : %02.2f%%\n", $topposters_real + 1,
rpad( $poster, 63, "." ),
printf "%2d. %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ),
$data{$poster}{percent};
last if ( ++$topposters_real == $count );
last if ( ++$i == $count );
}
print "\n", "=" x 76, "\n";
}
778,9 → 776,6
########################################
## Show bottom posters for original text
########################################
 
$skipSec{4} = ( $topposters_real <= $topposters ) unless defined $skipSec{4};
 
unless ( $skipSec{4} )
{
if ( keys %data < $topposters )
791,7 → 786,6
{
$count = $topposters;
}
 
printf "%s\n",
centred(
__x(