#!/usr/bin/perl -w

die "Please enter a domain name.\n" unless $ARGV[0];
sub getuser {
$fname = `grep -l -R $ARGV[0] /var/cpanel/users`;
chomp($fname);
@fline = split (/\//, $fname);
$cpuser = $fline[4];
if (!$cpuser) {
die "Domain is not local to this server.\n";
} else {
return $cpuser;
}
}
sub fixquota {
my $cpuser = shift;
$path = "/home/". $cpuser . "/etc/$ARGV[0]/quota";
open (QUOTA, "+<$path") or die "Can't open quota file: $!\n";
@quota = <QUOTA>;
seek QUOTA,0,0;
foreach (@quota) {
chomp($_);
$qline = $_;
$nqline = $_ . "0\n";
s/$qline/$nqline/g;
print QUOTA;
}
close QUOTA;
}
&fixquota (&getuser($ARGV[0]));