drop backup-getfiles, using .rsync-filter now

diff --git a/backup-getfiles b/backup-getfiles
deleted file mode 100755 (executable)
index f0c418d..0000000
--- a/backup-getfiles
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/perl
-
-# (c) 2002 Martin Pitt (martin@piware.de)
-# This software is protected by the terms and conditions of the GNU
-# General Public License (see http://www.gnu.org/copyleft/gpl.html for
-# details).
-
-use Getopt::Std;
-
-# filelist( $d )
-# generate a recursive list of files in $d; honors per-directory
-# configuration files .pibackuprc
-sub filelist {
-    my $d = shift;
-    $d .= '/' if ( substr( $d, -1 ) ne '/' );
-
-    # look for exclude file
-    my @excl;
-    if( -r $d.'.pibackuprc' ) {
-       open( EXCL, $d.'.pibackuprc' ) or die "Error: could not open $d.pibackuprc";
-       while( <EXCL> ) {
-           chomp;
-           push @excl, glob $d.$_;
-       }
-       close EXCL;
-    }
-
-    # open and traverse dir
-    local *DIR;
-    opendir( DIR, $d ) or print STDERR "Could not open directory $d\n" && return; 
-
-FILE:
-    while( defined( $f = readdir DIR ) ) {
-       next if $f eq '.' || $f eq '..';
-
-       foreach ( @excl ) { next FILE if $d.$f eq $_; }
-
-       if( !( -l $d.$f ) && -d _ ) {
-           filelist( $d.$f );
-       } else {
-           if( !$newer || ( ( lstat _ )[9] >= $newer ) ) {
-               print "$d$f$term";
-           }
-       }
-    }
-    closedir DIR;
-}
-
-getopts( '0n:' );
-
-if( $opt_n ) {
-    $newer = ( lstat $opt_n )[9];  # mtime
-}
-
-$term = $opt_0 ? "\0" : "\n";
-
-$dir = $ARGV[0] || $ENV{'HOME'} || '/';
-foreach (glob $dir) {
-    if (-d $_) {
-        filelist $_;
-    } else {
-        print "$_$term";
-    }
-}