generate gearman slice_quota function names

diff --git a/lib/CloudStore/API.pm b/lib/CloudStore/API.pm
index 2e53ba1..b686017 100644 (file)
--- a/lib/CloudStore/API.pm
+++ b/lib/CloudStore/API.pm
@@ -30,6 +30,11 @@ sub new {
                warn "## CREATED md5pool $self->{md5}->{dir}\n";
        }
 
+       my $name = $self->{SLICE};
+       $name =~ s/\W+/_/g;
+       $name =~ s/^_+//;
+       $self->{quota} = $name . '_quota';
+
        return $self;
 }
 
@@ -80,10 +85,7 @@ sub create_user {
        }
 
        # FIXME update quota only on create?
-       my $name = $self->{SLICE};
-       $name =~ s/\W+/_/g;
-       $name =~ s/^_+//;
-       $self->gearman_do( $name . '_quota_set' => "$found $new_quota" );
+       $self->gearman_do( "$self->{quota}_set" => "$found $new_quota" );
 
        return $found;
 }
@@ -149,7 +151,7 @@ sub usage {
                $sum->{_usage}  += $v[1];
        }
        my ( $usage, $quota ) = split(/ /,
-               $self->gearman_do( 'narada_s1_quota_get' => $user->{uid} )
+               $self->gearman_do( "$self->{quota}_get" => $user->{uid} )
        );
        $sum->{_usage} += $usage;
        $sum->{_quota} = $quota;