Subversion Repositories LCARS

Compare Revisions

Last modification

Ignore whitespace Rev 45 → Rev 44

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