| Current Path : /proc/self/root/home/sudancam/.trash/updraftplus/includes/ |
| Current File : //proc/self/root/home/sudancam/.trash/updraftplus/includes/get-cpanel-quota-usage.pl |
#!/usr/local/bin/perl
use strict;
use Env qw(UPDRAFTPLUSKEY);
if ($UPDRAFTPLUSKEY ne 'updraftplus') { die('Error'); }
BEGIN { unshift @INC, '/usr/local/cpanel'; }
use Cpanel::Quota ();
# Used, limit, remain, files used, files limit, files remain
my @homesize = ( Cpanel::Quota::displayquota( { 'bytes' => 1, 'include_sqldbs' => 1, 'include_mailman' => 1, }));
print 'RESULT: '.join(" ", @homesize)."\n";