Files
webmin/disk-usage/usage.pl
2011-01-14 11:14:54 -08:00

10 lines
209 B
Perl
Executable File

#!/usr/local/bin/perl
# Count up usage for selected directories
$no_acl_check = 1;
require './disk-usage-lib.pl';
$root = &build_root_usage_tree([ split(/\t+/, $config{'dirs'}) ]);
&save_usage_tree($root);