Annotation of wpscripts/wpquotas/wpquotas.pl, Revision 1.1
1.1 ! yason 1: #!/usr/bin/perl
! 2: #
! 3: # $Id$
! 4: #
! 5: # User quotas ;-)
! 6: use wpqops;
! 7: use wpqio;
! 8: use wpqsmtp;
! 9:
! 10: # @VOLUMES hardcoded, be careful!
! 11: my @VOLUMES = ("/V1/*/manager", "/V2/*/manager", "/V3/*/manager", "/V4/*/manager", "/V5/*/manager");
! 12: my @blacklisted;
! 13: my $line;
! 14: my $user;
! 15: my $amount;
! 16: my $v;
! 17: my $blacklisted_ref;
! 18: my @report;
! 19: my $report_i = 0;
! 20:
! 21:
! 22: foreach $v (@VOLUMES)
! 23: {
! 24: $blacklisted_ref = wpqops::do_walk($v);
! 25: @blacklisted = @$blacklisted_ref;
! 26:
! 27: foreach $line (@blacklisted)
! 28: {
! 29: ($user, $amount) = split( / /, $line);
! 30: wpqsmtp::email($user, $amount);
! 31: $report[$report_i] = $line;
! 32: $report_i++;
! 33: }
! 34: }
! 35:
! 36: wpqsmtp::email_cio(\@report);
CVSweb