From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 19 Jul 2011 21:41:03 +0000 (+0000)
Subject: generate var/dedup.log
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=e7b1de98db9ed03a032059ffe7b3dfedfab87e7c;p=cloudstore.git

generate var/dedup.log
---

diff --git a/lib/CloudStore/dedup.pm b/lib/CloudStore/dedup.pm
index fafd5e8..4671947 100644
--- a/lib/CloudStore/dedup.pm
+++ b/lib/CloudStore/dedup.pm
@@ -24,14 +24,18 @@ sub path_md5 {
 }
 
 sub path_remove {
-	my ( $path ) = @_;
+	my $path = shift;
 
 	my $deleted = CloudStore::JSON::file_data( $path );
 
-	my ( undef, undef, undef, $nlink ) = stat "md5/$deleted->{md5}";
+	my $md5_path = "md5/$deleted->{md5}";
 
-	warn "path_remove $path $nlink ",dump $deleted;
+	my ( undef, undef, undef, $nlink ) = stat $md5_path;
 
+	warn "path_remove $path $nlink ",dump $deleted;
+	open(my $fh, '>>', 'var/dedup.log');
+	print $fh join(' ', $md5_path, $nlink, @_), $/;
+	close $fh;
 }
 
 my $empty_md5 = " " x 32;
@@ -46,7 +50,7 @@ sub data {
 	if ( $data->{md5} ne $empty_md5 ) {
 		path_md5 $path => $data->{md5};
 	} else {
-		path_remove $path;
+		path_remove $path, $data->{timestamp};
 	}
 }