Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.189.2.159 -r1.189.2.160 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 27 Nov 2022 17:55:10 -0000 1.189.2.159 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 2 Feb 2023 11:04:23 -0000 1.189.2.160 @@ -3628,7 +3628,7 @@ continue } } - #ns_log notice "util::potentially_unsafe_eval_p '$string' $p" + #ns_log notice "util::potentially_unsafe_eval_p '$string' $p" if {$p < 0 || [string length $string] < 2} { break } @@ -3638,7 +3638,7 @@ } break } - #ns_log notice "util::potentially_unsafe_eval_p '$string' -> $unsafe_p" + #ns_log notice "util::potentially_unsafe_eval_p '$string' -> $unsafe_p" return $unsafe_p } @@ -3701,26 +3701,26 @@ } ad_proc ad_opentmpfile {varFilename {template "oacs"}} { - + Wrapper for Tcl's "file tempfile ...", but respects the server's tmpdir settings, e.g. when admin want to specify the temporary directory. The function is similar to "ns_opentmpfile", but provides a default template and uses always the configured tmp directory. - + } { uplevel [list file tempfile $varFilename [ns_config ns/parameters tmpdir]/$template] } if {$::tcl_version > 8.6} { # # Tcl 8.7 or newer - # + # ad_proc ad_mktmpdir {{prefix "oacs"}} { - + Wrapper for Tcl's "file tempdir ...", but respects the server's tmpdir settings. - + @param prefix optional parameter, for easier identification of the directory @return name of the created directory @@ -3732,16 +3732,16 @@ # Tcl 8.6 or earlier # ad_proc ad_mktmpdir {{prefix "oacs"}} { - + Wrapper for Tcl's "file tempdir ...", but respects the server's tmpdir settings. @param prefix optional parameter, for easier identification of the directory - @return name of the created directory - + @return name of the created directory + } { - package require fileutil + package require fileutil ::fileutil::maketempdir -prefix ${prefix}_ -dir [ns_config ns/parameters tmpdir] } }