Return to wpqops.pm CVS log

Up to [local] / wpscripts / wpquotas

Annotation of wpscripts/wpquotas/wpqops.pm, Revision 1.1.1.1

1.1       yason       1: package wpqops;
                      2:
                      3: use wpqio;
                      4:
                      5: my $DU = "/usr/bin/du -md 0 ";
                      6: my $MLIMIT = 15360;  # in MBytes
                      7:
                      8:
                      9: sub wpqops::do_walk($)
                     10: {
                     11:     my $v = shift;
                     12:     my @tmp;
                     13:     my $userdir;
                     14:     my $username;
                     15:     my $amount;
                     16:     my $line;
                     17:     my $i;
                     18:     my @blacklisted;
                     19:
                     20:     @tmp = (`$DU$v`);
                     21:
                     22:     foreach $line (@tmp)
                     23:     {
                     24:        chomp($line);
                     25:        ($amount, $userdir) = split( /\t/, $line, 2);
                     26:
                     27:        #
                     28:        # This is bad, but it's better than nothing ;-)
                     29:        # as usual..
                     30:        $user = substr($userdir, 4);
                     31:        $user = substr($user, 0, -8);
                     32:
                     33:        if($amount > $MLIMIT)
                     34:        {
                     35:            wpqio::print("$user has exceeded his limit ($amount)\n");
                     36:
                     37:            $blacklisted[@blacklisted] = "$user $amount";
                     38:        }
                     39:     }
                     40:
                     41:     return \@blacklisted;
                     42: }
                     43:
                     44: return 1;