Subversion Repositories LCARS

Compare Revisions

Last modification

Ignore whitespace Rev 44 → Rev 45

/trunk/tools/network/news/newsstat/newsstat.pl
603,12 → 603,12
sub display_results
{
#################### DISPLAY RESULTS #####################
println( "=" x 76 );
print "=" x 76, "\n";
printf "%s\n",
centred(
__x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ),
76 );
println( "=" x 76 );
print "=" x 76, "\n";
printf "%s\n",
centred(
__(
1061,7 → 1061,7
 
sub usage
{
println( __ "usage: newsstat.pl NEWS.GROUP" );
print __ "usage: newsstat.pl NEWS.GROUP", "\n";
exit 1;
}
 
1074,9 → 1074,4
{
my ( $level, @msg ) = @_;
print STDERR @msg, "\n" if $level >= DEBUG;
}
 
sub println
{
print @_, "\n";
}
}