From: mwolson_admin <mwolson_admin@deleuze.hcoop.net>
Date: Thu, 15 Nov 2007 14:22:57 +0000 (-0500)
Subject: hcoop-backup: deal with perldoc.stub
X-Git-Url: https://git.hcoop.net/hcoop/scripts.git/commitdiff_plain/92a7af9747deeabe6c5eae4937fd2054a9f613a4

hcoop-backup: deal with perldoc.stub

 - Don't back up perldoc.stub
 - Match period in ,pyc and .elc files
 - Escape period in .modutils
---

diff --git a/hcoop-backup b/hcoop-backup
index 8965e13..dc67a9e 100755
--- a/hcoop-backup
+++ b/hcoop-backup
@@ -52,8 +52,9 @@ diff allfiles debfiles | grep '^<' | cut -b 3- | \
  grep -v '^/$' | \
  grep -v '^/usr/$' | \
  grep -v ^/usr/src | \
- grep -v '^/usr/.*pyc' | \
- grep -v '^/usr/.*elc' | \
+ grep -v '^/usr/.*\.pyc' | \
+ grep -v '^/usr/.*\.elc' | \
+ grep -v '^/usr/bin/perldoc\.stub$' | \
  grep -v '^/usr/lib/gconv/gconv-modules\.cache$' | \
  grep -v '^/usr/lib/graphviz/config$' | \
  grep -v '^/usr/lib/locale/locale-archive$' | \
@@ -78,7 +79,7 @@ cat backupfiles | \
  grep -v ^/media | \
  grep -v ^/vmlinuz | \
  grep -v ^/vmlinuz.old | \
- grep -v '^/sbin/[a-z\-]*.modutils$' | \
+ grep -v '^/sbin/[a-z\-]*\.modutils$' | \
  cat > annoyingfiles-
 
 for A in `cat annoyingfiles-`