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 a6478f5..97018e4 100755 (executable)
--- a/rsync-xfer-trigger.pl
+++ b/rsync-xfer-trigger.pl
@@ -15,7 +15,7 @@ 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 +23,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;