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