[24691] trunk/base/portmgr/autosubmit.tcl

[source_changes at macosforge.org]

Revision: 24691
          http://trac.macosforge.org/projects/macports/changeset/24691
Author:   jberry at macports.org
Date:     2007-04-29 23:37:30 -0700 (Sun, 29 Apr 2007)

Log Message:
-----------
minor tweaks to autosubmit

Modified Paths:
--------------
    trunk/base/portmgr/autosubmit.tcl

Modified: trunk/base/portmgr/autosubmit.tcl
===================================================================
--- trunk/base/portmgr/autosubmit.tcl	2007-04-30 06:32:26 UTC (rev 24690)
+++ trunk/base/portmgr/autosubmit.tcl	2007-04-30 06:37:30 UTC (rev 24691)
@@ -6,6 +6,12 @@
 # Uses the database.
 # $Id: portmirror.tcl 24631 2007-04-29 05:35:59Z jmpp at macports.org $
 
+# TODO:
+#	- autoconfigurize the tcl path
+#	- don't use a hard-coded db location
+#	- search path is hardcoded at the moment
+
+
 catch {source \
 	[file join "@TCL_PACKAGE_DIR@" darwinports1.0 darwinports_fastload.tcl]}
 package require darwinports
@@ -54,7 +60,7 @@
 		}
 		
 		set porturl $portinfo(porturl)
-		if { 0 && 0 != [regexp {file://(.*)} $porturl match path] } {
+		if { 0 != [regexp {file://(.*)} $porturl match path] } {
 			set portdir [file normalize $path]
 		} else {
 			set portdir [file normalize [darwinports::getportdir $porturl]]
@@ -85,7 +91,7 @@
 		
 				dportclose $workername
 		
-				
+				# Update the date in the database for this item
 				db eval { insert or replace into submitinfo (porturl,lastsubmit) values ($porturl, $moddate) }
 			}
 		}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070429/76eca815/attachment.html