4 flags="$(ls /tmp/stargrave-flags | perl -e 'print join " ", sort map { chomp and $_ } <>')"
5 topinfo=$(top -b -d 1 0 | sed s/[,:]//g)
6 meminfo=$(echo "$topinfo" | grep "^Mem")
7 arcinfo=$(echo "$topinfo" | grep "^ARC")
8 swpinfo=$(echo "$topinfo" | perl -ne 'print $1 if /^Swap \w+ Total (\w+) Used/')
9 xsetroot -name "$swpinfo $meminfo $arcinfo [$flags] $(date "+%Y-%m-%dT%H:%M:%S")"