[Pleac-commits] CVS: pleac/pleac pleac_ocaml.data,1.235,1.236

[Dave B. <ram...@us...>]

Update of /cvsroot/pleac/pleac/pleac
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv32166

Modified Files:
	pleac_ocaml.data 
Log Message:
19.6: Executing Commands Without Shell Escapes


Index: pleac_ocaml.data
===================================================================
RCS file: /cvsroot/pleac/pleac/pleac/pleac_ocaml.data,v
retrieving revision 1.235
retrieving revision 1.236
diff -u -r1.235 -r1.236
--- pleac_ocaml.data	3 Nov 2008 03:55:01 -0000	1.235
+++ pleac_ocaml.data	3 Nov 2008 04:37:55 -0000	1.236
@@ -16376,6 +16376,18 @@
 ocamlfind ocamlc -package netcgi_apache -c myscript.ml
 ocamlfind ocamlc -a -o myscript.cma myscript.cmo
 
+(* @@PLEAC@@_19.6 *)
+(* UNSAFE *)
+let status =
+  Unix.system
+    (command ^ " " ^ input ^ " " ^ String.concat " " files)
+
+(* safer *)
+let pid =
+  Unix.create_process command (Array.of_list ([command; input] @ files))
+    Unix.stdin Unix.stdout Unix.stderr
+let _, status = Unix.waitpid [] pid
+
 
 (* @@PLEAC@@_20.0 *)
 (* Libraries for HTTP clients and servers are listed at The Caml Hump: *)