initial commit of file from CVS for smeserver-diskusage on Sat Sep 7 19:52:13 AEST 2024
This commit is contained in:
Trevor Batley
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="bg">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Използване на диска</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>Инфо-слотове</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Потребители</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Използвано</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Път</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="da">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Diskforbrug</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Brugere</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Brug</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Sti</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="de">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Festplattenverwendung</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Benutzer</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Benutzung</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Pfad</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="el">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Χρήστες</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Χρήση</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Μονοπάτι</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="en-us">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Users</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="es">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Usuarios</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Uso</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Ruta</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="et">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Kettakasutus</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Kasutajad</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Kasutus</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="fr">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Utilisation du disque</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>Ibays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Utilisateurs</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Utilisation</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Chemin</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="he">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>משתמשים</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>שימוש</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="hu">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Felhasználók</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Használat</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="id">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Pengguna</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Pemakaian</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="it">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Utilizzo del disco</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Utenti</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Utilizzo</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Percorso</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="ja">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>ユーザ</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>パス</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="nb">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Brukere</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Bruk</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Sti</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="nl">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Gebruikte opslagruimte</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>Informatie-baaien</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Gebruikers</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Gebruik</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Pad</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="pl">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Użycie dysku</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Użytkownicy</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Wykorzystanie</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Ścieżka</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="pt-br">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Uso do Disco</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>Compartilhamentos</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Usuários</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Uso</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Caminho</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="pt">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Usuários</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Utilização</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Caminho</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="ro">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Utilizatori</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Utilizare</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Cale</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="ru">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Пользователи</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Использование</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Путь</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="sl">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Uporabniki</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Porabljeno</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Pot</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="sv">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Användare</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Användning</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Sökväg</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="th">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>ผู้ใช้</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>ถูกใช้ไป</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Path</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="tr">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>Disk usage</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>Kullanıcılar</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>Kullanım</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>Yol</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="zh-cn">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>磁盘使用率</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>用户</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>使用率</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>路径</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
@@ -0,0 +1,30 @@
|
||||
<lexicon lang="zh-tw">
|
||||
<!-- vim: ft=xml:
|
||||
-->
|
||||
|
||||
<entry>
|
||||
<base>FORM_TITLE</base>
|
||||
<trans>磁碟用量</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>IBAYS</base>
|
||||
<trans>I-bays</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USERS</base>
|
||||
<trans>使用者</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>USAGE</base>
|
||||
<trans>使用量</trans>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<base>PATH</base>
|
||||
<trans>路徑</trans>
|
||||
</entry>
|
||||
|
||||
</lexicon>
|
||||
32
root/etc/e-smith/web/functions/diskusage
Executable file
32
root/etc/e-smith/web/functions/diskusage
Executable file
@@ -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>
|
||||
@@ -0,0 +1,116 @@
|
||||
#!/usr/bin/perl -w
|
||||
package esmith::FormMagick::Panel::diskusage;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use esmith::FormMagick;
|
||||
use esmith::AccountsDB;
|
||||
use esmith::ConfigDB;
|
||||
use esmith::cgi;
|
||||
use esmith::util;
|
||||
use File::Basename;
|
||||
use Exporter;
|
||||
use Carp qw(verbose);
|
||||
|
||||
our @ISA = qw(esmith::FormMagick Exporter);
|
||||
|
||||
our @EXPORT = qw();
|
||||
|
||||
our $VERSION = sprintf '%d.%03d', q$Revision: 1.1 $ =~ /: (\d+).(\d+)/;
|
||||
|
||||
our $accountdb = esmith::AccountsDB->open();
|
||||
our $configdb = esmith::ConfigDB->open();
|
||||
|
||||
sub print_filesystem_usage {
|
||||
my $self = shift;
|
||||
my $q = $self->{cgi};
|
||||
|
||||
print $q->p (" \n");
|
||||
print $q->p (`/bin/date`);
|
||||
my $FileSystemUsage = `/bin/df -h`;
|
||||
|
||||
print $q->p ($q->pre ("$FileSystemUsage"));
|
||||
return "";
|
||||
}
|
||||
|
||||
sub print_ibay_table {
|
||||
my $self = shift;
|
||||
my $q = $self->{cgi};
|
||||
my $name = $self->localise('IBAYS');
|
||||
my $usage = $self->localise('USAGE');
|
||||
my $path = $self->localise('PATH');
|
||||
my @ibays = $accountdb->ibays();
|
||||
|
||||
print $q->start_table({-CLASS => "sme-border"}),"\n";
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, $name,"header"),
|
||||
esmith::cgi::genSmallCell($q, $usage,"header"),
|
||||
esmith::cgi::genSmallCell($q, $path,"header")),"\n";
|
||||
my $scriptname = basename($0);
|
||||
|
||||
foreach my $i (@ibays)
|
||||
{
|
||||
my $ibayname = $i->key();
|
||||
my @ibayusage = split(/\s/, (`/usr/bin/du -hs /home/e-smith/files/ibays/$ibayname`));
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, $ibayname,"normal"),
|
||||
esmith::cgi::genSmallCell($q, $ibayusage[0],"normal"),
|
||||
esmith::cgi::genSmallCell($q, $ibayusage[1],"normal"));
|
||||
}
|
||||
|
||||
# opt
|
||||
{
|
||||
my @optusage = split(/\s/, (`/usr/bin/du -hs /opt`));
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, 'opt',"normal"),
|
||||
esmith::cgi::genSmallCell($q, $optusage[0],"normal"),
|
||||
esmith::cgi::genSmallCell($q, $optusage[1],"normal"));
|
||||
}
|
||||
|
||||
print $q->end_table,"\n";
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
sub print_user_table {
|
||||
my $self = shift;
|
||||
my $q = $self->{cgi};
|
||||
my $name = $self->localise('USERS');
|
||||
my $usage = $self->localise('USAGE');
|
||||
my $path = $self->localise('PATH');
|
||||
my @users = $accountdb->users();
|
||||
|
||||
print $q->p (" \n");
|
||||
|
||||
print $q->start_table({-CLASS => "sme-border"}),"\n";
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, $name,"header"),
|
||||
esmith::cgi::genSmallCell($q, $usage,"header"),
|
||||
esmith::cgi::genSmallCell($q, $path,"header")),"\n";
|
||||
my $scriptname = basename($0);
|
||||
|
||||
# root
|
||||
{
|
||||
my @rootusage = split(/\s/, (`/usr/bin/du -hs /root`));
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, 'root',"normal"),
|
||||
esmith::cgi::genSmallCell($q, $rootusage[0],"normal"),
|
||||
esmith::cgi::genSmallCell($q, $rootusage[1],"normal"));
|
||||
}
|
||||
|
||||
foreach my $i (@users)
|
||||
{
|
||||
my $username = $i->key();
|
||||
my @userusage = split(/\s/, (`/usr/bin/du -hs /home/e-smith/files/users/$username`));
|
||||
print $q->Tr (
|
||||
esmith::cgi::genSmallCell($q, $username,"normal"),
|
||||
esmith::cgi::genSmallCell($q, $userusage[0],"normal"),
|
||||
esmith::cgi::genSmallCell($q, $userusage[1],"normal"));
|
||||
}
|
||||
|
||||
print $q->end_table,"\n";
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user