Rev 31 | Rev 45 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 31 | Rev 33 | ||
|---|---|---|---|
| Line 324... | Line 324... | ||
| 324 | $crossposts{$_}++; # bump count for each |
324 | $crossposts{$_}++; # bump count for each |
| 325 | }
|
325 | }
|
| 326 | 326 | ||
| 327 | ## Get threads
|
327 | ## Get threads
|
| 328 | my $thread = $msg->study('Subject'); |
328 | my $thread = $msg->study('Subject'); |
| 329 | $thread =~ s/^re:\s+//i; # Remove Re: or re: at start |
329 | $thread =~ s/^\s*re:\s*//i; # Remove Re: or re: at the start |
| - | 330 | $thread =~ s/\s*\(was:\s*.*\)\s*$//i; # Remove (was: ...) at the end |
|
| 330 | $thread =~ s/\s+/ /g; # collapse whitespace |
331 | $thread =~ s/\s+/ /g; # collapse whitespace |
| 331 | $threads{$thread}{'count'}++; # bump count of this subject |
332 | $threads{$thread}{'count'}++; # bump count of this subject |
| 332 | $threads{$thread}{'size'} += $filesize; # bump bytes for this thread |
333 | $threads{$thread}{'size'} += $filesize; # bump bytes for this thread |
| 333 | 334 | ||
| 334 | ## Is this an original post or a reply?
|
335 | ## Is this an original post or a reply?
|