X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=rsync-xfer-trigger.pl;h=92101ec312926aa2cee33aeee039671b0e904a11;hb=6f9d7a2e15e93458b9c16f4f52ae0a5837baaa5b;hp=a6478f524cdcd973fb34ab30741ff4318097efc9;hpb=0ccebad3ffc9e0a73413d1446e6f00a7b62587c3;p=cloudstore.git

diff --git a/rsync-xfer-trigger.pl b/rsync-xfer-trigger.pl
index a6478f5..92101ec 100755
--- a/rsync-xfer-trigger.pl
+++ b/rsync-xfer-trigger.pl
@@ -5,17 +5,19 @@ use strict;
 use Data::Dump qw(dump);
 
 use lib '/srv/cloudstore/lib';
-use CloudStore::Couchbase;
+use CloudStore::Store;
 
-my $store = CloudStore::Couchbase->new;
+my $store = CloudStore::Store->new;
 
 my $login = $ENV{RSYNC_MODULE_NAME} || die "no RSYNC_MODULE_NAME";
 
+exit 0; # FIXME
+
 my $user  = $store->user_get($login);
 
 my $ok = $user->{usage} <= $user->{quota};
 
-warn $store->status( $login => sprintf 'usage: %s %d %s %d'
+print "$login ", $store->status( $login => sprintf 'quota: %s %d %s %d'
 	, ( $ok ? 'OK' : 'ERROR' )
 	, $user->{usage}
 	, ( $ok ? '<=' : '>' )
@@ -23,5 +25,5 @@ warn $store->status( $login => sprintf 'usage: %s %d %s %d'
 ),$/;
 
 my $exit = $ok ? 0 : 1;
-warn "# exit $exit";
+warn "# exit $exit" if $ENV{DEBUG};
 exit $exit;