[55700] branches/gsoc09-logging/base/src/macports1.0/macports.tcl

[enl at macports.org]

Revision: 55700
          http://trac.macports.org/changeset/55700
Author:   enl at macports.org
Date:     2009-08-17 01:29:14 -0700 (Mon, 17 Aug 2009)
Log Message:
-----------
Code cleanups

Modified Paths:
--------------
    branches/gsoc09-logging/base/src/macports1.0/macports.tcl

Modified: branches/gsoc09-logging/base/src/macports1.0/macports.tcl
===================================================================
--- branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-08-17 08:16:11 UTC (rev 55699)
+++ branches/gsoc09-logging/base/src/macports1.0/macports.tcl	2009-08-17 08:29:14 UTC (rev 55700)
@@ -109,13 +109,12 @@
 }
 
 proc macports::init_logging {portname} {
-    global ::debuglog ::debuglogname macports::channels macports::prefix
-    set logname $macports::prefix
-    
-    append logname "/var/macports/logs/$portname"
-    file mkdir $logname
+    global ::debuglog ::debuglogname macports::channels macports::portdbpath
 
-    append logname "/main.log"
+    set logname [file join $macports::portdbpath "logs/$portname"]
+    file mkdir $logname
+    set logname [file join $logname "main.log"]
+    ui_msg $logname
     set ::debuglogname $logname
 
     # Recreate the file if already exists
@@ -130,22 +129,19 @@
     }
 }
 proc macports::ch_logging {portname} {
-    global ::debuglog ::debuglogname macports::channels macports::prefix
-    set logname $macports::prefix
-    
-    append logname "/var/macports/logs/$portname"
+    global ::debuglog ::debuglogname macports::channels macports::portdbpath
+
+    set logname [file join $macports::portdbpath "logs/$portname"]
     file mkdir $logname
+    set logname [file join $logname "main.log"]
 
-    append logname "/main.log"
     set ::debuglogname $logname
-
+ 
     # Recreate the file if already exists
     if {[file exists $::debuglogname]} {
         file delete -force $::debuglogname
     }
-    ui_msg $::debuglogname
     set ::debuglog [open $::debuglogname w]
-    ui_msg $::debuglog
     puts $::debuglog "version:1"
 } 
 
@@ -1465,7 +1461,7 @@
     global ::debuglog
     set previouslog $::debuglog
     set portname [_mportkey $mport name]
-    ui_msg "Changing LOG FILE to $portname"
+    ui_debug "Starting logging for $portname"
     macports::ch_logging $portname
     # xxx: set the work path?
     set workername [ditem_key $mport workername]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090817/db9da1a3/attachment.html>