| Server IP : 217.160.0.214 / Your IP : 216.73.216.182 Web Server : Apache System : Linux info 3.0 #1337 SMP Tue Jan 01 00:00:00 CEST 2000 all GNU/Linux User : ws67690508 ( 67690508) PHP Version : 8.1.34 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /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);