33 lines
735 B
Plaintext
33 lines
735 B
Plaintext
|
#!/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>
|