Index: openacs-4/packages/acs-content-repository/tcl/content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-content-repository/tcl/content-procs.tcl 10 Jan 2007 21:22:03 -0000 1.11
+++ openacs-4/packages/acs-content-repository/tcl/content-procs.tcl 31 May 2013 20:27:17 -0000 1.12
@@ -34,7 +34,7 @@
if {$i < $item_id_length} {
# Check that the directory exists
if {![file exists [cr_fs_path]$path]} {
- ns_mkdir [cr_fs_path]$path
+ file mkdir [cr_fs_path]$path
}
append path "/"
@@ -44,7 +44,7 @@
# Check that the directory exists
if {![file exists [cr_fs_path]$path]} {
- ns_mkdir [cr_fs_path]$path
+ file mkdir [cr_fs_path]$path
}
if {[string index $path end] ne "/" } {
Index: openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt 12 Apr 2013 16:12:56 -0000 1.4
+++ openacs-4/packages/acs-core-docs/www/files/acs-pgbackup-init.txt 31 May 2013 20:27:17 -0000 1.5
@@ -22,7 +22,7 @@
# make the backup directory
if ![file exists $bak] {
- if [catch {ns_mkdir $bak} errmsg] {
+ if [catch {file mkdir $bak} errmsg] {
ns_log Error "mkdir failed: $errmsg"
ns_sendmail [ad_system_owner] [ad_system_owner] "[ad_system_name] : mkdir failed..." "$errmsg"
return
Index: openacs-4/packages/contacts/tcl/oo-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/oo-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/tcl/oo-procs.tcl 14 Dec 2006 09:11:28 -0000 1.9
+++ openacs-4/packages/contacts/tcl/oo-procs.tcl 31 May 2013 20:27:17 -0000 1.10
@@ -283,7 +283,7 @@
} {
# Create a temporary directory
set dir [ns_tmpnam]
- ns_mkdir $dir
+ file mkdir $dir
array set content_array $contents
foreach filename [array names content_array] {
Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl 7 Feb 2010 22:34:56 -0000 1.20
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl 31 May 2013 20:27:17 -0000 1.21
@@ -988,7 +988,7 @@
foreach directory $dir_list {
set next_dir_step [file join $dir_step $directory]
if { ![file exists $next_dir_step]} {
- ns_mkdir $next_dir_step
+ file mkdir $next_dir_step
}
set dir_step $next_dir_step
}
Index: openacs-4/packages/invoices/www/invoice-join.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-join.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/invoice-join.tcl 24 May 2006 09:40:38 -0000 1.2
+++ openacs-4/packages/invoices/www/invoice-join.tcl 31 May 2013 20:27:17 -0000 1.3
@@ -26,7 +26,7 @@
db_1row last_checkout {}
set tmpdir [ns_tmpnam]
- ns_mkdir $tmpdir
+ file mkdir $tmpdir
set files {}
db_foreach pdfs_to_join {} {
ns_cp "${root_dir}$content" "${tmpdir}/[file tail $content].pdf"
Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 10 Feb 2009 02:20:33 -0000 1.21
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl 31 May 2013 20:27:17 -0000 1.22
@@ -860,7 +860,7 @@
} {
set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
- if [catch { ns_mkdir $tmp_dir } errMsg ] {
+ if [catch { file mkdir $tmp_dir } errMsg ] {
ns_log Notice "LORS::imscp::expand_file: Error creating directory $tmp_dir: $errMsg"
return -code error "LORS::imscp::expand_file: Error creating directory $tmp_dir: $errMsg"
}
Index: openacs-4/packages/package-builder/www/package-code-generate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/package-builder/www/package-code-generate.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/package-builder/www/package-code-generate.tcl 8 Feb 2005 11:48:13 -0000 1.1
+++ openacs-4/packages/package-builder/www/package-code-generate.tcl 31 May 2013 20:27:17 -0000 1.2
@@ -21,12 +21,12 @@
set types [db_list types {}]
# ns_rmdir $pkg(path)
-ns_mkdir $pkg(path)
-ns_mkdir "$pkg(path)/tcl"
-ns_mkdir "$pkg(path)/www"
-ns_mkdir "$pkg(path)/catalog"
-ns_mkdir "$pkg(path)/sql"
-ns_mkdir "$pkg(path)/sql/postgresql"
+file mkdir $pkg(path)
+file mkdir "$pkg(path)/tcl"
+file mkdir "$pkg(path)/www"
+file mkdir "$pkg(path)/catalog"
+file mkdir "$pkg(path)/sql"
+file mkdir "$pkg(path)/sql/postgresql"
pb::create::info::create -pkg_data $pkg_data
pb::create::db::create -pkg_data $pkg_data
Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl 8 Aug 2006 21:27:08 -0000 1.17
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl 31 May 2013 20:27:17 -0000 1.18
@@ -238,8 +238,8 @@
}
append needed_dir "/$dir"
if ![file exists $needed_dir] {
- ns_log Debug "pa_assert_dir: ns_mkdir $dir"
- ns_mkdir $needed_dir
+ ns_log Debug "pa_assert_dir: file mkdir $dir"
+ file mkdir $needed_dir
}
}
}
@@ -625,7 +625,7 @@
of the function
} {
set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
- if [catch { ns_mkdir $tmp_dir } errMsg ] {
+ if [catch { file mkdir $tmp_dir } errMsg ] {
ns_log Warning "pa_expand_archive: Error creating directory $tmp_dir: $errMsg"
return -code error "pa_expand_archive: Error creating directory $tmp_dir: $errMsg"
}
@@ -804,7 +804,7 @@
set tmp_path [parameter::get -parameter FullTempPhotoDir -package_id $package_id]
if { ![file exists $tmp_path] } {
ns_log Debug "pa_load_images: Making: tmp_photo_album_dir_path $tmp_path"
- ns_mkdir $tmp_path
+ file mkdir $tmp_path
}
# Fix upload name if missing
Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 30 Oct 2010 21:43:01 -0000 1.19
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 31 May 2013 20:27:17 -0000 1.20
@@ -87,7 +87,7 @@
foreach dir [split $path /] {
append running_path ${dir}/
if ![file exists $running_path] {
- ns_mkdir $running_path
+ file mkdir $running_path
}
}
}
Index: openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl 23 May 2010 20:27:51 -0000 1.2
+++ openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl 31 May 2013 20:27:17 -0000 1.3
@@ -23,7 +23,7 @@
} {
set tmp_dir [file join [file dirname $tmpfile] [ns_mktemp "$dest_dir_base-XXXXXX"]]
- if [catch { ns_mkdir $tmp_dir } errMsg ] {
+ if [catch { file mkdir $tmp_dir } errMsg ] {
ns_log Notice "util::archive::expand_file: Error creating directory $tmp_dir: $errMsg"
return -code error "util::archive::expand_file: Error creating directory $tmp_dir: $errMsg"
}