smeserver-diskusage/root/etc/e-smith/web/functions/diskusage

33 lines
735 B
XML
Executable File

#!/usr/bin/perl -wT
# vim: ft=xml:
#----------------------------------------------------------------------
# heading : Administration
# description : Disk usage
# navigation : 1000 1000
#----------------------------------------------------------------------
use strict;
use warnings;
use esmith::FormMagick::Panel::diskusage;
my $f = esmith::FormMagick::Panel::diskusage->new();
$f->display();
__DATA__
<form
title="FORM_TITLE"
header="/etc/e-smith/web/common/head.tmpl"
footer="/etc/e-smith/web/common/foot.tmpl">
<page name="First">
<subroutine src="print_filesystem_usage()" />
<subroutine src="print_ibay_table()" />
<subroutine src="print_user_table()" />
</page>
</form>