Discussion :

[Maillon]

Bonjour à tous ^^

Voilà je voudrai réaliser un script en perl qui se connecte à une machine distante et qui analyse l'espace disque utilisé par partition.

Selon le résultat (genre si /home > 80%) alors on envoie un mail à l'admin "attention sur TELLE machine, la partition /home devient pleine".

J'utilise filetraq mais c'est pas simple de lecture (trop d'info dans les mails envoyé par filetraq). Je sais qu'il y a aussi nagios qui existe mais je voudrais le faire en script.

J'ai bien parcouru le forum et plus particulièrement cette section et j'y ai trouvé des choses intéressantes.

Voilà à quoi ressemble le début du script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
use strict;
use Net::SSH::Perl;
 
my $host = "serveur";
my $username = "mon_login";
my $password = "mon_pass";
 
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($username, $password);
 
$ssh->cmd('mkdir /home/mon_login/bouyou');

Alors ce script fonctionne il n'y a pas de souci. Par contre c'est la fin qui me manque sur le fait de récupérer l'espace disque utilisé et d'envoyer le mail.


Merci de votre aide ^^ :-)

[d-jo]

Bonjour,
$ssh->cmd retourne ($out, $err, $exit)
$out est la sortie standard de la commande (STDOUT)
$err est la sortie d'erreur (STDERR)
et $exit l'état de sortie (en général 0 pour une sortie sans erreur) -> voire la page de manuel de la commande concernée.

Pour connaître l'état des disques sous unix c'est la commande du (souvent du -h )

Pour envoyer des mails, tu as Mail::Sender et sans doute beaucoup d'autres modules.

Avec ça, ça devrais aller.
A+
Joris

[Jedai]

Et bien tu récupères la sortie de la commande "du" et tu la parses, puis tu envoies un mail s'il y a problème. Pour envoyer un mail, tu peux te contenter d'utiliser Net::SMTP (dans le CORE depuis Perl5.7.3) si tu n'as pas besoin d'envoyer des mails compliqués, mais un simple avertissement en texte.

--
Jedaï

[Maillon]

Pour savoir l'espace disque utilisé j'utilise la commande df -h en fait qui me donne un pourcentage donc je ne sais pas si ça marchera avec ça ...

Et bien tu récupères la sortie de la commande "du" et tu la parses
--
Jedaï

Euh c'est ça le problème en fait ^^ commen tu fais pour récupérer la sortie d'une commande (celle de df -h par exemple) ? ^^

[d-jo]

Euh c'est ça le problème en fait ^^ commen tu fais pour récupérer la sortie d'une commande (celle de df -h par exemple) ? ^^

Dans $out

Joris

[Maillon]

Alors j'ai un peu avancé ^^

Voilà ce que j'ai pour le moment dans mon script info.pl :
--------------------------------------------
#!/usr/bin/perl -w
use strict;
use Net::SSH::Perl;

my $host = "cerbere";
my $username = "mon_login";
my $password = "mon_pass";

my $ssh = Net::SSH::Perl->new($host);
$ssh->login($username, $password);

$ssh->cmd('sh /home/mon_login/message.sh');
--------------------------------------------

Et dans le message.sh :
--------------------------------------------
#!/bin/sh

email="maillon@domaine.net"
message=/home/mon_login/script/recap.$$
limit="80"

df -h | tr "%" " " | awk '{ if ( $5 > $limit ) print $6" est utilisé a "$5"%. Il reste "$4" sur "$2" disponibles pour "$1"\n" } ' > $message

serveur=/bin/hostname

if [ $5 > $limit ]
then
mail -s "Alerte sur le serveur "$serveur" sur la partition "$6"." $email

fi
-------------------------------------------------

Sachant que j'ai bien copié le script message.sh sur toute les machines.

Alors pour l'instant j'ai deux souci : le premier c'est que le mail n'est pas envoyé. Pourtant je peux envoyé des mails par telnet. (peut-être qu'il faut que je rajoute le module Net::SMTP comme le suggère jedai ...)



Le souci majeur varie en fonction des serveurs sur lequel le script message.sh est exécuté, je m'explique.

Quand je lance la commande df -h j'obtiens ça :
---------------------------------------------------
SysFichier Tail. Util.Disp. Uti% Monté sur
/dev/sda8 2.0G 394M 1.5G 21% /
/dev/sda3 190M 11M 170M 6% /boot
none 1004M 0 1004M 0% /dev/shm
/dev/sda7 1012M 33M 928M 4% /tmp
/dev/sda5 9.7G 2.5G 6.7G 28% /usr
/dev/sda9 9.7G 546M 8.6G 6% /var
/dev/sda10 40G 49M 38G 1% /data
/dev/sda2 3.2G 37M 3.0G 2% /home
----------------------------------------------------

Sur le serveur cerbere (red hat 3) le script message.sh me génère un fichier dans lequel il y a :
--------------------------------------------------
/ est utilisé a 21%. Il reste 1.5G sur 2.0G disponibles pour /dev/sda8

/boot est utilisé a 6%. Il reste 170M sur 190M disponibles pour /dev/sda3

/tmp est utilisé a 4%. Il reste 928M sur 1012M disponibles pour /dev/sda7

/usr est utilisé a 28%. Il reste 6.7G sur 9.7G disponibles pour /dev/sda5

/var est utilisé a 6%. Il reste 8.6G sur 9.7G disponibles pour /dev/sda9

/data est utilisé a 1%. Il reste 38G sur 40G disponibles pour /dev/sda10

/home est utilisé a 2%. Il reste 3.0G sur 3.2G disponibles pour /dev/sda2
---------------------------------------------------

Donc ça marche là ^^

Par contre sur l'autre serveur zeus (red hat 4), le df -h me génère ça :
----------------------------------------------------
Sys. de fich. Tail. Occ. Disp. %Occ. Monté sur
/dev/mapper/VolGroup_ID_21242-LogVol1
1008M 506M 452M 53% /
/dev/sda3 99M 17M 78M 18% /boot
none 972M 0 972M 0% /dev/shm
/dev/mapper/VolGroup_ID_21242-LogVol2
496M 11M 460M 3% /tmp
/dev/mapper/VolGroup_ID_21242-LogVol5
9,9G 3,0G 6,6G 32% /usr
/dev/mapper/VolGroup_ID_21242-LogVol4
3,1G 195M 2,7G 7% /var
/dev/mapper/VolGroup_ID_21242-LogVolHome
131G 3,4G 121G 3% /home
------------------------------------------------------

Et le script message.sh me génère ça :
--------------------------------------------------------
est utilisé a /%. Il reste 53 sur 506M disponibles pour 1008M

/boot est utilisé a 18%. Il reste 78M sur 99M disponibles pour /dev/sda3

est utilisé a /tmp%. Il reste 3 sur 11M disponibles pour 496M

est utilisé a /usr%. Il reste 32 sur 3,0G disponibles pour 9,9G

est utilisé a /var%. Il reste 7 sur 195M disponibles pour 3,1G

est utilisé a /home%. Il reste 3 sur 3,4G disponibles pour 131G
----------------------------------------------------------

Il y a un léger petit souci là ...

[d-jo]

Pourquoi ne fais-tu pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ($out, $err, $exit) = $ssh->cmd("df -h");

Ensuite tu peux travailler sur $out directement.
Par exemple tu peux extraire les lignes qui contiennent 8\d%

Après, il suffit d'envoyer un mail avec les lignes en cause, le nom du serveur...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
my ($out, $err, $exit) = $ssh->cmd("df -h");
my @trop plein;
foreach my $line (split "/n",$out){
   push @trop_plein, $line if($line =~ /8\d%/);
}

Pas testé

Joris

Edit : plutôt quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

/[89]\d%|100%/