sub removed_file {
my ( $self, $data ) = @_;
- my $md5 = $self->md5_get( $data );
+=for removed
+ my $path = $self->blob_path( $data );
+ my $md5 = $self->md5_get( $path );
return unless $md5; # directories don't have md5sums
my $path = $self->{md5pool} . '/' . $md5;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
}
$self->api->append_meta('md5sum', $user, 'delete', $data->{file} );
+=cut
+
}
sub make_dir {
my $pid = $1;
$self->cleanup_pid( $pid );
} else {
- warn "## rsync_log $data";
+ warn "## rsync_log $data" if $ENV{DEBUG};
}
}
} else {
die "unknown type $type ", dump $data;
}
+ $self->api->refresh_file_list( $data->{login} );
} elsif ( $data->{itemize} =~ m/\*deleting/ ) {
$self->removed_file($data);
+ $self->api->refresh_file_list( $data->{login} );
} else {
warn "IGNORED ",dump($data) if $ENV{DEBUG};
}
while(<$md5sum>) {
chomp;
my ( $md5, $file ) = split(/\s+/,$_,2);
+ if ( ! $file ) {
+ warn "IGNORE $md5 without file\n";
+ next;
+ }
if ( ! -e "$self->{md5pool}/$md5" ) {
warn "MISSING $md5 $file\n";
next;