perl: Add %guestfs_introspection hash with introspection information.
[libguestfs.git] / recipes / user-quota.sh
1 #!/bin/sh -
2
3 vmfile="$1"
4 dir=/home
5
6 eval $(guestfish --ro -a "$vmfile" -i --listen)
7
8 for d in $(guestfish --remote ls "$dir"); do
9     echo -n "$dir/$d"
10     echo -ne '\t'
11     guestfish --remote du "$dir/$d";
12 done | sort -nr -k 2
13 guestfish --remote exit