create md5pool on empty slice

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 9ac973a..93d3c76 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -22,7 +22,12 @@ sub new {
        };
        bless $self, $class;
 
-       $self->{md5} = $self->user_info('md5');
+       $self->{md5} = $self->user_info("md5") || die "can't find user md5";
+       $self->{md5}->{dir} = "$dir/md5";
+       if ( ! -e $self->{md5}->{dir} ) {
+               make_path $self->{md5}->{dir}, { uid => $self->{md5}->{uid}, gid => $self->{md5}->{gid} };
+               warn "## CREATED md5pool $self->{md5}->{dir}\n";
+       }
 
        return $self;
 }