return rsync xfer errors to client

[cloudstore.git] / rsync-xfer-trigger.pl

diff --git a/rsync-xfer-trigger.pl b/rsync-xfer-trigger.pl
index e20c2c7..97018e4 100755 (executable)
--- a/rsync-xfer-trigger.pl
+++ b/rsync-xfer-trigger.pl
@@ -13,10 +13,15 @@ my $login = $ENV{RSYNC_MODULE_NAME} || die "no RSYNC_MODULE_NAME";
 
 my $user  = $store->user_get($login);
 
-if ( $user->{usage} > $user->{quota} ) {
-       warn $store->status( $login => "ERROR: $login $user->{usage} > quota $user->{quota}" );
-       exit 1;
-} else {
-       warn $store->status( $login => "OK: $login $user->{usage} < quota $user->{quota}" );
-       exit 0;
-}
+my $ok = $user->{usage} <= $user->{quota};
+
+print "$login ", $store->status( $login => sprintf 'quota: %s %d %s %d'
+       , ( $ok ? 'OK' : 'ERROR' )
+       , $user->{usage}
+       , ( $ok ? '<=' : '>' )
+       , $user->{quota}
+),$/;
+
+my $exit = $ok ? 0 : 1;
+warn "# exit $exit" if $ENV{DEBUG};
+exit $exit;