Begin to check for injectible commands

This commit is contained in:
John Whitington
2025-04-24 16:30:40 +01:00
parent 505eb56e74
commit b6a9d3074b
2 changed files with 10 additions and 1 deletions

View File

@ -1637,12 +1637,15 @@ let setimageresolution f =
args.op <- Some (ImageResolution f)
let setimpath p =
Cpdfutil.check_injectible p;
args.path_to_im <- p
let setjbig2encpath p =
Cpdfutil.check_injectible p;
args.path_to_jbig2enc <- p
let setp2ppath p =
Cpdfutil.check_injectible p;
args.path_to_p2p <- p
let setfrombox s =
@ -2804,7 +2807,7 @@ let specs =
Arg.String setpostpend,
" Postpend content to page");
("-gs",
Arg.String (fun s -> args.path_to_ghostscript <- s),
Arg.String (fun s -> Cpdfutil.check_injectible s; args.path_to_ghostscript <- s),
" Path to gs executable");
("-gs-malformed",
Arg.Unit setgsmalformed,