Viewing file:  usage.cgi (6.17 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show disk usage for one virtual server, broken down by directory
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) || &error($text{'newbw_ecannot'});
$subh = &domain_in($d);
@subs = &get_domain_by("parent", $d->{'id'});
&ui_print_header($subh, $text{'usage_title'}, "", "usage");
# Compute usage by database
foreach $sd ($d, @subs) {
foreach $db (&domain_databases($sd)) {
($dbu, undef, $dbq, $dbc) = &get_one_database_usage($sd, $db);
push(@dbusage, [ $db->{'name'}, &show_domain_name($sd),
$dbu, $dbc ]);
}
}
# Compute usage by users
$homesize = "a_bsize("home");
$mailsize = "a_bsize("mail");
foreach $sd ($d, &get_domain_by("parent", $d->{'id'})) {
@users = &list_domain_users($sd, 0, 1, 0, 1);
foreach my $u (@users) {
next if ($u->{'webowner'});
my ($uusage, $ucount);
if ($u->{'domainowner'}) {
# Only show mail for domain owner
($uusage, undef, undef, $ucount) = &mail_file_size($u);
}
elsif (&has_home_quotas()) {
$uusage = $u->{'uquota'}*$homesize +
$u->{'umquota'}*$mailsize;
$ucount = $u->{'ufquota'} + $u->{'umfquota'};
}
else {
($uusage, undef, $ucount) =
&recursive_disk_usage_mtime($u->{'home'});
if (!&mail_under_home()) {
($umail) = &mail_file_size($u);
$uusage += $umail;
}
}
push(@userusage,
[ &remove_userdom($u->{'user'}, $sd),
&show_domain_name($sd),
$uusage,
$ucount, ]);
}
}
# First work out what tabs we have
@tabs = ( );
$prog = "usage.cgi?dom=$in{'dom'}&mode=";
if (&has_home_quotas()) {
push(@tabs, [ "summary", $text{'usage_tabsummary'}, $prog."summary" ]);
}
push(@tabs, [ "homes", $text{'usage_tabhomes'}, $prog."homes" ]);
if (@userusage) {
push(@tabs, [ "users", $text{'usage_tabusers'}, $prog."users" ]);
}
if (@subs) {
push(@tabs, [ "subs", $text{'usage_tabsubs'}, $prog."subs" ]);
}
if (@dbusage) {
push(@tabs, [ "dbs", $text{'usage_tabdbs'}, $prog."dbs" ]);
}
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || $tabs[0]->[0], 1);
# Show quota usage summary
if (&has_home_quotas()) {
print &ui_tabs_start_tab("mode", "summary");
print $text{'usage_summaryheader'},"<p>\n";
print &ui_table_start(undef, undef, 4);
# Total virtual server quota
print &ui_table_row($text{'usage_squota'},
"a_show($d->{'quota'}));
# Quota used
($home, $mail, $db) = &get_domain_quota($d, 1);
$usage = $home*$homesize + $mail*$mailsize;
print &ui_table_row($text{'usage_susage'},
&nice_size($usage));
# Space used by databases
print &ui_table_row($text{'usage_sdb'},
&nice_size($db));
# Percentage used
if ($d->{'quota'}) {
$pc = 100*($usage + $db) / ($d->{'quota'}*$homesize);
$pc = int($pc)."%";
print &ui_table_row($text{'usage_spercent'},
$pc >= 100 ? "<font color=#ff0000>$pc</font>" : $pc);
}
print &ui_table_end();
print &ui_tabs_end_tab();
}
# Show usage by each sub-directory under home, and sub-dirs under public_html
opendir(DIR, $d->{'home'});
@dirs = grep { $_ ne ".." } readdir(DIR);
closedir(DIR);
$phd = &public_html_dir($d, 1);
if (-r "$d->{'home'}/$phd") {
opendir(DIR, "$d->{'home'}/$phd");
push(@dirs, map { "$phd/$_" }
grep { $_ ne ".." && $_ ne "." } readdir(DIR));
closedir(DIR);
}
@dirs = sort { $a cmp $b } @dirs;
$others = 0;
$othersc = 0;
foreach $dir (@dirs) {
my $path = "$d->{'home'}/$dir";
my $levels = $dir eq "domains" || $dir eq "homes" ||
$dir eq "." || $dir eq $phd ? 0 : undef;
my ($dirusage, undef, $dircount) =
&recursive_disk_usage_mtime($path, undef, $levels);
if (-d $path && $dir ne ".") {
push(@dirusage, [ $dir, $dirusage, $dircount ]);
}
else {
$others += $dirusage;
$othersc += $dircount;
}
}
push(@dirusage, [ "<i>$text{'usage_others'}</i>", $others, $othersc ]);
closedir(DIR);
# Add an extra directories outside the home
foreach my $edir (split(/\t+/, $config{'quota_dirs'})) {
my $path = &substitute_domain_template($edir, $d);
my ($dirgid, undef, $dircount) =
&recursive_disk_usage_mtime($path, $d->{'gid'}, undef);
push(@dirusage, [ $path, $dirgid, $dircount ]);
}
print &ui_tabs_start_tab("mode", "homes");
my $msg = $config{'quota_dirs'} ? $text{'usage_dirheader2'}
: $text{'usage_dirheader'};
&usage_table(\@dirusage, $text{'usage_dir'}, 0, $msg);
print &ui_tabs_end_tab();
# Show usage by top 10 mail users, in all domains
if (@userusage) {
print &ui_tabs_start_tab("mode", "users");
&usage_table(\@userusage, $text{'usage_user'}, $in{'all'} ? 0 : 10,
$text{'usage_userheader'}, $text{'usage_dom'});
print &ui_tabs_end_tab();
}
# Show usage by sub-servers, if there are any
if (@subs) {
foreach $sd (@subs) {
next if (!$sd->{'dir'});
($susage, undef, $scount) =
&recursive_disk_usage_mtime($sd->{'home'});
push(@subusage, [ &show_domain_name($sd), $susage, $scount ]);
}
print &ui_tabs_start_tab("mode", "subs");
&usage_table(\@subusage, $text{'usage_sub'}, $in{'all'} ? 0 : 10,
$text{'usage_subheader'});
print &ui_tabs_end_tab();
}
# Show usage by databases
if (@dbusage) {
print &ui_tabs_start_tab("mode", "dbs");
&usage_table(\@dbusage, $text{'usage_db'}, $in{'all'} ? 0 : 10,
$text{'usage_dbheader'}, $text{'usage_dom'});
print &ui_tabs_end_tab();
}
print &ui_tabs_end(1);
&ui_print_footer(&domain_footer_link($d));
sub usage_table
{
my ($list, $type, $max, $title, $type2) = @_;
my @table;
# Make the data
my $i = 0;
my $total = 0;
my $ctotal = 0;
foreach my $l (sort { $b->[@$b-2] <=> $a->[@$a-2] } @$list) {
my @rest = @$l;
my $ct = pop(@rest);
my $sz = pop(@rest);
push(@table, [ @rest, &nice_size($sz), $ct ]);
$i++;
last if ($max && $i > $max);
}
foreach my $l (@$list) {
$total += $l->[@$l-2];
$ctotal += $l->[@$l-1];
}
push(@table, [ "<b>$text{'usage_total'}</b>",
$type2 ? ( "" ) : ( ),
"<b>".&nice_size($total)."</b>",
"<b>".$ctotal."</b>" ]);
# Show the table
print $title,"<p>\n";
print &ui_columns_table(
[ $type, $type2 ? ( $type2 ) : ( ),
$text{'usage_size'}, $text{'usage_count'} ],
undef,
\@table,
undef,
0,
undef,
$text{'usage_none'},
);
if ($max && @$list > $max) {
print "<i>",&text('usage_max', $max)," ",
"<a href='usage.cgi?dom=$in{'dom'}&all=1&mode=$in{'mode'}'>",
$text{'usage_showall'},"</a></i><br>\n";
}
}
|