Annotation of wpscripts/wpquotas/wpquotas.pl, Revision 1.1.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