#!usr/bin/perl

use Quota;

	$dev = "/home"; $bs = $webspace; $bh = $webspace; $is = 0; $ih = 0; $tlo = 0; $isgrp = 0;
	Quota::setqlim($dev, $uid, $bs,$bh, $is,$ih, $tlo, $isgrp);
	Quota:sync($dev);
	$dev = "/var"; $bs = 10240; $bh = 10240; $is = 0; $ih = 0; $tlo = 0; $isgrp = 0;
	Quota::setqlim($dev, $uid, $bs,$bh, $is,$ih, $tlo, $isgrp);
	Quota:sync($dev);
}