phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Enhancements to COC_AVAILABILITY to reduce false

Browse Source 
positives and add additional logging.
This commit is contained in:
Infineon\Mitchem
2025-01-08 15:25:45 -07:00
committed by Mitchem Dakota (CSC FI SPS MESLEO External)
parent 0e51db912a
commit dd3aaad4a6
2 changed files with 44 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/FTP_SERVICES.txt
View File

@ -22,6 +22,7 @@ Function FTP_Services(@Service, @Params)
History : (Date, Initials, Notes)
07/10/18 dmb Original programmer.
11/13/24 djm Add ListDirectory service.
01/08/24 djm Changed ListDirectory to preserve host error message and set Error_Services.
***********************************************************************************************************************/
@ -822,7 +823,6 @@ Service ListDirectory(Host=HOSTS, Username, Password, RemoteDirectory, Query, Sc
If (Host NE '') AND (RemoteDirectory NE '') then
ScriptPath = FTP_Services('CreateScript', ScriptPath, Host, '', Username, Password, '', RemoteDirectory, Query, 'list', SSH)
If Error_Services('NoError') then
//FTP_Services('RunScript', ScriptPath, Host, Username, Password, '', RemoteDirectory, DeleteScript, SSH)
If SSH EQ True$ then
Command = 'psftp'
If Username NE '' then
@ -837,9 +837,12 @@ Service ListDirectory(Host=HOSTS, Username, Password, RemoteDirectory, Query, Sc
end else
Command = 'ftp -i -n -s:' : ScriptPath
end
//Command = 'psftp ' : ScriptPath
DirectoryList = SRP_Run_Command(Command, 'VAR')
Gosub LsToMls
If Count(DirectoryList, 'ssh_init') EQ 0 then
Gosub LsToMls
end else
Error_Services('Add', DirectoryList)
end
Response = DirectoryList
If OutputPath NE '' then
OutputDirectoryList = DirectoryList
@ -899,3 +902,4 @@ return