hcoop-git-maint: Fix URL.

[hcoop/scripts.git] / hcoop-backup

diff --git a/hcoop-backup b/hcoop-backup
index 2dd4332..0d1d520 100755 (executable)
--- a/hcoop-backup
+++ b/hcoop-backup
@@ -15,19 +15,41 @@ PATH=$PATH:/bin:/usr/bin:/sbin:/usr/sbin
 #COMPRESS_PROG=bzip2
 COMPRESS_EXT=.gz
 COMPRESS_PROG=gzip
+# units for BWLIMIT are KB/s
+BWLIMIT=325
 
 IFS=$'\n'
 
 KEYFILE=/etc/backup-encryption-key
-BACKUPDIR=/afs/megacz.com/private/hcoop-backup/
+BACKUPDIR=/afs/megacz.com/private/hcoop-backup
+BACKUPTMP=/var/backups/hcoop-backup
+SUBDIR=`date +%Y.%m.%d`
 
-cd $BACKUPDIR
-find * -prune -ctime +2 -exec rm -rf {} \; || true
+#SYNC_CMD="rsync --bwlimit=$BWLIMIT --remove-source-files"
 
-SUBDIR=`date +%Y.%m.%d`
+function copy_over () {
+    # Move file to its offsite destination
+    # $1: file, $2: relative directory (optional)
+    if test -z "$1" || test -n "$3"; then
+        echo "Bad programming"
+        exit 1
+    fi
+    local FILE=$1
+    local DEST=$BACKUPDIR/$SUBDIR
+    if test -n "$2"; then
+        DEST=$DEST/$2
+    fi
+    < $FILE catsync -b $BWLIMIT $DEST/$FILE
+    rm -f $FILE
+}
+
+cd $BACKUPDIR
+find . -mindepth 1 -maxdepth 1 -type d -ctime +7 \
+    -execdir rm -fr '{}' \; || true
 rm -rf $SUBDIR
 mkdir -p $SUBDIR
-cd $SUBDIR
+mkdir -p $BACKUPTMP
+cd $BACKUPTMP
 
 groups
 echo 'I am in:'
@@ -38,7 +60,8 @@ echo building package lists...
 dpkg-query -W -f='${Package}\n' > packages
 (cd /; find / /usr/ /usr/local/ /var/ -xdev)   | sort | uniq > allfiles
 dpkg-query -W -f='${Package}\n'      | xargs dpkg -L | sort | uniq > debfiles
-dpkg-query -W -f='${Conffiles}\n'           | grep / | cut -b2- | sed 's_ .*__' | sort | uniq > conffiles
+dpkg-query -W -f='${Conffiles}\n'           | grep / | cut -b2- | \
+  sed 's_ .*__' | sort | uniq > conffiles
 
 diff allfiles debfiles | grep '^<' | cut -b 3- | \
  grep -v ^/var/cache | \
@@ -69,8 +92,9 @@ diff allfiles debfiles | grep '^<' | cut -b 3- | \
  grep -v '^/usr/share/info/dir\.old$' | \
  grep -v '^/usr/share/emacs21/site-lisp/' | \
  grep -v '^/usr/share/emacs22/site-lisp/' | \
- grep -v '^/usr/share/vim/addons/doc/tags$' | \
- cat > backupfiles
+ grep -v '^/usr/share/snmp/mibs/\.index$' | \
+ grep -v '^/usr/share/vim/addons/doc/tags$' \
+ > backupfiles
 
 cat conffiles >> backupfiles
 
@@ -81,6 +105,7 @@ cat backupfiles | \
  grep -v ^/var/log | \
  grep -v ^/usr/lib/python2.4/ | \
  grep -v ^/var/lib/python-support | \
+ grep -v ^/usr/share/jed/lib | \
  grep -v ^/usr/share/man | \
  grep -v ^/usr/share/perl5/IkiWiki/Plugin | \
  grep -v ^/media | \
@@ -98,14 +123,13 @@ cat backupfiles | \
  grep -v ^/var/lib/mysql/ | \
  grep -v ^/var/lib/postgres/ | \
  grep -v ^/var/lib/postgresql/ | \
- xargs -I{} -d\\n -- bash -c "test -L '{}' || echo '{}'" | \
- cat > complain
+ xargs -I{} -d\\n -- bash -c "test -L '{}' || echo '{}'" > complain
 
+F=hcoop.backup.tar$COMPRESS_EXT.aescrypt
 tar clpf - --ignore-failed-read --no-recursion -C / -T backupfiles | \
   $COMPRESS_PROG | \
-  ccrypt -k $KEYFILE -e | \
-  catsync hcoop.backup.tar$COMPRESS_EXT.aescrypt
-
+  ccrypt -k $KEYFILE -e > $F
+copy_over $F
 
 # Acquire lock before messing with spamd
 COUNT=0
@@ -123,15 +147,15 @@ while test -f $LOCK; do
 done
 touch $LOCK
 
+F=common.spamd.tar$COMPRESS_EXT.aescrypt
 tar clpf - --ignore-failed-read -C / /var/local/lib/spamd | \
   $COMPRESS_PROG | \
-  ccrypt -k $KEYFILE -e | \
-  catsync ../common.spamd.tar$COMPRESS_EXT.aescrypt.new
+  ccrypt -k $KEYFILE -e > $F.new
 rm -f $LOCK
+copy_over $F.new ..
 
-test -s ../common.spamd.tar$COMPRESS_EXT.aescrypt.new && \
-    mv ../common.spamd.tar$COMPRESS_EXT.aescrypt.new \
-       ../common.spamd.tar$COMPRESS_EXT.aescrypt
+test -s $BACKUPDIR/$F.new && \
+    mv $BACKUPDIR/$F.new $BACKUPDIR/$F
 
 vos listvol deleuze | \
   tail -n +2 | \
@@ -141,23 +165,28 @@ vos listvol deleuze | \
   grep -v "\.readonly .*$" | \
   sed 's_^ .*__' | \
   sed 's_ .*$__' | \
-  grep '[A-Za-z]' | \
-  cat > volumes
+  grep '[A-Za-z]' \
+  > volumes
 
 cat volumes | \
   grep -v not-backed-up | \
   xargs -I{} -d\\n -- \
   bash -c \
-    "vos dump -id {} -localauth -clone | $COMPRESS_PROG | ccrypt -k $KEYFILE -e | catsync {}.dump$COMPRESS_EXT.aescrypt"
+    "F={}.dump$COMPRESS_EXT.aescrypt ;
+     vos dump -id {} -localauth -clone |
+       $COMPRESS_PROG | ccrypt -k $KEYFILE -e > \$F ;
+     < \$F catsync -b $BWLIMIT $BACKUPDIR/$SUBDIR/\$F ;
+     rm -f \$F"
 
 echo backing up databases
+F=databases.tar$COMPRESS_EXT.aescrypt
 tar -C /var/backups/databases/ -cf - . | \
   $COMPRESS_PROG | \
-  ccrypt -k $KEYFILE -e \
-  | catsync databases.tar$COMPRESS_EXT.aescrypt
+  ccrypt -k $KEYFILE -e > $F
+copy_over $F
 
 grep '[a-z/]' complain && \
-  mail -a 'From: Adam Megacz <megacz@hcoop.net>' \
+  mail -a 'From: The Backup Program <backups@deleuze.hcoop.net>' \
        -s "automated message: annoying files found on deleuze (please do something about them)" admins@hcoop.net \
        < complain \
   || true