User limit & Quota

[cyber2]

Do you made a hard quotas change?
if not - there is my dirty & simple script for set hard quotas

PHP Code:

#!/usr/bin/perl

#  Hard quota installer  for CentOs VPS v0.1                 
#  dirty & simple script created by 2lexx@mail.ru 02.08.2009 
#  to check quota  just type in console: repquota -a         


use DBI;

my $host = "localhost";
my $port = "3306";
my $user = "root";
my $pass = "PASSWORD_FOR_MYSQL_ROOT";
my $db = "ispcp";


$dbh = DBI->connect("DBI:mysql:$db:$host:$port",$user,$pass);
$sth = $dbh->prepare("select domain_name,domain_uid,domain_disk_limit*1e3 from domain");
$sth->execute;

while ($ref = $sth->fetchrow_arrayref) {
`/usr/sbin/setquota -u vu$$ref[1] 0 $$ref[2] 0 0 /`;
print "Hard quota for user vu$$ref[1],domain $$ref[0] is set to $$ref[2] 1k blocks\n";
}

$rc = $sth->finish;
$rc = $dbh->disconnect; 


I have been crontabbed it and it works ok
Any suggesions?

Sorry my English is Bad, my native language is perl