smecontribs/smeserver-diskusage
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Trevor Batley 2024-09-07 19:52:13 +10:00
parent 308b8ed1b1
commit ec6fa3a2bb
34 changed files with 1140 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored Normal file
View File

@ -0,0 +1,4 @@
*.rpm
*.log
*spec-20*
*.tar.xz

21
Makefile Normal file
View File

@ -0,0 +1,21 @@
# Makefile for source rpm: smeserver-diskusage
# $Id: Makefile,v 1.1 2020/10/12 15:08:42 brianr Exp $
NAME := smeserver-diskusage
SPECFILE = $(firstword $(wildcard *.spec))
define find-makefile-common
for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done
endef
MAKEFILE_COMMON := $(shell $(find-makefile-common))
ifeq ($(MAKEFILE_COMMON),)
# attept a checkout
define checkout-makefile-common
test -f CVS/Root && { cvs -Q -d $$(cat CVS/Root) checkout common && echo "common/Makefile.common" ; } || { echo "ERROR: I can't figure out how to checkout the 'common' module." ; exit -1 ; } >&2
endef
MAKEFILE_COMMON := $(shell $(checkout-makefile-common))
endif
include $(MAKEFILE_COMMON)

16
README.md
View File

@ -1,3 +1,15 @@
# smeserver-diskusage
# <img src="https://www.koozali.org/images/koozali/Logo/Png/Koozali_logo_2016.png" width="25%" vertical="auto" style="vertical-align:bottom"> smeserver-diskusage
SMEServer Koozali developed git repo for smeserver-diskusage smecontribs
SMEServer Koozali developed git repo for smeserver-diskusage smecontribs
## Wiki
<br />https://wiki.koozali.org/Diskusage
## Bugzilla
Show list of outstanding bugs: [here](https://bugs.koozali.org/buglist.cgi?component=smeserver-diskusage&product=SME%20Contribs&query_format=advanced&limit=0&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=CONFIRMED)
## Description
<br />*This description has been generated by an LLM AI system and cannot be relied on to be fully correct.*
*Once it has been checked, then this comment will be deleted*
<br />

1
contriborbase Normal file
View File

@ -0,0 +1 @@
contribs10

23
createlinks Executable file
View File

@ -0,0 +1,23 @@
#!/usr/bin/perl -w
use esmith::Build::CreateLinks qw(:all);
# our event specific for updating with yum without reboot
$event = 'smeserver-diskusage-update';
#add here the path to your templates needed to expand
#see the /etc/systemd/system-preset/49-koozali.preset should be present for systemd integration on all you yum update event
foreach my $file (qw(
/etc/systemd/system-preset/49-koozali.preset
))
{
templates2events( $file, $event );
}
#action needed in case we have a systemd unit
event_link('systemd-default', $event, '10');
event_link('systemd-reload', $event, '50');
#action specific to this package
#event_link('action', $event, '30');
#services we need to restart
#safe_symlink('restart', 'root/etc/e-smith/events/$event/services2adjust/<service>)
#and Server Manager panel link
panel_link('diskusage', 'manager');

30
root/etc/e-smith/locale/bg/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/da/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/de/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/el/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/es/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/et/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/fr/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/he/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/hu/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/id/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/it/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/ja/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/nb/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/nl/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/pl/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/pt-br/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/pt/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/ro/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/ru/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/sl/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/sv/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/th/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/tr/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/zh-cn/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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>

30
root/etc/e-smith/locale/zh-tw/etc/e-smith/web/functions/diskusage Normal file
View File

@ -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
View 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>

116
root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/diskusage.pm Normal file
View File

@ -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 ("&nbsp\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 ("&nbsp\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;

149
smeserver-diskusage.spec Normal file
View File

@ -0,0 +1,149 @@
# $Id: smeserver-diskusage.spec,v 1.5 2024/09/05 03:16:47 terryfage Exp $
# Authority: darrellmay
# Name: Darrell May
Summary: Disk usage panel for the SME Server
%define name smeserver-diskusage
Name: %{name}
%define version 0.2.0
%define release 7
Version: %{version}
Release: %{release}%{?dist}
License: GPL
Group: Networking/Daemons
Source: %{name}-%{version}.tar.xz
BuildRoot: /var/tmp/%{name}-%{version}-%{release}-buildroot
BuildArchitectures: noarch
Requires: e-smith-base, smeserver-release >= 9.0
Requires: e-smith-formmagick
BuildRequires: e-smith-devtools
Obsoletes: dmc-mitel-diskusage
AutoReqProv: no
%description
Disk usage panel showing filesystem, i-bay and user statistics.
%changelog
* Sat Sep 07 2024 cvs2git.sh aka Brian Read <brianr@koozali.org> 0.2.0-7.sme
- Roll up patches and move to git repo [SME: 12338]
* Sat Sep 07 2024 BogusDateBot
- Eliminated rpmbuild "bogus date" warnings due to inconsistent weekday,
by assuming the date is correct and changing the weekday.
* Thu Sep 05 2024 Terry Fage <terry@fage.id.au> 0.0.2-6.sme
- apply locale 2024-09-05.patch
* Sun Aug 22 2021 Terry Fage <terry.fage@gmail.com> 0.0.2-5.sme
- apply locale 2021-08-22 patch
* Wed Mar 24 2021 Brian Read <brianr@bjsystems.co.uk> 0.2.0-4.sme
- Add Update event to createlinks [SME: 11030]
* Wed Mar 24 2021 BogusDateBot
- Eliminated rpmbuild "bogus date" warnings due to inconsistent weekday,
by assuming the date is correct and changing the weekday.
* Mon Oct 12 2020 Brian Read <brianr@bjsystems.co.uk> 0.2.0-3.sme
- Initial import to SME10 tree [SME: 11030]
* Wed Jul 01 2015 stephane de Labrusse <stephdl@de-labrusse.fr> - 0.2.0-2
- add smeserver-diskusage-0.2.0-locale-2015-07-01.patch [SME: 8966]
* Sun Jun 08 2014 stephane de Labrusse <stephdl@de-labrusse.fr> - 0.2.0-1
- First release to contribs9
- add locale smeserver-diskusage-0.0.1-locale-2014-06-08.patch
* Sun Jul 14 2013 JP Pialasse <tests@pialasse.com> 0.0.1-22.sme
- apply locale 2013-07-14 patch
* Tue Mar 20 2012 SME Translation Server <translations@contribs.org> 0.0.1-21.el6
- apply locale 2012-03-20 patch
* Sun Mar 06 2011 SME Translation Server <translations@contribs.org> 0.0.1-20.sme
- apply locale 2011-03-06 patch
* Sun May 23 2010 SME Translation Server <translations@contribs.org> 0.0.1-19.sme
- apply locale 2010-05-23 patch
* Tue Mar 02 2010 SME Translation Server <translations@contribs.org> 0.0.1-18.sme
- apply locale 2010-03-02 patch
* Tue Oct 27 2009 SME Translation Server <translations@contribs.org> 0.0.1-17.sme
- apply locale 2009-10-27 patch
* Mon Aug 24 2009 SME Translation Server <translations@contribs.org> 0.0.1-16.sme
- apply locale 2009-08-24 patch
* Wed May 20 2009 SME Translation Server <translations@contribs.org> 0.0.1-15.sme
- apply locale 2009-05-20 patch
* Mon Apr 27 2009 SME Translation Server <translations@contribs.org> 0.0.1-14.sme
- apply locale 2009-04-27 patch
* Tue Mar 03 2009 SME Translation Server
- apply locale 2009-03-03 patch
* Sun Mar 1 2009 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-12
- Apply 1 Mar 2009 locale patch [SME: 5018]
* Sun Nov 30 2008 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-11
- Apply 30 Nov 2008 locale patch
* Tue Oct 14 2008 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-10
- Apply 14 Oct 2008 locale patch
* Tue Jul 1 2008 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-9
- Apply 1 July 2008 locale patch
* Wed May 7 2008 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-8
- Apply 7 May 2008 locale patch
* Mon May 5 2008 Jonathan Martens <smeserver-contribs@snetram.nl> 0.0.1-7
- Apply 5 May 2008 locale patch
* Sat Apr 26 2008 Jonathan Martens <smeserver-contribs@snetram.nl>
- Add common <base> tags to e-smith-formmagick's general
* Wed Apr 23 2008 Jonathan Martens <smeserver-contribs@snetram.nl>
- Added 23 April 2008 locale patch
* Tue Apr 22 2008 Jonathan Martens <smeserver-contribs@snetram.nl>
- Added 22 April 2008 locale patch
* Mon Apr 21 2008 Shad L. Lords <slords@mail.com>
- Prep for import into buildsys
- Clean up spec
* Mon Apr 16 2007 Darrell May <dmay@myezserver.com>
- added /opt to ibay table
- added date header
- [0.0.1-2]
* Wed Mar 21 2007 Darrell May <dmay@myezserver.com>
- split usage/path into two columns
- [0.0.1-1]
* Tue Mar 20 2007 Darrell May <dmay@myezserver.com>
- renamed and rebuilt for SME 7.x
- [0.0.1-0]
* Fri Aug 09 2002 Darrell May <dmay@netsourced.com>
- initial release
- [0.0.1-1]
%prep
%setup
%build
perl createlinks
%install
rm -rf $RPM_BUILD_ROOT
(cd root ; find . -depth -print | cpio -dump $RPM_BUILD_ROOT)
rm -f e-smith-%{version}-filelist
/sbin/e-smith/genfilelist $RPM_BUILD_ROOT > %{name}-%{version}-filelist
%clean
cd ..
rm -rf %{name}-%{version}
%files -f %{name}-%{version}-filelist
%defattr(-,root,root)