| Server IP : 74.208.236.79 / Your IP : 216.73.216.46 Web Server : Apache System : Linux infongp-us50 4.4.400-icpu-108 #2 SMP Wed Feb 11 10:12:42 UTC 2026 x86_64 User : u93192080 ( 6162215) PHP Version : 8.4.22 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /kunden/lib/susshi/exec/ |
Upload File : |
#!/usr/bin/perl
use warnings;
use strict;
use lib '/usr/lib/susshi/exec';
use Susshi;
use Quota;
my $home=(getpwuid($<))[7]
or error_die "Cannot find homedir for uid=$<";
my $qcarg=Quota::getqcarg($home)
or error_die "Quota::getqcarg: $home: " . Quota::strerr();
my @quota=Quota::query($qcarg)
or error_die "Quota::query: $qcarg: " . Quota::strerr();
my %hash = (
diskquota => $quota[0],
diskquotamax => $quota[1],
filequota => $quota[4],
filequotamax => $quota[5],
);
info("quota for $<: $quota[0]/$quota[1] blocks, $quota[4]/$quota[5] files");
send_json_output(\%hash);