Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv24532/UI
Modified Files:
HTML.pm
Log Message:
Walk through and make sure that everytime we use a variable inside a regular expression we surround it with \Q and \E to prevent special characters inside the variable
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -d -r1.93 -r1.94
*** HTML.pm 27 Feb 2003 00:00:50 -0000 1.93
--- HTML.pm 27 Feb 2003 00:40:15 -0000 1.94
***************
*** 2993,2999 ****
my $arg = $2;
! if ( $head =~ /$header/i ) {
! if ( $arg =~ /$text/i ) {
! $line =~ s/($text)/<b><font color\"$self->{classifier}->{colors}{$self->{history_}{$mail_file}{bucket}}\">$1<\/font><\/b>/;
}
}
--- 2993,2999 ----
my $arg = $2;
! if ( $head =~ /\Q$header\E/i ) {
! if ( $arg =~ /\Q$text\E/i ) {
! $line =~ s/(\Q$text\E)/<b><font color\"$self->{classifier}->{colors}{$self->{history_}{$mail_file}{bucket}}\">$1<\/font><\/b>/;
}
}
|
