diff options
author | Steve Bennett <steveb@workware.net.au> | 2021-07-29 15:10:50 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2023-07-11 07:24:39 +1000 |
commit | d0458b9068d60d89c590594509443b824520acb9 (patch) | |
tree | a8dbaea0ed0a354c35b298c29ff6708281257d1f | |
parent | 37753f2699266422b5af0944b31f3b48ad09ebdb (diff) | |
download | jimtcl-taint-support.zip jimtcl-taint-support.tar.gz jimtcl-taint-support.tar.bz2 |
win32: add taint check to win32.ShellExecutetaint-support
Compile tested only.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | jim-win32.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/jim-win32.c b/jim-win32.c index 858e49d..cbc3bae 100644 --- a/jim-win32.c +++ b/jim-win32.c @@ -100,6 +100,10 @@ Win32_ShellExecute(Jim_Interp *interp, int objc, Jim_Obj * const *objv) Jim_WrongNumArgs(interp, 1, objv, "verb path ?parameters?"); return JIM_ERR; } + if (Jim_CheckTaint(interp, JIM_TAINT_ANY)) { + Jim_SetTaintError(interp, 1, objv); + return JIM_ERR; + } verb = Jim_String(objv[1]); file = Jim_String(objv[2]); GetCurrentDirectoryA(MAX_PATH + 1, cwd); |