| Index: lib/Brackup/Root.pm |
| =================================================================== |
| --- lib/Brackup/Root.pm (revision 194) |
| +++ lib/Brackup/Root.pm (working copy) |
| @@ -21,6 +21,7 @@ |
| $self->{gpg_rcpt} = $conf->value('gpg_recipient'); |
| $self->{chunk_size} = $conf->byte_value('chunk_size'); |
| $self->{ignore} = []; |
| + $self->{accept} = []; |
| $self->{smart_mp3_chunking} = $conf->bool_value('smart_mp3_chunking'); |
| @@ -84,6 +85,11 @@ |
| push @{ $self->{ignore} }, $pattern; |
| } |
| +sub accept { |
| + my ($self, $pattern) = @_; |
| + push @{ $self->{accept} }, $pattern; |
| +} |
| + |
| sub path { |
| return $_[0]{dir}; |
| } |
| @@ -131,6 +137,26 @@ |
| next DENTRY if $is_dir && "$path/" =~ /$pattern/; |
| } |
| + |
| + if( @{ $self->{accept} } ) { |
| + |
| + foreach my $pattern (@{ $self->{accept} }) { |
| + if( $path =~ /$pattern/ ) { |
| + $statcache{$path} = $statobj; |
| + push @good_dentries, $dentry; |
| + next DENTRY; |
| + } |
| + |
| + if( $is_dir && "$path/" =~ /$pattern/ ) { |
| + $statcache{$path} = $statobj; |
| + push @good_dentries, $dentry; |
| + next DENTRY; |
| + } |
| + } |
| + |
| + next DENTRY; |
| + } |
| + |
| $statcache{$path} = $statobj; |
| push @good_dentries, $dentry; |
| } |
