[popfile-commit] engine/UI HTML.pm,1.93,1.94

[<jgr...@us...>]

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>/;
                                  }
                              }