first commit

This commit is contained in:
Roman Pyrih
2026-04-21 15:48:41 +02:00
commit 7483681901
10216 changed files with 3236626 additions and 0 deletions

View File

@@ -0,0 +1,13 @@
#!/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";