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

* Dump certificate in temp dir. Fixes issue #40872

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-01 18:39:27 +02:00
parent 04b9bc7702
commit 406d5f4147
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/openssl/src/fpopenssl.pp
View File

@ -31,11 +31,7 @@ uses
{$IFDEF DUMPCERT}
Const
{$IFDEF UNIX}
DumpCertFile = '/tmp/x509.txt';
{$ELSE}
DumpCertFile = 'C:\temp\x509.txt';
{$ENDIF}
DumpCertFile = 'x509.txt';
{$ENDIF}
Type
@ -303,7 +299,7 @@ begin
With TStringList.Create do
try
Add(S);
SaveToFile(DumpCertFile);
SaveToFile(IncludeTrailingPathDelimiter(GetTempDir)+DumpCertFile);
finally
Free;
end;