[Perl] Controllare lo Spazio Disco con uno Script
RootPrompt, Perl, Monitoraggio, Sysadmin
RootPrompt, come ormai avrete capito, e' un'ottima fonte di link, come questo, che porta ad un breve (ma ben fatto) tutorial che illustra (passo-passo ovviamente) come creare uno script in Perl per tenere sotto controllo lo spazio disco (ad esempio di un server).
Il tutto si basa sul modulo Perl Filesys::DiskSpace, e le righe di codice sono tutto sommato pochine, oltre che ben illustrate.
E questo scripettino risolve un grosso problema, ovvero quello del controllo, quotidiano (circa) di quanto spazio disco sia rimasto disponibile sui server.
Certo, una sessione ssh per lanciare un df -h prende pochi secondi, ma puo' sempre capitare (dormito poco questa notte?) di dimenticarsi, e di rendersi conto dello spazio in esaurimento solo quando ormai e' troppo tardi ("Perche' non riesco a salvare il file che ho appena modificato?!?").
Creare un breve script (in Perl, ma anche in Shell, se vogliamo) risolve il problema.
Lo infili in crontab e una volta al giorno (o piu', dipende dalle esigenze) il fedele script controlla lo spazio disponibile, ed in caso vi avvisa in modo che voi possiate intervenire e tamponare in qualche modo la falla ("Cosa cancello?!?") prima che la situazione diventi pessima (ovvero spazio zero).
Piu' che da bookmarkare, da scaricare e salvare, o quantomeno da stampare (il codice)
Riferimenti:
RootPrompt, nixCraft
Mi pare più diretto infilare df -h in crontab..
Diciamo che se hai un server con tante partizioni, o peggio piu' server, avere solo il report dello spazio insufficiente e' meglio che non avere un report completo di tutte le partizioni dove hai libero il 90% dello spazio...
(non ho guardato bene il codice e non so se mandi la mail sempre e comunque, ma in caso si puo' facilmente modificare in modo che la mandi solo quando lo spazio e' sotto il treshold impostato)