| 23,7 → 23,7 |
|---|
| # RECENT CHANGES # |
| # 2011-10-03 PE - Use more compatible shebang |
| # - Fixed some Perl::Critic-ized code |
| # - Fixed wrong indent for non-ASCII names (TODO: proper dot count) |
| # - Fixed wrong indent for non-ASCII names |
| # - Formatted source code |
| # 2011-07-03 PE - Use Encode to decode/encode MIME encodings |
| # - Use warnings, utf8 (just in case) |
| 555,15 → 555,15 |
|---|
| #### First, analyse header fields #### |
| |
| # Set up this poster if not defined, get counts, sizes |
| my $poster = encode( 'UTF-8', $headers{From} ); # get the poster's name |
| my $poster = $headers{From}; # get the poster's name |
| if ( !defined( $data{$poster} ) ) |
| { # seen this one before? |
| $data{$poster}{agent} = 'Unknown'; # comes after For: field |
| { # seen this one before? |
| $data{$poster}{agent} = 'Unknown'; # comes after For: field |
| $data{$poster}{orig} = 0; |
| $data{$poster}{quoted} = 0; |
| } |
| $data{$poster}{count}++; # bump count for this poster |
| $data{$poster}{size} += $filesize; # total size of file |
| $data{$poster}{count}++; # bump count for this poster |
| $data{$poster}{size} += $filesize; # total size of file |
| |
| # The User-Agent and/or X-Newsreader fields |
| # for User-Agent by poster |
| 693,7 → 693,7 |
|---|
| } |
| |
| # Get threads |
| my $thread = encode( 'UTF-8', $headers{"Subject"} ); |
| my $thread = $headers{"Subject"}; |
| $thread =~ s/^re: //i; # Remove Re: or re: at start |
| $thread =~ s/\s+/ /g; # collapse whitespace |
| $threads{$thread}{count} += 1; # bump count of this subject |
| 798,9 → 798,12 |
|---|
| ############################## |
| sub rpad |
| { |
| |
| # get text to pad, length to pad, pad chr |
| my ( $text, $pad_len, $pad_chr ) = @_; |
| |
| ### DEBUG |
| # printf "|%s| = %d\n", $text, length($text); |
| |
| if ( length($text) > $pad_len ) |
| { |
| $text = substr( $text, 0, $pad_len ); |