sa-learn " splice() offset past end of array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line 492 and 502.

[Simon Loewenthal]

 

Hi, 

 Just notcied sa-learn kick up a fuss with some files fed into
it from a user's HAM directory in a dovecot directory. 

I put a copy of
the ham on http://pastebin.com/MLEhYsG7

splice() offset past end of
array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line 492.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
splice() offset
past end of array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line
492.
Use of uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
splice() offset
past end of array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line
492.
Use of uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
splice() offset
past end of array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line
492.
Use of uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
splice() offset
past end of array at /usr/share/perl5/Mail/SpamAssassin/HTML.pm line
492.
Use of uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Use of
uninitialized value within @rgb in sprintf at
/usr/share/perl5/Mail/SpamAssassin/HTML.pm line 502.
Learned tokens from
0 message(s) (1 message(s) examined)

Note that due to the content, the
email has had to be heavily redacted. All content has been replaced with
the words "contend removed" or similar, but all formatting (including
smilies and punctuation) has been unaltered. The IP addresses and
message IDs have had to be changed into something that has obviously
been changed 

/usr/share/perl5/Mail/SpamAssassin/HTML.pm 

line 492 and
502 

 elsif ($name eq 'style') {
 $new{style} = $attr->{style};
 my
@parts = split(/;/, $new{style});
 foreach (@parts) {
 if
(/^s*(background-)?color:s*(.+)s*$/i) {
 my $whcolor = $1 ? 'bgcolor' :
'fgcolor';
 my $value = lc $2;

 if ($value =~ /rgb/) {
 $value =~
tr/0-9,//cd;
 my @rgb = split(/,/, $value);
 SPLICE @RGB, 3;
 for(my
$i=0; $i<3; $i++) {
 if (!defined $rgb[$i]) {
 $_ = 0;
 }
 elsif
($rgb[$i] > 255) {
 $rgb[$i] = 255;
 }
 }

        $NEW{$WHCOLOR} =
SPRINTF("#%02X%02X%02X", @RGB);
 }
 else {
 $new{$whcolor} =
name_to_rgb($value);
 }
 }
 elsif (/^s*([a-z_-]+)s*:s*(S.*?)s*$/i) {
 #
"display: none", "visibility: hidden", etc.
 $new{'style_'.$1} = $2;
 }

}
 }

sa-learn still exits with a zero. 

Does any one know what may
have tripped this up? Is it a bug, or some strange formatting in the
email message? 

Not a big deal for me, but perhaps interesting for
someone else. (/shrug) :D 

Cheers, Simon. 

-- 
"I decided that I was a
lemon for a couple of weeks. I kept myself amused all that time jumping
in and out of a gin and tonic."
simon@klunky .co.uk / .org