Return to wpquotas.pl CVS log

Up to [local] / wpscripts / wpquotas

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);