initial commit of file from CVS for smeserver-diskusage on Sat Sep 7 19:52:13 AEST 2024

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

@@ -0,0 +1,32 @@
+#!/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>