[25513] branches/dp2mp-move/base/portmgr/autosubmit.tcl
source_changes at macosforge.org
source_changes at macosforge.org
Wed May 23 13:42:10 PDT 2007
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
More information about the macports-changes
mailing list