- Fixed a number of exec calls to im_exec

www/file-add.tcl

@@ -119,7 +119,7 @@ ad_form -extend -form {
     {description:text(textarea),optional {label \#file-storage.Description\#} {html "rows 5 cols 35"}}
 }
 
-if [catch {set binary [exec $unpack_binary]} errormsg] {
+if [catch {set binary [im_exec $unpack_binary]} errormsg] {
       set unpack_bin_installed 0
 } else {
         set unpack_bin_installed 1
@@ -155,7 +155,7 @@ ad_form -extend -form {} -select_query_name {get_file} -new_data {
 	file mkdir $path
 	
 	
-	catch { exec $unpack_binary -jd $path ${upload_file.tmpfile} } errmsg
+	catch { im_exec $unpack_binary -jd $path ${upload_file.tmpfile} } errmsg
 	
 	# More flexible parameter design could be:
 	# zip {unzip -jd {out_path} {in_file}} tar {tar xf {in_file} {out_path}} tgz {tar xzf {in_file} {out_path}} 

www/folder-zip-add.tcl

@@ -100,7 +100,7 @@ ad_form -extend -name file_add -form {} -new_data {
         set unzip_path [ad_tmpnam]
         file mkdir $unzip_path
         # save paths! get rid of -j switch --DAVEB 20050628
-        catch { exec $unzip_binary -d $unzip_path ${upload_file.tmpfile} } errmsg
+        catch { im_exec $unzip_binary -d $unzip_path ${upload_file.tmpfile} } errmsg
         
         # More flexible parameter design could be:
         # zip {unzip -jd {out_path} {in_file}} tar {tar xf {in_file} {out_path}} tgz {tar xzf {in_file} {out_path}}