Return to wpquotas.pl CVS log

Up to [local] / wpscripts / wpquotas

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