annex-cmd

   1 #!/usr/bin/env bash
   2
   3 #==============================================================================
   4 # annex-cmd
   5 # File ID: f1ca60b4-d33a-11e2-a3c0-0800274013ad
   6 #
   7 # Execute command in all local git-annex repositories
   8 #
   9 # Author: Øyvind A. Holm <sunny@sunbase.org>
  10 # License: GNU General Public License version 2 or later.
  11 #==============================================================================
  12
  13 progname=annex-cmd
  14 VERSION=0.4.0
  15
  16 if test "$1" = "--version"; then
  17         echo $progname $VERSION
  18         exit 0
  19 fi
  20
  21 if test "$1" = "-h" -o "$1" = "--help"; then
  22         cat <<END
  23
  24 Execute command in all local git-annex repositories
  25
  26 Usage: $progname [options]
  27
  28 Options:
  29
  30   --annex
  31     Execute git-update-dirs in the **/annex directories instead of the
  32     actual annexes.
  33   --count-loose
  34     Display the number of loose objects in annex repositories in sorted
  35     order.
  36   -D X
  37     Only run git-update-dirs in annex repositories named X.
  38   --find-extra
  39     List files in all annexes that have more copies than necessary.
  40     Lists locations too, to get only the file names with number of
  41     copies, filter through "grep ^whereis".
  42   --gadu
  43     Execute ./lag_gadu-local * in all top annex/ directories. Uses
  44     gadu(1).
  45   --get
  46     Loop through all local annexes under /media/*/annex/, sorted by
  47     descending free space, and run "make getnew" there, i.e. ga-getnew
  48     on all directories with new changes, i.e. "ga get --auto", i.e. "git
  49     annex get --auto". 😉
  50   -h, --help
  51     Show this help.
  52   --version
  53     Print version information.
  54
  55 END
  56         exit 0
  57 fi
  58
  59 annex_free() {
  60         dir="$1"
  61         (
  62                 cd "$dir" || {
  63                         echo $progname: $dir: chdir error >&2
  64                         return 1
  65                 }
  66                 ga info --fast --bytes | grep "^available local disk space:" |
  67                     awk '{print($5)}'
  68         )
  69 }
  70
  71 if [ "$1" = "--gadu" ]; then
  72         git update-dirs ~/annex /media/*/annex \
  73             -e "ga sync" \
  74             -e "sess ./lag_gadu-local *" \
  75             -e "git add .gadu-local" \
  76             -e "git ci -av" \
  77             -e "ga sync"
  78         exit
  79 fi
  80
  81 wildc='*'
  82 if [ "$1" = "--annex" ]; then
  83         unset wildc
  84         shift
  85 fi
  86 if [ "$1" = "-D" ]; then
  87         test -z "$2" && {
  88                 echo annex-cmd: Missing argument for -D >&2
  89                 exit 1
  90         }
  91         wildc="$2"
  92         shift 2
  93 fi
  94
  95 if [ "$1" = "--get" ]; then
  96         shift
  97         for f in /media/*/annex; do
  98                 test -d "$f" || continue
  99                 free_space="$(annex_free "$f")"
 100                 test -z "$free_space" && {
 101                         echo $progname: $f: No annex information found >&2
 102                         continue
 103                 }
 104                 test $free_space -le 4096 && {
 105                         echo -n "$progname: $f: Skipping annex, " >&2
 106                         echo only $free_space bytes free >&2
 107                         continue
 108                 }
 109                 echo $free_space $f
 110         done | sort -rn | cut -f 2- -d ' ' | while read d; do
 111                 (
 112                         echo >&2
 113                         echo $progname: Get files to $d >&2
 114                         cd "$d" && make getnew || exit 1
 115                 )
 116         done
 117         exit
 118 fi
 119
 120 if [ "$1" = "--count-loose" ]; then
 121         git update-dirs /media/*/annex/$wildc $HOME/annex/$wildc \
 122             -qq \
 123             -E 'pwd >&2' \
 124             -e 'echo $(
 125                     find .git/objects -type f | grep -v -e pack -e info | wc -l
 126                 ) $(pwd)' \
 127             | sort -n
 128         exit
 129 fi
 130
 131 if [ "$1" = "--find-extra" ]; then
 132         git update-dirs ~/annex/$wildc \
 133             -q \
 134             -E 'pwd >&2' \
 135             -e 'git update-dirs -Fg . >/dev/null' \
 136             -e 'ga whereis --copies=semitrusted+:$(
 137                     echo $(ga numcopies) + 1 | bc
 138                 )'
 139         exit
 140 fi
 141
 142 git update-dirs /media/*/annex/$wildc $HOME/annex/$wildc "$@"
 143
 144 # vim: set ts=8 sw=8 sts=8 noet fo+=w tw=79 fenc=UTF-8 :