#!/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>