disk-usage/usage.pl

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