1
0
mirror of https://github.com/sasjs/server.git synced 2025-12-10 19:34:34 +00:00

chore: fix for returning execute json

This commit is contained in:
Saad Jutt
2021-11-18 04:32:31 +05:00
parent b75139dda5
commit d2955645f0
2 changed files with 12 additions and 4 deletions

View File

@@ -10,6 +10,4 @@
**/
proc fcmp outcat=work.sasjs.utils;
%mcf_stpsrv_header()
quit;
%mcf_stpsrv_header(wrap=YES, insert_cmplib=YES)

View File

@@ -101,6 +101,7 @@ ${program}`
typeof vars._debug === 'string' ? parseInt(vars._debug) : vars._debug
let debugResponse: string | undefined
if ((debugValue && debugValue >= 131) || session.crashed) {
debugResponse = `<html><body>${webout}<div style="text-align:left"><hr /><h2>SAS Log</h2><pre>${log}</pre></div></body></html>`
}
@@ -108,7 +109,16 @@ ${program}`
session.inUse = false
sessionController.deleteSession(session)
if (returnJson) return { result: debugResponse ?? webout, log }
if (returnJson) {
const response: any = {
result: webout
}
if ((debugValue && debugValue >= 131) || session.crashed) {
response.log = log
}
return response
}
return debugResponse ?? webout
}