Perlscript

Zeffe · **Geregistreerd:** 19 Aug 2003 23:00 **Berichten:** 19

Ja ik wil iets maken zodat er meer zicht en controle is op de quota's

De doelstelling is als volgt
a)Het script moet op regelmatige basis op het systeem draaien (bv elke dag)
b)Vanaf x MB wordt een waarschuwingstext in de homedirectory geschreven.
c)Vanaf y MB wordt een backup (eventueel gezipt) gemaakt van de bestanden, de bestanden worden verwijdert en enkel een tekst wordt achtergelaten in de H drive
d) Waarschuw op één of andere manier de systeembeheerder van dit feit

Wie heeft hiervoor goesting om me hieraan te helpen? Ik denk dat het heel nuttig is voor scoutnet dermee dat ik eraan wil beginnen maar men kennis van Perl is hiervoor niet genoeg

sn1029 · **Geplaatst:** 01 Dec 2004 13:26

Zeffe schreef:

verwijdert

verwijderd

hopla · **Geregistreerd:** 22 Jan 2004 0:00 **Berichten:** 773

Zeffe schreef:

c)Vanaf y MB wordt een backup (eventueel gezipt) gemaakt van de bestanden, de bestanden worden verwijdert en enkel een tekst wordt achtergelaten in de H drive

Is dit soms een of ander werkje voor den unief...

Zeffe · **Geregistreerd:** 19 Aug 2003 23:00 **Berichten:** 19

Neen, is voor bij ons te gebruiken omdat we met verschillende mappen werken en verscheidene mensen niet weten hoeveel mb er eigenlijk in hun map zitten en ik ze hiervan op de hoogte wil brengen als er teveel in zit

Zeffe · **Geregistreerd:** 19 Aug 2003 23:00 **Berichten:** 19

Ha dermee die H-drive => home drive bedoel ik hiermee, dus diene public_html daar wil ik dan een bestandje inzetten zodat ik het ook steeds kan nazien

BBBart · **Geplaatst:** 02 Dec 2004 7:34

waarom zoudt ge da in perl willen maken? bash is krachtig genoeg me dunkt, eventueel met de hulp van sed, awk, ...

Zeffe schreef:

a)Het script moet op regelmatige basis op het systeem draaien (bv elke dag)

da doet ge met cron

Zeffe schreef:

b)Vanaf x MB wordt een waarschuwingstext in de homedirectory geschreven.

Code:

if [ `du -sc $HOME | grep total | cut  -f 1` -gt 300000 ]; then touch $HOME/WARNING; fi

Zeffe schreef:

c)Vanaf y MB wordt een backup (eventueel gezipt) gemaakt van de bestanden, de bestanden worden verwijderd en enkel een tekst wordt achtergelaten in de H drive

Code:

if [ `du -sc $HOME | grep total | cut  -f 1` -gt 500000 ]; then tar cfj /tmp/home.tar.bz2 $HOME; fi

Zeffe schreef:

d) Waarschuw op één of andere manier de systeembeheerder van dit feit

Code:

if [ `du -sc $HOME | grep total | cut  -f 1` -gt 500000 ]; then echo 'aiaiaia' | mail -s "der is iemand stout geweest" baas@domain.org fi

(ik heb hier niks van getest)

Scoutnet vzw

Perlscript

Wie is er online?