[25431] branches/dp2mp-move/base/src/macports1.0/macports.tcl

[source_changes at macosforge.org]

Revision: 25431
          http://trac.macosforge.org/projects/macports/changeset/25431
Author:   jmpp at macports.org
Date:     2007-05-21 22:14:17 -0700 (Mon, 21 May 2007)

Log Message:
-----------
Merging jberry's r25098: If we need to create ~/.macports, create it as 600, with ownership of the enclosing directory.

Modified Paths:
--------------
    branches/dp2mp-move/base/src/macports1.0/macports.tcl

Modified: branches/dp2mp-move/base/src/macports1.0/macports.tcl
===================================================================
--- branches/dp2mp-move/base/src/macports1.0/macports.tcl	2007-05-22 05:10:38 UTC (rev 25430)
+++ branches/dp2mp-move/base/src/macports1.0/macports.tcl	2007-05-22 05:14:17 UTC (rev 25431)
@@ -236,6 +236,7 @@
 	}
 }
 
+
 proc mportinit {{up_ui_options {}} {up_options {}} {up_variations {}}} {
 	if {$up_ui_options eq ""} {
 		array set ui_options {}
@@ -281,7 +282,12 @@
 
         # Ensure that the macports user directory exists
         set macports::macports_user_dir [file normalize $macports::autoconf::macports_user_dir]
-        file mkdir $macports_user_dir
+        if { ![file exists $macports_user_dir] } {
+	    # If not, create it with ownership of the enclosing directory, rw by the user only
+	    file mkdir $macports_user_dir
+	    file attributes $macports_user_dir -permissions u=rw,go=
+	    file attributes $macports_user_dir -owner [file attributes "$macports_user_dir/.." -owner]
+	}
    	
    	# Configure the search path for configuration files
    	set conf_files ""

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070521/8199f1d0/attachment.html