List VirtualBox snapshots and disk usage in a tree

list-vbox-snapshots.sh

#!/bin/bash
vmname="$1"
[ "$vmname" == "" ] && { echo syntax $0 vmname >&2 ; exit 1 ; }
vmdir="$HOME/virtualbox/machines/$vmname"
sndir="$vmdir/Snapshots/"
vboxtmp="`tempfile -p vbox-$vmname --suffix='-list.txt'`"
vboxsed="`tempfile -p vbox-$vmname --suffix='-list.sed'`"
vboxmanage snapshot "$vmname" list > "$vboxtmp"
for uuid in `grep "UUID:" "$vboxtmp" | sed 's%^.*(UUID: \([0-9a-f-]*\)).*$%\1%'`
  do
    snapshot_files=`vboxmanage snapshot "$vmname" showvminfo $uuid | grep "/Snapshots/" | sed "s#^[^:]*: .*/Snapshots/"'\([^ ]*\) (UUID:.*$#\1#'`
    sn_uuid="`for sn in $snapshot_files ; do echo $sn ; done | sed 's#{\([^}]*\)}[.].*#\1#g' | sed ':a;N;$!ba;s/\n/ /g'`"
    if [ "$snapshot_files" != "" ]
      then
        uuid_size=`cd "$sndir" ; du -chs $snapshot_files | grep total | sed 's#[ \t]*total##'`
      else
        uuid_size="no files"
      fi
    # echo "s#UUID: $uuid#$snapshot_files#g"
    # echo "s#UUID: $uuid#$uuid_size#g"
    echo "s#UUID: $uuid#$uuid_size ($sn_uuid)#g"
  done > "$vboxsed"
cat "$vboxtmp" | sed -f "$vboxsed" | grep Name:
current_snapshot_files=`vboxmanage showvminfo "$vmname" | grep "$sndir" | sed "s#^.*$sndir"'\([^ ]*\).*$#\1#'`
for snapshot_file in $current_snapshot_files
  do
    uuid_size=`cd "$sndir" ; du -chs "$snapshot_file" | grep total | sed 's#[ \t]*total##'`
    echo "Current snapshot $snapshot_file $uuid_size"
  done
ls -hs "$sndir"/*.sav
rm "$vboxtmp" "$vboxsed"