X-Git-Url: http://git.rot13.org/?p=cloudstore.git;a=blobdiff_plain;f=lib%2FCloudStore%2FAPI.pm;h=d68cd1e04cc5c9c677c0fc9260c3d22e277be51d;hp=e4c5875add2fcc12945758b67d386160e39047f5;hb=e7298af5a01b460b29272ea6a69636854b4ac223;hpb=7d8aee15a1473c8442f1ac22e5f40ae44619c6af

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index e4c5875..d68cd1e 100644
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -162,6 +162,7 @@ sub usage {
 	$user = $self->user_info($user) unless ref $user eq 'HASH';
 
 	my $usage_path = $user->{dir} . '/.meta/files.usage';
+	$self->mkbasepath( $usage_path, { uid => $user->{uid} } );
 	if ( ! -e $usage_path ) {
 		warn "# usage $usage_path missing";
 		$self->list_files($user);
@@ -332,6 +333,7 @@ sub list_files {
 	die "no dir for ",dump($user) unless exists $user->{dir};
 
 	my $files = $user->{dir} . '/.meta/files';
+	$self->mkbasepath( $files, { uid => $user->{uid} } );
 	if ( -e $files && -s $files > 0) {
 		local $/ = undef;
 		open(my $fh, '<', $files);