mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhtxthtml.pl,2.32,2.33

2003-07-15 13:13:24
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv16218

Modified Files:
	mhtxthtml.pl 
Log Message:
[bug #4315]: Fixed.  The allowcomments argument was not even checked for.


Index: mhtxthtml.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxthtml.pl,v
retrieving revision 2.32
retrieving revision 2.33
diff -C2 -r2.32 -r2.33
*** mhtxthtml.pl	5 Apr 2003 23:52:20 -0000	2.32
--- mhtxthtml.pl	15 Jul 2003 20:12:16 -0000	2.33
***************
*** 138,141 ****
--- 138,142 ----
      my $subdir   = $args =~ /\bsubdir\b/i;
      my $norelate = $args =~ /\bdisablerelated\b/i;
+     my $allowcom = $args =~ /\ballowcomments\b/i;
      my $atdir    = $subdir ? $mhonarc::MsgPrefix.$mhonarc::MHAmsgnum : "";
      my $tmp;
***************
*** 344,349 ****
      ## Check comment declarations: may screw-up mhonarc processing
      ## and avoids someone sneaking in SSIs.
!     #$$data =~ s/<!(?:--(?:[^-]|-[^-])*--\s*)+>//go; # can crash perl
!     $$data =~ s/<!--[^-]+[#X%\$\[]*/<!--/g;  # Just mung them (faster)
  
      ($title.$$data, @files);
--- 345,352 ----
      ## Check comment declarations: may screw-up mhonarc processing
      ## and avoids someone sneaking in SSIs.
!     if (!$allowcom) {
!       #$$data =~ s/<!(?:--(?:[^-]|-[^-])*--\s*)+>//go; # can crash perl
!       $$data =~ s/<!--[^-]+[#X%\$\[]*/<!--/g;  # Just mung them (faster)
!     }
  
      ($title.$$data, @files);

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV