Subversion Repositories LCARS

Rev

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?