return $self;
}
-sub user_set {
- my ( $self,$data ) = @_;
-}
-
-sub user_get {
- my ( $self,$data ) = @_;
-}
-
sub mkbasedir {
my $dir = shift;
$dir =~ s{/[^/]+$}{}; # strip filename
sub modify_file {
my ( $self,$data ) = @_;
+=for removed
+
if ( $data->{file} =~ m{^(.*/)?.sync/send/([^/]+)$} ) {
my $from_dir = $1;
warn "SEND $2 from $from_dir\n";
return 0; # skip dedup
}
+=cut
+
+ if ( $data->{file} =~ m{^(.*/)?.sync/} ) {
+ # ignore .sync/ files from client
+ return 0;
+ }
+
#return $file->{size} > 4096 ? 1 : 0; # FIXME
return 1; # dedup
}