5 use Data::Dump qw(dump);
7 use lib '/srv/cloudstore/lib';
8 use CloudStore::Couchbase;
10 my $store = CloudStore::Couchbase->new;
12 my $login = $ENV{RSYNC_MODULE_NAME} || die "no RSYNC_MODULE_NAME";
14 my $user = $store->user_get($login);
16 my $ok = $user->{usage} <= $user->{quota};
18 print "$login ", $store->status( $login => sprintf 'quota: %s %d %s %d'
19 , ( $ok ? 'OK' : 'ERROR' )
21 , ( $ok ? '<=' : '>' )
25 my $exit = $ok ? 0 : 1;
26 warn "# exit $exit" if $ENV{DEBUG};