[149365] trunk/base/src/macports1.0/reclaim.tcl

[raimue at macports.org]

Revision: 149365
          https://trac.macports.org/changeset/149365
Author:   raimue at macports.org
Date:     2016-06-15 07:28:18 -0700 (Wed, 15 Jun 2016)
Log Message:
-----------
reclaim: only ask user if running with privileges

Display a warning about reclaim if the current command was run without the
required privileges. For most users, the question will only appear when running
with 'sudo port ...'.

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

Modified: trunk/base/src/macports1.0/reclaim.tcl
===================================================================
--- trunk/base/src/macports1.0/reclaim.tcl	2016-06-15 10:39:14 UTC (rev 149364)
+++ trunk/base/src/macports1.0/reclaim.tcl	2016-06-15 14:28:18 UTC (rev 149365)
@@ -346,12 +346,16 @@
         }
         if {$time ne ""} {
             if {[clock seconds] - $time > 1209600} {
-                if {[info exists macports::ui_options(questions_yesno)]} {
-                    set retval [$macports::ui_options(questions_yesno)  "You haven't run 'port reclaim' in two weeks. It's recommended you run this every two weeks to reclaim disk space." "ReclaimPrompt" "" {y} 0 "Would you like to run it now?"]
+                set msg "You haven't run 'sudo port reclaim' in two weeks. It's recommended you run this regularly to reclaim disk space."
+
+                if {[file writable $macports::portdbpath] && [info exists macports::ui_options(questions_yesno)]} {
+                    set retval [$macports::ui_options(questions_yesno) $msg "ReclaimPrompt" "" {y} 0 "Would you like to run it now?"]
                     if {$retval == 0} {
                         # User said yes, run port reclaim
                         macports::reclaim_main
                     }
+                } else {
+                    ui_warn $msg
                 }
             }
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160615/75996ca3/attachment.html>