paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 02:08:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't scan embedded images. fixes #40691

Browse Source
This commit is contained in:
marcoonthegit 2024-03-16 19:28:47 +01:00
parent a907eb49c9
commit 01c6a0c180
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/chm/src/chmfilewriter.pas
View File

@ -29,11 +29,11 @@ interface
{$IFDEF FPC_DOTTEDUNITS}
uses
System.Classes, System.SysUtils, Chm.Writer, System.IniFiles, System.Contnrs, Chm.Sitemap, Fcl.AVLTree,
{for html scanning } Xml.Dom, Html.Sax, Html.Dom;
{for html scanning } Xml.Dom, Html.Sax, Html.Dom, System.StrUtils;
{$ELSE FPC_DOTTEDUNITS}
uses
Classes, SysUtils, chmwriter, inifiles, contnrs, chmsitemap, avl_tree,
{for html scanning } dom,SAX_HTML,dom_html;
{for html scanning } dom,SAX_HTML,dom_html,strutils;
{$ENDIF FPC_DOTTEDUNITS}
type
@ -837,6 +837,8 @@ var
val : String;
begin
val := findattribute(node,attributename);
if startstext('data:',val) then // skip embedded base64 or uuencoded images.
exit;
if sanitizeurl(fbasepath,val,localpath,localname,fn) then
if (Length(fn) > 0) { Skip links to self using named anchors }
and not FileInTotalList(uppercase(fn)) then