rsync-xfer-trigger.pl

   1 #!/usr/bin/perl -T
   2 use warnings;
   3 use strict;
   4
   5 use Data::Dump qw(dump);
   6
   7 use lib '/srv/cloudstore/lib';
   8 use CloudStore::Store;
   9
  10 my $store = CloudStore::Store->new;
  11
  12 my $login = $ENV{RSYNC_MODULE_NAME} || die "no RSYNC_MODULE_NAME";
  13
  14 exit 0; # FIXME
  15
  16 my $user  = $store->user_get($login);
  17
  18 my $ok = $user->{usage} <= $user->{quota};
  19
  20 print "$login ", $store->status( $login => sprintf 'quota: %s %d %s %d'
  21         , ( $ok ? 'OK' : 'ERROR' )
  22         , $user->{usage}
  23         , ( $ok ? '<=' : '>' )
  24         , $user->{quota}
  25 ),$/;
  26
  27 my $exit = $ok ? 0 : 1;
  28 warn "# exit $exit" if $ENV{DEBUG};
  29 exit $exit;