Subversion Repositories LCARS

Compare Revisions

Last modification

Regard whitespace Rev 31 → Rev 33

/trunk/tools/network/news/newsstat/newsstat.pl
326,7 → 326,8
 
## Get threads
my $thread = $msg->study('Subject');
$thread =~ s/^re:\s+//i; # Remove Re: or re: at start
$thread =~ s/^\s*re:\s*//i; # Remove Re: or re: at the start
$thread =~ s/\s*\(was:\s*.*\)\s*$//i; # Remove (was: ...) at the end
$thread =~ s/\s+/ /g; # collapse whitespace
$threads{$thread}{'count'}++; # bump count of this subject
$threads{$thread}{'size'} += $filesize; # bump bytes for this thread