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