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 if ( $user->{usage} > $user->{quota} ) {
17 warn $store->status( $login => "ERROR: $login $user->{usage} > quota $user->{quota}" );
20 warn $store->status( $login => "OK: $login $user->{usage} < quota $user->{quota}" );