[53265] trunk/base/src/macports1.0/macports.tcl

[blb at macports.org]

Revision: 53265
          http://trac.macports.org/changeset/53265
Author:   blb at macports.org
Date:     2009-07-01 21:19:35 -0700 (Wed, 01 Jul 2009)
Log Message:
-----------
macports1.0/macports.tcl - warn when PortIndex (and hence, port definitions
in general) are getting out of date

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-07-02 03:52:59 UTC (rev 53264)
+++ trunk/base/src/macports1.0/macports.tcl	2009-07-02 04:19:35 UTC (rev 53265)
@@ -776,6 +776,14 @@
 
     # load the quick index
     _mports_load_quickindex
+
+    set default_source_url [lindex ${sources_default} 0]
+    if {[macports::getprotocol $default_source_url] == "file"} {
+        set default_portindex [macports::getindex $default_source_url]
+        if {[file exists $default_portindex] && [expr [clock seconds] - [file mtime $default_portindex]] > 1209600} {
+            ui_warn "port definitions are more than two weeks old, consider using selfupdate"
+        }
+    }
 }
 
 proc macports::worker_init {workername portpath porturl portbuildpath options variations} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090701/3158386d/attachment-0001.html>