[25513] branches/dp2mp-move/base/portmgr/autosubmit.tcl

[source_changes at macosforge.org]

Revision: 25513
          http://trac.macosforge.org/projects/macports/changeset/25513
Author:   jmpp at macports.org
Date:     2007-05-23 13:42:10 -0700 (Wed, 23 May 2007)

Log Message:
-----------
Upgrade the autosubmit script to work with sources in this branch.

Modified Paths:
--------------
    branches/dp2mp-move/base/portmgr/autosubmit.tcl

Modified: branches/dp2mp-move/base/portmgr/autosubmit.tcl
===================================================================
--- branches/dp2mp-move/base/portmgr/autosubmit.tcl	2007-05-23 19:31:55 UTC (rev 25512)
+++ branches/dp2mp-move/base/portmgr/autosubmit.tcl	2007-05-23 20:42:10 UTC (rev 25513)
@@ -1,6 +1,6 @@
-#!/usr/bin/env tclsh
+d#!/usr/bin/env tclsh
 
-package require darwinports
+package require macports
 package require sqlite3
 
 proc open_db { db_file } {
@@ -34,7 +34,7 @@
 proc submit_ports {} {
 	global prefix submit_options verbose
 
-	if {[catch {set res [dportsearch "^.*\$"]} result]} {
+	if {[catch {set res [mportsearch "^.*\$"]} result]} {
 		puts "port search failed: $result"
 		exit 1
 	}
@@ -52,7 +52,7 @@
 		if { 0 != [regexp {file://(.*)} $porturl match path] } {
 			set portdir [file normalize $path]
 		} else {
-			set portdir [file normalize [darwinports::getportdir $porturl]]
+			set portdir [file normalize [macports::getportdir $porturl]]
 		}
 		set portfile "${portdir}/Portfile"
 		if { $verbose } { puts "checking ${name}" }
@@ -80,7 +80,7 @@
 	
 					# Open the port
 					set err 0
-					if {[catch {set workername [dportopen $porturl [array get submit_options]]} result]} {
+					if {[catch {set workername [mportopen $porturl [array get submit_options]]} result]} {
 						global errorInfo
 						ui_debug "$errorInfo"
 						puts "Unable to open port: $result"
@@ -88,7 +88,7 @@
 					}
 	
 					# Submit the port
-					if { !$err && [catch {set result [dportexec $workername submit]} result]} {
+					if { !$err && [catch {set result [mportexec $workername submit]} result]} {
 						global errorInfo
 						ui_debug "$errorInfo"
 						puts "Unable to execute port: $result"
@@ -96,7 +96,7 @@
 					}
 			
 					# Close the port
-					dportclose $workername
+					mportclose $workername
 					
 					# Update the date in the database for this item
 					if { !$err && !$result } {
@@ -138,11 +138,11 @@
 	set verbose 1
 }
 
-# Initialize dports api
-dportinit
+# Initialize mports api
+mportinit
 
 # Submit ports
-set db_file [file normalize "${darwinports::macports_user_dir}/autosubmit.db"]
+set db_file [file normalize "${macports::macports_user_dir}/autosubmit.db"]
 if { $verbose } { puts "Using database at $db_file" }
 open_db $db_file
 submit_ports

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070523/88b64279/attachment.html