1#@!#!123s

D7net

: / kunden / kunden / lib / susshi / exec /

Filename : dirsize

back

#!/usr/bin/perl

use warnings;
use strict;

use lib '/usr/lib/susshi/exec';
use Susshi;

use IPC::Run qw( run timeout );

my $susshi = Susshi->new ( -read_input => 1 );

my $directory = $susshi->get_directory( 'directory', -mandatory => 1, -must_exist => 1 );

my @cmd=( 'du', '-bs', $directory );

my $output;
eval {
    my ($err,$out)=('','');
    run \@cmd, '>', \$out, '2>', \$err, timeout (3600) or die $err;
    my ($size, undef) = split /\s+/, $out;
    $output->{size}=$size;
};
error_die($@) if $@;

info("@cmd: $output->{size}");

send_json_output($output) if $output;

exit 0;