[24685] trunk/base/src/port1.0/portsubmit.tcl

[source_changes at macosforge.org]

Revision: 24685
          http://trac.macosforge.org/projects/macports/changeset/24685
Author:   jberry at macports.org
Date:     2007-04-29 21:06:10 -0700 (Sun, 29 Apr 2007)

Log Message:
-----------
Make port submit a bit more robust

Modified Paths:
--------------
    trunk/base/src/port1.0/portsubmit.tcl

Modified: trunk/base/src/port1.0/portsubmit.tcl
===================================================================
--- trunk/base/src/port1.0/portsubmit.tcl	2007-04-30 03:58:21 UTC (rev 24684)
+++ trunk/base/src/port1.0/portsubmit.tcl	2007-04-30 04:06:10 UTC (rev 24685)
@@ -203,8 +203,9 @@
 	set fd [open ${workpath}/.portsubmit.out r]
 	array set result [list]
 	while {[gets $fd line] != -1} {
-		regexp -- {^([^:]+):\s*(.*)$} $line unused key value
-		set result($key) $value
+		if {0 != [regexp -- {^([^:]+):\s*(.*)$} $line unused key value]} {
+			set result($key) $value
+		}
 	}
 	close $fd
 	
@@ -215,9 +216,11 @@
 	if {[info exists result(STATUS)]} {
 		if { $result(STATUS) == 0 } {
 			if {[info exists result(URL)]} {
-				ui_msg "Submitted $portname port is available at\n ==> $result(URL)"
+				ui_msg "Submitted $portname portpkg is available for download at: $result(URL)"
 			}
-			
+			if {[info exists result(PORTPKGURL)]} {
+				ui_msg "The human readable portpkg page is at: $result(PORTPKGURL)"
+			}
 		} else {
 			return -code error [format [msgcat::mc "Status %d reported during submit of port %s"] $result(STATUS) $portname]
 		}

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