mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
14 lines
349 B
Perl
Executable File
14 lines
349 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Build the usage tree now
|
|
|
|
require './disk-usage-lib.pl';
|
|
&ui_print_unbuffered_header(undef, $text{'run_title'}, "");
|
|
|
|
print $text{'run_doing'},"<br>\n";
|
|
$root = &build_root_usage_tree([ split(/\t+/, $config{'dirs'}) ]);
|
|
&save_usage_tree($root);
|
|
print $text{'run_done'},"<p>\n";
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|