| Dir : /bin/ |
| Server: Linux ngx353.inmotionhosting.com 4.18.0-553.22.1.lve.1.el8.x86_64 #1 SMP Tue Oct 8 15:52:54 UTC 2024 x86_64 IP: 209.182.202.254 |
| Dir : //bin/fixmailquotas |
#!/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]));