Subversion Repositories LCARS

Rev

Rev 13 | Rev 22 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 14
Line 6... Line 6...
6
use Encode;
6
use Encode;
7
7
8
## Print out all text to STDOUT UTF-8 encoded
8
## Print out all text to STDOUT UTF-8 encoded
9
binmode STDOUT, ':encoding(UTF-8)';
9
binmode STDOUT, ':encoding(UTF-8)';
10
10
11
############################
11
##############################
12
## newsstat.pl version 0.4.3
12
## newsstat.pl version 0.4.3.1
13
13
14
###########################################################################
14
###########################################################################
15
## Collect statistics about a newsgroup (specified by first argument)
15
## Collect statistics about a newsgroup (specified by first argument)
16
## in the local news spool. Check all articles in the last 30-day period.
16
## in the local news spool. Check all articles in the last 30-day period.
17
## Rank posters by number of posts and by volume of posts, report on top
17
## Rank posters by number of posts and by volume of posts, report on top
Line 810... Line 810...
810
################################################################
810
################################################################
811
sub clean
811
sub clean
812
{
812
{
813
  my $dirty = shift;
813
  my $dirty = shift;
814
  my $clean = $dirty;
814
  my $clean = $dirty;
815
  $clean =~ s/^\s*|\s*$//g;
815
  $clean =~ s/^\s+|\s+$//g;
816
816
817
  return $clean;
817
  return $clean;
818
}
818
}
819
819
820
sub usage
820
sub usage