From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 1 Sep 2011 10:35:52 +0000 (+0000)
Subject: create full paths from md5sum files
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=38d572d4faab16c38ad259369344fe4ea7d03e7a;p=cloudstore.git

create full paths from md5sum files
---

diff --git a/lib/CloudStore/dedup.pm b/lib/CloudStore/dedup.pm
index 0000ecb..04488cd 100644
--- a/lib/CloudStore/dedup.pm
+++ b/lib/CloudStore/dedup.pm
@@ -4,6 +4,7 @@ use strict;
 use autodie;
 
 use CloudStore::JSON;
+use File::Path qw(make_path);
 use Data::Dump qw(dump);
 
 sub path_md5 {
@@ -62,6 +63,9 @@ sub data {
 			}
 			my $new = "users/$data->{login}/blob/$dir$file";
 			if ( ! -e $new ) {
+				# create path from md5sum file
+				my $dir = $1 if $new =~ m{^(.+)/[^/]+$};
+				make_path $dir unless -d $dir;
 				$imported += link "md5/$md5", $new;
 			} else {
 				path_md5 $new => $md5;