<pre style='margin:0'>
Umesh Singla (umeshksingla) pushed a commit to branch gsoc17-migrate
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/28ff669e648bbc824268ba38509ddab8a8fc5d5e">https://github.com/macports/macports-base/commit/28ff669e648bbc824268ba38509ddab8a8fc5d5e</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 28ff669e648bbc824268ba38509ddab8a8fc5d5e
</span>Author: Clemens Lang <cal@macports.org>
AuthorDate: Sun Mar 11 19:15:35 2018 +0100

<span style='display:block; white-space:pre;color:#404040;'>    restore: Make snapshot list human-readable
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    When restoring from snapshots we should print something that is easy to
</span><span style='display:block; white-space:pre;color:#404040;'>    understand for humans, not ::registry::snapshot12.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Printing the snapshot ID is required for the --snapshot-id parameter of
</span><span style='display:block; white-space:pre;color:#404040;'>    restore, but putting it at the front of the line would potentially
</span><span style='display:block; white-space:pre;color:#404040;'>    confuse users since the selection code also prints numbers, so put it at
</span><span style='display:block; white-space:pre;color:#404040;'>    the end of the line.
</span>---
 src/macports1.0/restore.tcl | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/restore.tcl b/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 127f9d2..fdcdf13 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -67,9 +67,19 @@ namespace eval restore {
</span>         } elseif {[info exists options(ports_restore_last)]} {
             set snapshot [fetch_snapshot_last]
         } else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set list [list_snapshots]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set retstring [$macports::ui_options(questions_singlechoice) "Select any one snapshot to restore:" "" $list]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set snapshot [lindex $list $retstring]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set snapshots [list_snapshots]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set human_readable_snapshots {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            foreach snapshot $snapshots {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                lappend human_readable_snapshots "[$snapshot note], created at [$snapshot created_at] (ID: [$snapshot id])"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[llength $snapshots] == 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_error "There are no snapshots to restore. You must run 'sudo port snapshot' first."
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set retstring [$macports::ui_options(questions_singlechoice) "Select any one snapshot to restore:" "" $human_readable_snapshots]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set snapshot [lindex $snapshots $retstring]
</span> 
             ui_msg "Deactivating all ports installed.."
             deactivate_all
</pre><pre style='margin:0'>

</pre>