disk-usage/run.cgi

   1 #!/usr/local/bin/perl
   2 # Build the usage tree now
   3
   4 require './disk-usage-lib.pl';
   5 &ui_print_unbuffered_header(undef, $text{'run_title'}, "");
   6
   7 print $text{'run_doing'},"<br>\n";
   8 $root = &build_root_usage_tree([ split(/\t+/, $config{'dirs'}) ]);
   9 &save_usage_tree($root);
  10 print $text{'run_done'},"<p>\n";
  11
  12 &ui_print_footer("", $text{'index_return'});
  13