Subversion Repositories LCARS

Compare Revisions

Last modification

Ignore whitespace Rev 24 → Rev 25

/trunk/tools/network/news/newsstat/newsstat.pl
694,7 → 694,7
my $poster ( sort { $data{$b}{count} <=> $data{$a}{count} } keys %data )
{
my $name = substr( $poster, 0, 65 );
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ),
$data{$poster}{count};
last if ( ++$i == $count );
}
725,7 → 725,7
my $poster ( sort { $data{$b}{size} <=> $data{$a}{size} } keys %data )
{
my $name = substr( $poster, 0, 62 );
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $poster, 63, "." ),
$data{$poster}{size} / 1024; #/
last if ( ++$i == $count );
}
763,7 → 763,7
next if $data{$poster}{quoted} == 0;
next if $data{$poster}{count} < 5;
my $name = substr( $poster, 0, 63 );
printf "%2d: %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ),
printf "%2d. %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ),
$data{$poster}{percent};
last if ( ++$i == $count );
}
801,7 → 801,7
next if $data{$poster}{quoted} == 0;
next if $data{$poster}{count} < 5;
my $name = substr( $poster, 0, 63 );
printf "%2d: %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ),
printf "%2d. %-63s : %02.2f%%\n", $i + 1, rpad( $poster, 63, "." ),
$data{$poster}{percent};
last if ( ++$i == $count );
}
833,7 → 833,7
)
{
my $name = substr( $thread, 0, 65 );
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
$threads{$thread}{'count'};
last if ( ++$i == $count );
}
864,7 → 864,7
)
{
my $name = substr( $thread, 0, 65 );
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
$threads{$thread}{'size'} / 1024; #/
last if ( ++$i == $count );
}
893,7 → 893,7
foreach
my $name ( sort { $crossposts{$b} <=> $crossposts{$a} } keys %crossposts )
{
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $name, 63, "." ),
$crossposts{$name};
last if ( ++$i == $count );
}
920,7 → 920,7
my $i = 0;
foreach my $agent ( sort { $agents{$b} <=> $agents{$a} } keys %agents )
{
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $agent, 63, "." ),
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $agent, 63, "." ),
$agents{$agent};
last if ( ++$i == $count );
}
952,7 → 952,7
keys %distinct_agent
)
{
printf "%2d: %-58s : %5d (%2.f%%)\n", $i + 1, rpad( $agent, 58, "." ),
printf "%2d. %-58s : %5d (%2.f%%)\n", $i + 1, rpad( $agent, 58, "." ),
$distinct_agent{$agent},
( ( $distinct_agent{$agent} / $totalposts ) * 100 );
last if ( ++$i == $count );
979,7 → 979,7
my $i = 0;
foreach my $zone ( sort { $tz{$b} <=> $tz{$a} } keys %tz )
{
printf "%2d: %-63s : %6d\n", $i + 1, rpad( $zone, 63, "." ), $tz{$zone};
printf "%2d. %-63s : %6d\n", $i + 1, rpad( $zone, 63, "." ), $tz{$zone};
last if ( ++$i == $count );
}
print "\n", "=" x 76, "\n";