Rev 33 | Rev 48 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 33 | Rev 45 | ||
|---|---|---|---|
| Line 601... | Line 601... | ||
| 601 | } # write_data |
601 | } # write_data |
| 602 | 602 | ||
| 603 | sub display_results
|
603 | sub display_results
|
| 604 | {
|
604 | {
|
| 605 | #################### DISPLAY RESULTS #####################
|
605 | #################### DISPLAY RESULTS #####################
|
| 606 | println( "=" x 76 ); |
606 | print "=" x 76, "\n"; |
| 607 | printf "%s\n", |
607 | printf "%s\n", |
| 608 | centred(
|
608 | centred(
|
| 609 | __x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ), |
609 | __x( "Analysis of posts to {newsgroup}", newsgroup => $newsgroup_name ), |
| 610 | 76 ); |
610 | 76 ); |
| 611 | println( "=" x 76 ); |
611 | print "=" x 76, "\n"; |
| 612 | printf "%s\n", |
612 | printf "%s\n", |
| 613 | centred(
|
613 | centred(
|
| 614 | __(
|
614 | __(
|
| 615 | "(compiled with a script by Thomas 'PointedEars' Lahn, based on work by\nGarry Knight et al.)"
|
615 | "(compiled with a script by Thomas 'PointedEars' Lahn, based on work by\nGarry Knight et al.)"
|
| 616 | ), |
616 | ), |
| Line 1059... | Line 1059... | ||
| 1059 | return $clean; |
1059 | return $clean; |
| 1060 | }
|
1060 | }
|
| 1061 | 1061 | ||
| 1062 | sub usage
|
1062 | sub usage
|
| 1063 | {
|
1063 | {
|
| 1064 | println( __ "usage: newsstat.pl NEWS.GROUP" ); |
1064 | print __ "usage: newsstat.pl NEWS.GROUP", "\n"; |
| 1065 | exit 1; |
1065 | exit 1; |
| 1066 | }
|
1066 | }
|
| 1067 | 1067 | ||
| 1068 | sub dmsg
|
1068 | sub dmsg
|
| 1069 | {
|
1069 | {
|
| Line 1072... | Line 1072... | ||
| 1072 | 1072 | ||
| 1073 | sub dmsg2
|
1073 | sub dmsg2
|
| 1074 | {
|
1074 | {
|
| 1075 | my ( $level, @msg ) = @_; |
1075 | my ( $level, @msg ) = @_; |
| 1076 | print STDERR @msg, "\n" if $level >= DEBUG; |
1076 | print STDERR @msg, "\n" if $level >= DEBUG; |
| 1077 | }
|
1077 | }
|
| 1078 | - | ||
| 1079 | sub println
|
- | |
| 1080 | {
|
- | |
| 1081 | print @_, "\n"; |
- | |
| 1082 | }
|
- | |
| 1083 | 1078 | ||