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"; |
} |