[PERL]Réseaux

Question

Salut,

j'aurai besoin d'aide concernant cet exo car j'ai du mal à comprendre comment il faut que je m'y prenne.
Si quelqu'un pouvait m'indiquer des pistes pour le démarrer ce serait sympa car je n'y arrive pas.

Merci par avance

Le but est de surveiller un certain nombre de services (en local ou en réseau) et de provoquer des actions en cas de d´efaillance d’un service.
Votre logiciel devra prendre en compte un fichier de configuration pour lequel vous utiliserez la syntaxe qui vous semblera la plus judicieuse ; une syntaxe vous est proposée, mais vous êtes libre de l’améliorer ou d’en changer complètement.
Le fichier de configuration devra permettre de configurer des paramétres généraux :Frequency(60) Surveillance toutes les 60 secondes
Mail.config(’mailetud’,’admin@foo.com’)Serveur et destinataire pour les courriels sortants
Database.config(’dbi:Pg:host=sqletud;dbname=maBaseAMoi’,’user’,’pass’)
Internet.ftpconfig(’serveur’,’user’,’pass’)

La configuration de votre moteur devra permettre de surveiller :
 • le système Linux sur lequel il est exécuté :
    System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque
    System.process(’apache’) vérification de l’existence d’un processus
    System.cpuload(10) charge du processeur (faisable facilement ?)
 • des services réseau :
   Internet.ping(’192.168.0.10’) machine en vie ?
   Internet.tcp(’192.168.0.10’,’25’) port toujours ouvert ?
   Internet.url(’http://foo/bar’) existence d’une URL (idem en ftp)
   Internet.url(’http://foo/bar’,’/path/to/file’) contenu d’une page web
 • la base de données :
    Database.alive() base en fonctionnement ?
    Database.request(’select * from c where a>100’)
    teste la non existence de résultat ; erreur si des lignes sont renvoyées
   Voici les actions que le logiciel pourrait déclencher :
 • Action.mail(’sujet’,’texte’) envoi d’un courriel
 • Action.ftp(’/full/path/to/local/file’,’/pub/directory’) envoi d’un fichier
 • Action.database(’update c set a=10 where a>100’) commande SQL

Les combinaisons entre les tests et les actions se font ainsi : test => action. Par exemple :
Internet.ping(’192.168.0.10’) => Action.mail(’HS’,’Machine 192.168.0.10 HS’)
System.disk(’/home’,99) => Action.ftp(’/home/user/plein.html’,’/var/www/’)
Votre logiciel devra fonctionner en tâche de fond et déclencher les tests demandés à la fréquence demandée. Il effectura les actions demandées le cas échéant. Il écrira un journal de son activité (log)
sous la forme d’un fichier texte indiquant les tests faits et les actions entreprises.

lami20j · Answer

Salut,

voilà un début
le script s'exécutera en tant que daemon
il faut être root pour l'exécuter

1. j'ai créer un fichier de configuration mon_daemon.conf dans /etc

Voici le contenu# la frequence dont le daemon execute les testes
# Ex : Frequenci NN  
# frequency insensible à la case
# NN nombre de secondes
frequency 10

2. le script daemon.pl
Le daemon va écrire tous les 10 secondes dans /var/log/log.daemon
jj/mm/yyyy hh:mm:ss daemon fonctionne
jj/mm/yyyy hh:mm:ss localhost en vie#!/usr/bin/perl
use warnings;use strict;

use POSIX;
use Time::HiRes;
use Net::Ping;

my $ping = Net::Ping->new();
my $resultat;
my $freq;


# fichier de configuration
open CONFIG,"/etc/mon_daemon.conf"
   or die "E/S : $!
";

while (<CONFIG>){
# on saute les commentaires
  next if /^#/;
# je recupere la frequence
  $freq=$1 if /frequency\s*(\d+)/i;
}


# exécution du script en tant que daemon
# 
my $pid=fork;
exit if $pid;
die "fork impossible : $!" unless defined($pid);

POSIX::setsid()
    or die "Pas de nouvelle session : $!
";

my $kill_pid = 0;

sub gestion_signaux {
    $kill_pid = 1;
}

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux;

# les taches que le daemon exécute
# chaque 10 secondes il va écrire
# dans /var/log/log.daemon
# dans le format
#jj/mm/yyyy hh:mm:ss   daemon fonctionne
#jj/mm/yyyy hh:mm:ss   localhost en vie
#   

until ($kill_pid) {
# calcule la date et l'heure du teste
# pour affichage dans journal
  my ($s,$mm,$h,$j,$m,$y) = (localtime)[0..5];
  $j  = sprintf("%02d",$j);
  $m  = sprintf("%02d",$m +=1);
  $y +=1900;
  $s  = sprintf("%02d",$s);
  $mm = sprintf("%02d",$mm);
  $h  = sprintf("%02d",$h);
  my $date = "$j/$m/$y $h:$mm:$s";

  open DAEMON,">> /var/log/log.daemon"
     or die "E/S : $!
";

  if ($ping->ping("localhost")){
     $resultat = "$date localhost en vie
";
  }
  print DAEMON "$date daemon fonctionne
$resultat"; 
  sleep($freq); 
}3. le fichier /var/log/log.daemon02/11/2006 22:15:34 daemon fonctionne
02/11/2006 22:15:34 localhost en vie
02/11/2006 22:15:44 daemon fonctionne
02/11/2006 22:15:44 localhost en vie
02/11/2006 22:15:54 daemon fonctionne
02/11/2006 22:15:54 localhost en vie
02/11/2006 22:16:04 daemon fonctionne
02/11/2006 22:16:04 localhost en vie
02/11/2006 22:16:14 daemon fonctionne
02/11/2006 22:16:14 localhost en vieTu remarques que le résultat est enregistré toutes les 10 secondes
dans le fichier de configuration tu peux changer la fréquence de test

lami20j

lami20j · Answer

Bien sûr ce n'est qu'un début.

tu peux créer un répertoire (ça sera ton logiciel)  qui contiendra plusieurs fichiers 

- le fichier de configuration par défaut
- un fichier script pour contrôler le daemon qui sera copier dans /etc/init.d
- le script daemon
- un fichier README
- si besoin une page man
- si besoin des options en ligne de commande qui te permettront de faire tout le test ( -all) ou seulement le ping ( -p), etc..
- un script d'installation qui va copier les fichiers de config et de contrôle de daemon à leur emplacement ainsi que le script daemon dans /usr/local/bin, aussi les pages man dans /usr/local/man/manN, etc..

Tu peux aussi créer un paquetage .rpm ou .deb qui pourra être installer avec les commandes spécifiques

lami20j

lami20j · Answer

J'ai ajouté dans le fichier de configuration localhost et un ip depuis mon LAN

1. le fichier de configuration# la frequence dont le daemon execute les testes
# Ex : Frequenci NN  
# frequency insensible à la case
# NN nombre de secondes
frequency 10

# vérification de la connexion
# faire un ping vers une machine (locale ou distante)
local.ping localhost
remote.ping 192.168.1.2
2. le script modifié#!/usr/bin/perl
use warnings;use strict;

use POSIX;
use Time::HiRes;
use Net::Ping;

my $ping = Net::Ping->new();
my ($local,$remote);
my $freq;
my ($localhost,$remotehost);

my $ip = qr/(?:\d{1,3}\.){3}\d{1,3}/;

# fichier de configuration
open CONFIG,"/etc/mon_daemon.conf"
   or die "E/S : $!
";

while (<CONFIG>){
# on saute les commentaires
  next if /^#/;
# je recupere la frequence
  $freq=$1 if /frequency\s*(\d+)/i;
# je recupere l'hôte locale
  $localhost = $1 if /local\.ping\s*(\w+)/i;
# je recupere l'hôte distante à vérifiier
  $remotehost = $1 if /remote\.ping\s*($ip)/i;
}

# exécution de script en tant que daemon
# 
my $pid=fork;
exit if $pid;
die "fork impossible : $!" unless defined($pid);

POSIX::setsid()
    or die "Pas de nouvelle session : $!
";

my $kill_pid = 0;

sub gestion_signaux {
    $kill_pid = 1;
}

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux;

# les taches que le daemon exécute
# chaque 10 secondes il va écrire
# dans /var/log/log.daemon
# dans le format
#jj/mm/yyyy hh:mm:ss   daemon fonctionne
#jj/mm/yyyy hh:mm:ss   localhost en vie
#   

until ($kill_pid) {
# calcule la date et l'heure du teste
# pour affichage dans journal
  my ($s,$mm,$h,$j,$m,$y) = (localtime)[0..5];
  $j  = sprintf("%02d",$j);
  $m  = sprintf("%02d",$m +=1);
  $y +=1900;
  $s  = sprintf("%02d",$s);
  $mm = sprintf("%02d",$mm);
  $h  = sprintf("%02d",$h);
  my $date = "$j/$m/$y $h:$mm:$s";

  open DAEMON,">> /var/log/log.daemon"
     or die "E/S : $!
";

  if ($ping->ping($localhost)){
     $local = "$date $localhost en vie";
  }
  if ($ping->ping($remotehost)){
     $remote = "$date $remotehost en vie";
  }
  print DAEMON "$date daemon fonctionne
$local
$remote
"; 
  sleep($freq);
}
3. le journal /var/log/log.daemon02/11/2006 23:10:26 daemon fonctionne
02/11/2006 23:10:26 localhost en vie
02/11/2006 23:10:26 192.168.1.2 en vie
02/11/2006 23:10:36 daemon fonctionne
02/11/2006 23:10:36 localhost en vie
02/11/2006 23:10:36 192.168.1.2 en vie
02/11/2006 23:10:46 daemon fonctionne
02/11/2006 23:10:46 localhost en vie
02/11/2006 23:10:46 192.168.1.2 en vie
02/11/2006 23:10:56 daemon fonctionne
02/11/2006 23:10:56 localhost en vie
02/11/2006 23:10:56 192.168.1.2 en vie
02/11/2006 23:11:06 daemon fonctionne
02/11/2006 23:11:06 localhost en vie
02/11/2006 23:11:06 192.168.1.2 en vielami20j

Stéphanie · Answer

Merci beaucoup lami20j pour ton aide.
Je vais regarder attentitevemnt ce que tu as écrit mais j'ai quelques questions.
    System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque
    System.process(’apache’) vérification de l’existence d’un processus
    System.cpuload(10) charge du processeur (faisable facilement ?)
 • des services réseau :
   Internet.ping(’192.168.0.10’) machine en vie ?
   Internet.tcp(’192.168.0.10’,’25’) port toujours ouvert ?
   Internet.url(’http://foo/bar’) existence d’une URL (idem en ftp)
...

Dans l'énoncé, les Internet. et System. indiquent en faite le module a utilisé pour pouvoir utilisé les fonctions ping, tcp etc ... c'est bien cela ?
Comment on fait pour savoir dans quel module se trouve une fonction qu'il me faudra utiliser ?

lami20j · Answer

Re,

 • le système Linux sur lequel il est exécuté :
    System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque
    System.process(’apache’) vérification de l’existence d’un processus
    System.cpuload(10) charge du processeur (faisable facilement ?)
 • des services réseau :
   Internet.ping(’192.168.0.10’) machine en vie ?
   Internet.tcp(’192.168.0.10’,’25’) port toujours ouvert ?
   Internet.url(’http://foo/bar’) existence d’une URL (idem en ftp)
   Internet.url(’http://foo/bar’,’/path/to/file’) contenu d’une page web
 • la base de données :
    Database.alive() base en fonctionnement ?
    Database.request(’select * from c where a>100’)
    teste la non existence de résultat ; erreur si des lignes sont renvoyées
   Voici les actions que le logiciel pourrait déclencher :
 • Action.mail(’sujet’,’texte’) envoi d’un courriel
 • Action.ftp(’/full/path/to/local/file’,’/pub/directory’) envoi d’un fichier
 • Action.database(’update c set a=10 where a>100’) commande SQL
:Frequency(60)

Ce que tu vois en gras j'ai déjà traité. Voir le script modifié.

Comment on fait pour savoir dans quel module se trouve une fonction qu'il me faudra utiliser ?

Ben, je ne sais pas par coeur. Il faut chercher sur le site de CPAN ou dans les modules standard.

lami20j

P.S. je vais regarder de plus près demain, pour ce soir je m'arrête là

Tu peux déjà tester ce que je t'ai donné.
Pour l'instant une fois le daemon démarrer si tu veux l'arrêter tape
ps aux | grep daemon.pl pour récuperer le PID
ensuite tu fait kill PID

lami20j · Answer

Pour  System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque voilà ce que j'ai trouvé sur cpan

https://metacpan.org/pod/release/IGUTHRIE/Filesys-Df-0.92/Df.pm

Pour Internet.ping(’192.168.0.10’) machine en vie ?
j'ai utilisé le module standard Net::Ping

lami20j

Stéphanie · Answer

Salut,

à la compilation du fichier daemon.pl, ce message apparait mais ça n'empeche pas le programme de fonctionner et j'ai bien le fichier log.daemon de créer
Use of uninitialized value in concatenation (.) or string at ./daemon.pl line 76, <CONFIG> line 10
Est-ce que c'est pareil chez toi et est-ce que tu as pu regarder  de plus pret ?

lami20j · Answer

Dit plutôt ce que tu fait.
Quel script tu as exécuté. As-tu fait des modifications?
Il n'y a pas de compilation manuelle.
Tu l'exécute tu simplement perl daemon.pl, c'est l'interpreteur Perl qui s'occupe de la compilation+exécution

Je ne peux pas t'aider si tu ne me dit ce que tu fait.

CONFIG c'est le handler vers le fichier de configuration.
Je ne sais pas que tu as écrit dans ce fichier.
Je n'ai pas fait un gestionnaire d'erreurs.

C'était seulement pour te donner une idée.

Je pourrai faire ton exo, mais ça ne te servira à rien de la voir comme ça prêt à porter

lami20j

P.S. Chez moi tel quel, ça fonctionne sans erreurs

Stéphanie · Answer

J'ai écrit les fichiers .conf et .pl dans un repétoire perl qui est dans mon /home/ en modifant les chemins pour que ce soit pris en compte.

Après j'ai fait un chmod +x daemon.pl puis ./daemon.pl
En procédant de cette manière, j'ai eu le message 
Use of uninitialized value in concatenation (.) or string at ./daemon.pl line 76, <CONFIG> line 10

J'ai aussi rajouté l'option -w dans 
#!/usr/bin/perl -w

lami20j · Answer

Re,

pas besoin de -w
j'ai déjà écrit use warnings;use strict;

Affiche le fichier de configuration s'il te plaît. Merci.

lami20j

lami20j · Answer

La ligne 76 du script

print DAEMON "$date daemon fonctionne
$local
$remote
"; 

la ligne 10 de CONFIG (fichier de configuration)

remote.ping 192.168.1.2

$remote doit capturer 192.168.1.2

A priori tu n'as rien ici, ou le format ne correspond pas

J'ai besoin de voir ton fichier de configuration

lami20j

Stéphanie · Answer

Le fichier de configuration est le même que celui  que tu avais écrit :
# la frequence dont le daemon execute les testes
# Ex : Frequenci NN  
# frequency insensible à la case
# NN nombre de secondes
frequency 10

# vérification de la connexion
# faire un ping vers une machine (locale ou distante)
local.ping localhost
remote.ping 192.168.1.2

lami20j · Answer

Fait un copier coller du script, tu dois y avoir une erreur quelque part.

lami20j

Stephanie · Answer

Les 2 fichiers:
# la frequence dont le daemon execute les testes
# Ex : Frequenci NN  
# frequency insensible à la case
# NN nombre de secondes
frequency 60

# vérification de la connexion
# faire un ping vers une machine (locale ou distante)
local.ping localhost
remote.ping 192.168.1.2
et
#!/usr/bin/perl
use warnings;
use strict;

use POSIX;
use Time::HiRes;
use Net::Ping;

my $ping = Net::Ping->new();
my ($local,$remote);
my $freq;
my ($localhost,$remotehost);

my $ip = qr/(?:\d{1,3}\.){3}\d{1,3}/;

# fichier de configuration
open CONFIG,"/home/stephanie/perl/mon_daemon.conf"
   or die "E/S : $!
";

while (<CONFIG>){
# on saute les commentaires
  next if /^#/;
# je recupere la frequence
  $freq=$1 if /frequency\s*(\d+)/i;
# je recupere l'hôte locale
  $localhost = $1 if /local\.ping\s*(\w+)/i;
# je recupere l'hôte distante à vérifiier
  $remotehost = $1 if /remote\.ping\s*($ip)/i;
}

# exécution de script en tant que daemon
# 
my $pid=fork;
exit if $pid;
die "fork impossible : $!" unless defined($pid);

POSIX::setsid()
    or die "Pas de nouvelle session : $!
";

my $kill_pid = 0;

sub gestion_signaux {
    $kill_pid = 1;
}

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux;

# les taches que le daemon exécute
# chaque 60 secondes il va écrire
# dans /var/log/log.daemon
# dans le format
#jj/mm/yyyy hh:mm:ss   daemon fonctionne
#jj/mm/yyyy hh:mm:ss   localhost en vie
#   

until ($kill_pid) {
# calcule la date et l'heure du teste
# pour affichage dans journal
  my ($s,$mm,$h,$j,$m,$y) = (localtime)[0..5];
  $j  = sprintf("%02d",$j);
  $m  = sprintf("%02d",$m +=1);
  $y +=1900;
  $s  = sprintf("%02d",$s);
  $mm = sprintf("%02d",$mm);
  $h  = sprintf("%02d",$h);
  my $date = "$j/$m/$y $h:$mm:$s";

  open DAEMON,">> /home/stephanie/perl/log.daemon"
     or die "E/S : $!
";

  if ($ping->ping($localhost)){
     $local = "$date $localhost en vie";
  }
  if ($ping->ping($remotehost)){
     $remote = "$date $remotehost en vie";
  }
  print DAEMON "$date daemon fonctionne
$local
$remote
"; 
  sleep($freq);
}

lami20j · Answer

Entre ces 2 lignes ajoute ça

print "$remotehost
"

donc tu aurasprint DAEMON "$date daemon fonctionne
$local
$remote
"; 
print "$remotehost
"
sleep($freq);lami20j

P.S. Bizarre, j'ai copier tes fichiers, et j'exécute chez moi. Pas de problèmes.

Affiche aussi le contenu de log.daemon pour voir

Stephanie · Answer

J'ai mis frequancy a 20 pour avoir plus de résultats.
Même après avoir fait ps aux | grep daemon.pl puis kill PID, le message continue de s'afficher ...
03/11/2006 22:11:13 daemon fonctionne
03/11/2006 22:11:13 localhost en vie

03/11/2006 22:11:38 daemon fonctionne
03/11/2006 22:11:38 localhost en vie

03/11/2006 22:12:03 daemon fonctionne
03/11/2006 22:12:03 localhost en vie

03/11/2006 22:12:28 daemon fonctionne
03/11/2006 22:12:28 localhost en vie

03/11/2006 22:12:53 daemon fonctionne
03/11/2006 22:12:53 localhost en vie

03/11/2006 22:13:18 daemon fonctionne
03/11/2006 22:13:18 localhost en vie

03/11/2006 22:13:27 daemon fonctionne
03/11/2006 22:13:27 localhost en vie

03/11/2006 22:13:43 daemon fonctionne
03/11/2006 22:13:43 localhost en vie

03/11/2006 22:13:52 daemon fonctionne
03/11/2006 22:13:52 localhost en vie

03/11/2006 22:14:03 daemon fonctionne
03/11/2006 22:14:03 localhost en vie

03/11/2006 22:14:17 daemon fonctionne
03/11/2006 22:14:17 localhost en vie

03/11/2006 22:14:28 daemon fonctionne
03/11/2006 22:14:28 localhost en vie

03/11/2006 22:14:42 daemon fonctionne
03/11/2006 22:14:42 localhost en vie

lami20j · Answer

donc il ne vois pas l'ip de la machine distante

mets ton fichier de configuration sur cjoint.com

lami20j

P.S. Entre temps je vais étudier en détails tes fichiers.

Stephanie · Answer

Pour ce qui est des différentes options qu'il faut coder :
• le système Linux sur lequel il est exécuté :
System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque
System.process(’apache’) vérification de l’existence d’un processus
System.cpuload(10) charge du processeur (faisable facilement ?)
• des services réseau :
Internet.ping(’192.168.0.10’) machine en vie ?
Internet.tcp(’192.168.0.10’,’25’) port toujours ouvert ?
Internet.url(’http://foo/bar’) existence d’une URL (idem en ftp)
Internet.url(’http://foo/bar’,’/path/to/file’) contenu d’une page web
• la base de données :
Database.alive() base en fonctionnement ?
Database.request(’select * from c where a>100’)
teste la non existence de résultat ; erreur si des lignes sont renvoyées
Voici les actions que le logiciel pourrait déclencher :
• Action.mail(’sujet’,’texte’) envoi d’un courriel
• Action.ftp(’/full/path/to/local/file’,’/pub/directory’) envoi d’un fichier
• Action.database(’update c set a=10 where a>100’) commande SQL
:Frequency(60) 

while (<CONFIG>){
# on saute les commentaires
  next if /^#/;
# je recupere la frequence
  $freq=$1 if /frequency\s*(\d+)/i;
# je recupere l'hôte locale
  $localhost = $1 if /local\.ping\s*(\w+)/i;
# je recupere l'hôte distante à vérifiier
  $remotehost = $1 if /remote\.ping\s*($ip)/i;
}

...
Ici, c'est le résultat des lignes.

open DAEMON,">> /home/stephanie/perl/log.daemon"
     or die "E/S : $!
";

  if ($ping->ping($localhost)){
     $local = "$date $localhost en vie";
  }
  if ($ping->ping($remotehost)){
     $remote = "$date $remotehost en vie";
  }

Dans le fichier de configuration, comment doivent s'écrire toutes les commandes pour analyse ? 
# la frequence dont le daemon execute les testes
# Ex : Frequenci NN  
# frequency insensible à la case
# NN nombre de secondes
frequency 20

# vérification de la connexion
# faire un ping vers une machine (locale ou distante)
local.ping localhost
remote.ping 192.168.1.2

Stephanie · Answer

http://cjoint.com/data/ldwKpfwh5h.htm

lami20j · Answer

Enleve cette ligne
my $ip = qr/(?:\d{1,3}\.){3}\d{1,3}/;

et au lieu de 

$remotehost = $1 if /remote\.ping\s*($ip)/i;

écrit

$remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i;

Pour ce qui est des différentes options qu'il faut coder : 

je vais voir ça demain

lami20j

P.S. le résultat de test j'aimerai le voir ce soir

As-tu une adresse 192.168.1.2 sur ton réseau?
je n'ai pas écrit un message si la machine n'existe pas
je vais le faire

lami20j · Answer

Si tu fait ce que j'ai dit ici perl reseaux#15
l'ip qui est dans le fichier de configuration sera affiché sur STDOUT (l'écran)

lami20j

Sthéphanie · Answer

Le message apparait toujours

Stéphanie · Answer

Je te mets ce qui est dans STDOUT ~/perl$ ./daemon.pl stephanie@ubuntu:~/perl$ Use of uninitialized value in concatenation (.) or string at ./daemon.pl line 77, line 10. 192.168.1.2 Use of uninitialized value in concatenation (.) or string at ./daemon.pl line 77, line 10. 192.168.1.2

lami20j · Answer

affiche le résultat de cette commandetail -1 mon_daemon.conf | perl -ne 'print length,"
"'lami20j

Stéphanie · Answer

~/perl$ tail -1 mon_daemon.conf | perl -ne 'print length,"
"'
23

lami20j · Answer

Tu utilises quel version de Perl?
Tu es sur quel Ubuntu?

Chez moi sous debian avec perl 5.8.4 ça fonctionne sans problème

Je vais voir demain sur ubuntu

En ce qui concerne le reste des tests, tu ne t'en sors pas?
En ce qui concerne Perl, sur une echelle de 0 à 20 tu es où? Tu n'est pas obligé de repondre.

lami20j

Stéphanie · Answer

Tu utilises quel version de Perl?
v5.8.7
Tu es sur quel Ubuntu?
Ubuntu Breezy
Chez moi sous debian avec perl 5.8.4 ça fonctionne sans problème
Je vais voir demain sur ubuntu
En ce qui concerne le reste des tests, tu ne t'en sors pas?
En ce qui concerne Perl, sur une echelle de 0 à 20 tu es où? Tu n'est pas obligé de repondre.
A la fac ou je suis, on a des cours de perl en accélére et cet exo à faire dans la foulée.
Je comprends ce qui est table de hashage, référence, tableau ... mais pour ce qui est des modules et des expressions régulières, ça coince ...
C'est pour ça que j'ai du mal avec l'exo.

lami20j · Answer

Re,

je viens de tester avec Perl 5.8.7 sous Cygwin et je n'ai pas des erreurs.

Je vois 2 solutions (une possible, la 2ème c'est une utopie

1ère - donc j'ai créer un rép /home/stephanie/perl et j'ai mis tes fichier dédans - chez moi ça fonctionne

Il faut que tu me dises (mais en détails) étape par étape ce que tu fait

2ème - tu me laisse me connecter chez toi par le biais d'un server ssh pour que je voie où est le problème

lami20j

lami20j · Answer

Salut,

J'ai la honte, je suis c** :-((

J'ai trouvé l'explication :-))))))))))))))))))))))))))))

Ce message n'est pas un erreur mais seulement un warnning qui nous dit qu'on a une variable qui reste undef au cours d'exécution du script

Use of uninitialized value in concatenation (.) or string at ./daemon.pl line 76, <CONFIG> line 10

Ce qui m'a induit en erreur c'est seulement la vérification de la variable $remotehost qui prend sa valeur depuis le fichier de configuration.

Mais ce n'est pas cette variable qui fait apparaître ce message d'avertissment mais la varible $remote$remotehost = $1 if /remote\.ping\s*($ip)/i;Jusqu'ici tout vas bien, $remotehost contiendra l'IP depuis le fichier de configuration

Et c'est ici que ça coince

La 1ère ligne dit
#Si tu arrive faire un ping alors $remote va contenir
  if ($ping->ping($remotehost)){

#cette valeur
     $remote = "$date $remotehost en vie";
  }Comme je n'ai pas traité le cas ou le ping ne fonctionne pas, et comme dans ton cas 192.168.1.2 ,n'existe pas sur ton réseau, alors $remote reste indefini.

Et quand on essaie d'écrire avec print DAEMON "$date daemon fonctionne
$local
$remote
"; On a le message d'avertissement Use of uninitialized value in concatenation (.) or string...................

Pourtant je t'ai posé la question dans mon message N°20 https://forums.commentcamarche.net/forum/affich-2453825-perl-reseaux#20

As-tu une adresse 192.168.1.2 sur ton réseau?
je n'ai pas écrit un message si la machine n'existe pas 

Voilà maintenant ce que tu dois ajouter à ton code pour ne plus avoir ce message d'avertissement (la partie en gras)   if ($ping->ping($remotehost)){
     $remote = "$date $remotehost en vie";
  } 
  else { # $remote contient une valeur si la condition du IF est fausse
     $remote = "$date $remotehost non connecté ou innexistant";
  }Donc je traite le cas else

si le ping ne fonctionne pas alors $date $remotehost non connecté ou innexistant sera inscrit dans le journal

Les fichiers de ton message 14 https://www.commentcamarche.net/s/http-www-commentcamarche-net-forum-affich-2453825-perl-reseaux-14  sont  ok.

En ce qui concernte l'arrêt avec kill

Quand tu fait ps aux | grep daemon.pl tu doit avoir un résultat de genreroot  7276  0.0  1.3  6776 3540 ?  Ss  08:25  0:00 /usr/bin/perl ./ddd.pltu dois faire kill 7276

lami20j

P.S. des fois il y a des petites choses devant nos yeux et on ne les voit pas :-(
Mais c'est bien quand on les decouvre :-)
Essaie de lire les messages attentivement et de me repondre ce que je te demande, pour eviter les casses tête.
Je parle de ma question As-tu une adresse 192.168.1.2 sur ton réseau? 
Je n'ai pas resté toute la nuit pour trouver ça, mais je me suis couché en pensant à ça, et voilà que je me reveille avec l'explication :-))

Stéphanie · Answer

Ok, désolé, de ne pas avoir vu la question ...

lami20j · Answer

Ce n'est pas grave. 
Tu as besoin pour quand de ton exo?

lami20j

Stéphanie · Answer

C'est à rendre avant le 19 novembre

lami20j · Answer

Ben,

alors j'ai le temps :-))

a savoir que 

System.disk(’hda3’,95) ou System.disk(’/home’,90) occupation disque


ne veut pas dire qu'il s'agit d'une fonction Perl, mais de la syntaxe du fichier de configuration 

A savoir que
fichier de configuration pour lequel vous utiliserez la syntaxe qui vous semblera la plus judicieuse ; une syntaxe vous est proposée, mais vous êtes libre de l’améliorer ou d’en changer complètement.

lami20j

Stéphanie · Answer

J'essaye de coder le System.disk suivant ce que tu avais déjà créer

J'ai écrit dans le fichier de configuration
#Systeme linux
system.disk('hda3',95)

puis dans le fichier perl (je n'ai écrit que ce que j'ai aouté), j'essaye de récupérer les parametres 
use FileSys::Df;
my $disk = FileSys::Df->new();
my ($name,$val);

while (<CONFIG>){
# on saute les commentaires
  next if /^#/;
# je recupere le nom du fichier et la valeur
  ($name,$val) = ($1,$2) if /system.\disk\.('(\w+)',(\d+))/i; 
}

 open DAEMON,">> /home/stephanie/perl/log.daemon"
     or die "E/S : $!
";

  if(defined($disk->df($name)){
      if($disk->df->{per} == $val){
	  print "ok
";
      }
      else{
	  print "erreur
";
      }
  }
Ca ne fonctionne pas

lami20j · Answer

Salut, tu dois être cohérente dans ton fichier de config au lieu de system.disk('hda3',95) mets plutôt system.disk hda3 95j'ai avancé un peu ton code system.disk('hda3',95) ça rassemble plutôt à une fonction qu'à une entrée dans un fichier de configuration :-) j'ai créé un script shell pour le démarrer le daemon et pour l'arrêter Pour démarrer il faut utiliser des options par exemple -f pour journaliser que ftp, -w que http, -l localhost mais je n'ai pas fini A savoir que pour l'instant j'ai travaillé dans le même répertoire Voilà ce que j'ai pour l'instant 1. le script de démarrage ou arrêt exod#!/bin/bash case $1 in 'start') perl exo ;; 'stop') kill -9 $(cat pid.exo) rm -f pid.exo ;; *) echo "Usage: perl exo {start|stop}" ;; esac 2. le daemon exo#!/usr/bin/perl use warnings;use strict; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; my $ping = Net::Ping->new(); my ($dev,$blocks); my ($local,$remote); my $freq; my ($localhost,$remotehost); my ($url,$surl); my ($ftp,$sftp); my (%CODE,%options); # fichier pid.exo # contient le PID du daemon open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; while (){ # on saute les commentaires next if /^#/; # la frequence $freq=$1 if /frequency\s*(\d+)/i; # l'hôte locale $localhost = $1 if /local\.ping\s*(\w+)/i; # l'hôte distante à vérifiier $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; # l'URL a vérifier $surl = (split /\s+/,$_)[1] if /^internet\.url/i; # le serveur ftp à vérifier $sftp = (split /\s+/,$_)[1] if /^internet\.ftp/i; # partition vérifier + taille du block ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; } $dev ="/dev/$dev"; # exécution de script en tant que daemon # print PID_EXO $$+1; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'all'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie"; } if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; } else { $remote = "$date $remotehost non connecté ou innexistant"; } if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; } if($ftp = Net::FTP->new("$sftp", Debug => 0)){ print DAEMON "$date $sftp connexion réussi "; } else { print DAEMON "$date $sftp connexion echouée "; } $ftp->quit; print DAEMON "$date @{ [`df --block-size=$blocks $dev`] }; $local; $remote "; FIN 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp", Debug => 0)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote " close DAEMON; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date @{ [`df --block-size=$blocks $dev`] } "; close DAEMON; FIN ); #========FIN TRAITEMENT CODE========# # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option getopts("alrfwhd",\%options); sub utilisation { die <

lami20j · Answer

Dans le message précedente il y a quelques erreurs.
je vais réecrire ce message, ne cherche pas à trouver les erreurs :-)

lami20j

lami20j · Answer

1. le script de démarrage ou arrêt exod#!/bin/bash case $1 in 'start') perl exo ;; 'stop') kill -9 $(cat pid.exo) rm -f pid.exo ;; *) echo "Usage: perl exo {start|stop}" ;; esac 2. le daemon exo#!/usr/bin/perl use warnings;use strict; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; my $ping = Net::Ping->new(); my ($dev,$blocks,$local,$remote,$freq); my ($localhost,$remotehost,$url,$surl); my ($ftp,$sftp,$user,$passwd); my (%CODE,%options); # fichier pid.exo # contient le PID du daemon open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; # récupération des données depuis # le fichier de configuratin exo.conf while (){ next if /^#/; # sauter les commentaires $freq=$1 if /frequency\s*(\d+)/i; $localhost = $1 if /local\.ping\s*(\S+)/i; $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; $surl = (split /\s+/,$_)[1] if /^internet\.url/i; ($sftp,$user,$passwd) = (split /\s+/,$_)[1..3] if /^internet\.ftp/i; ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; } # exécution de script en tant que daemon print PID_EXO $$+1; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; # consomation disque $dev ="/dev/$dev"; my $d=(`df --block-size=$blocks $dev`)[1]; my @d = split /\s+/,$d; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'all'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie"; } if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; } else { $remote = "$date $remotehost non connecté ou innexistant"; } if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; } if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; } else { print DAEMON "$date $sftp connexion echouée "; } $ftp->quit; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] $local; $remote "; close DAEMON; FIN 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote "; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] "; close DAEMON; FIN ); #==========TRAITEMENT CODE==========# # # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option getopts("alrfwhdH",\%options); sub utilisation { die <

Stéphanie · Answer

Merci lami20j
J'ai essayé de compiler le code mais ça m'indique que je n'avais pas le module Net::HTTP.
~$ ./exo.pl
Can't locate Net/HTTP.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.7 /usr/local/share/perl/5.8.7 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./exo.pl line 7.
BEGIN failed--compilation aborted at ./exo.pl line 7.
J'ai donc voulu l'installer avec cette commande mais ça me met ceci :
stephanie@ubuntu:~$ sudo apt-get install libwww-perl
Password:
Lecture des listes de paquets... Fait
Construction de l'arbre des dépendances... Fait
Les paquets supplémentaires suivants seront installés :
  libhtml-parser-perl libhtml-tagset-perl libhtml-tree-perl liburi-perl
Paquets suggérés :
  libio-socket-ssl-perl
Paquets recommandés :
  libmailtools-perl libhtml-format-perl libcompress-zlib-perl
Les NOUVEAUX paquets suivants seront installés :
  libhtml-parser-perl libhtml-tagset-perl libhtml-tree-perl liburi-perl
  libwww-perl
0 mis à jour, 5 nouvellement installés, 0 à enlever et 139 non mis à jour.
Il est nécessaire de prendre 0o/769ko dans les archives.
Après dépaquetage, 2322ko d'espace disque supplémentaires seront utilisés.
Souhaitez-vous continuer [O/n] ? O
Changement de support : veuillez insérer le disque
« Ubuntu 5.10 _Breezy Badger_ - Release i386 (20051012) »
dans le lecteur « /cdrom/ » et appuyez sur la touche Entrée
ESt-ce que c'est bien le paquet libwww-perl qu'il faut installer ?
Si c'est le cas, sais-tu comment résoudre cela ?

Stéphanie · Answer

En principe, s'il n'y a pas d'erreur avec Net::Ping et Net::FTP, c'est que le module Net est présent.
L'erreur est donc bizzarre

lami20j · Answer

Attention Net n'est pas un module mais un répertoire qui contient des modules.

Quand tu vois Net::HTTP en fait il s'agit du moduel Net::HTTP qui veut dire qu'il y a un répertoire parmi ce qui se trouve dans @INC qui contient le module HTTP.pm

Ici tu trouves le module Net::HTTP https://metacpan.org/search?q=net%3A%3Ahttp

J'ai avancé ton daemon. J'ai écrit l'envoie du mail.
Si ça t'interesse j'affiche le code ainsi que le fichier de configuration (j'ai changer la mise en page). De toute façon ce week-end je vais le finir.

A savoir que j'ai mis des options.

Si tu fait ./exo.pl tu auras un message qui va t'afficher les options disponibles (mais je n'ai pas fini encore)

par exemple
./exo.pl -a   -prends en compte tout les options
./exo.pl -l  - teste le ping localhost
etc...

Il faut contrôler un peu le daemon.
En plus l'option -a n'exécute pas l'envoie de mail, mais je peux l'inclure.


Encore une chose. Le fichier de configuration est traiter par le script pour une seule ligne mais on peut le personnaliser pour prendre en compte plusieurs

par exemple si j'écrit
internet.ping xxx.xxx.xxx.xxx
internet.ping xxx.xxx.xxx.xxx
le daemon ne va pas tester les deux


Tu as du remarquer que j'ai mis le code à exécuter dans un hachage ensuite dans SWITCH je fait un eval{$hachage{cle}

Si tu veux que je continue fait un signe, sinon je vais m'arrêter là.


A toi.

lami20j

Stéphanie · Answer

Attention Net n'est pas un module mais un répertoire qui contient des modules.

Quand tu vois Net::HTTP en fait il s'agit du moduel Net::HTTP qui veut dire qu'il y a un répertoire parmi ce qui se trouve dans @INC qui contient le module HTTP.pm

Tu utilises quelle version de Perl?
J'ai la version  v5.8.7

Ici tu trouves le module Net::HTTP https://metacpan.org/search?q=net%3A%3Ahttp
Ok, je vais aller le prendre

J'ai avancé ton daemon. J'ai écrit l'envoie du mail.
Si ça t'interesse j'affiche le code ainsi que le fichier de configuration (j'ai changer la mise en page). De toute façon ce week-end je vais le finir.
Ca m'interesse

A savoir que j'ai mis des options.

Si tu fait ./exo.pl tu auras un message qui va t'afficher les options disponibles (mais je n'ai pas fini encore)

par exemple
./exo.pl -a -prends en compte tout les options
./exo.pl -l - teste le ping localhost
etc...

Il faut contrôler un peu le daemon.
En plus l'option -a n'exécute pas l'envoie de mail, mais je peux l'inclure.


Encore une chose. Le fichier de configuration est traiter par le script pour une seule ligne mais on peut le personnaliser pour prendre en compte plusieurs

par exemple si j'écrit
internet.ping xxx.xxx.xxx.xxx
internet.ping xxx.xxx.xxx.xxx
le daemon ne vas pas tester les deux


Tu as du remarquer que j'ai mis le code à exécuter dans un hachage ensuite dans SWITCH je vait un eval{$hachage{cle}

J'ai regardé le code mais comme je l'ai indiqué, je n'avais pas pu le tester.
Merci bien pour toutes ses précisions et pour ce que tu fais

lami20j · Answer

Pour le mail j'ai téléchargé le module MIME::Lite Voici le fichier de config################################################ # # # EXO DAEMON RESEAU # # # ################################################ # Fichier de configuration pour le daemon exo # la frequence dont le daemon execute les testes # Ex : Frequenci NN # NN nombre de secondes frequency 10 # La structure du fichier de configuration # Les options sont insensibles à la case ############################################### # Les entrées pour le système # system.parametre valeur # il peut avoir plusieurs valeurs # les valeurs doivent être séparéé par un espace # la valeur de doit pas contenir des espaces # Ex: # system.disk hda3 95 # test espace partition system.disk hda7 95 ############################################## # Les entrées pour les services réseau # internet.parametre valeur # il peut avoir plusieurs valeurs # les valeurs doivent être séparéé par un espace # la valeur de doit pas contenir des espaces # Ex: #internet.ping 192.168.1.1 # vérification de la connexion # faire un ping vers une machine (locale ou distante) local.ping 127.0.0.1 remote.ping 192.168.1.2 # vérification d'existance et de la validité # d'un URL internet.url www.commentcamarche.net # test d'un serveur FTP internet.ftp ftp.fr.debian.org anonymous user@yahoo.fr ############################################## # Les entrées pour les champs action # # action.param 'valeur' 'valeur' # Ex: # action.mail 'sujet' 'texte' # envoie mail action.mail 'Daemon exo test' 'Commentcamarche? :-)' et le script#!/usr/bin/perl use warnings;use strict; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; use MIME::Lite; my $ping = Net::Ping->new(); my ($dev,$blocks,$local,$remote,$freq); my ($localhost,$remotehost,$url,$surl); my ($ftp,$sftp,$user,$passwd); my ($sujet,$texte); my (%CODE,%options); # fichier pid.exo # contient le PID du daemon open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; # récupération des données depuis # le fichier de configuratin exo.conf while (){ next if /^#/; # sauter les commentaires $freq=$1 if /frequency\s*(\d+)/i; $localhost = $1 if /local\.ping\s*(\S+)/i; $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; $surl = (split /\s+/,$_)[1] if /^internet\.url/i; ($sftp,$user,$passwd) = (split /\s+/,$_)[1..3] if /^internet\.ftp/i; ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; ($sujet,$texte) = ($1,$2) if /^action\.mail\s*'([^']*)'\s*'([^']*)'/i; } # exécution de script en tant que daemon print PID_EXO $$+1; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; # consomation disque $dev ="/dev/$dev"; my $d=(`df --block-size=$blocks $dev`)[1]; my @d = split /\s+/,$d; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'all'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie"; } if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; } else { $remote = "$date $remotehost non connecté ou innexistant"; } if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; } if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; } else { print DAEMON "$date $sftp connexion echouée "; } $ftp->quit; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] $local $remote "; close DAEMON; FIN 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote "; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] "; close DAEMON; FIN 'mail'=> <<'FIN' MIME::Lite->send('smtp','smtp.free.fr'); my $msg = new MIME::Lite From => 'lami20j@free.fr', To => 'lami20j@yahoo.fr', Subject => $sujet, Type => 'TEXT', Data => "$texte"; $msg->send(); FIN ); #==========TRAITEMENT CODE==========# # # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option getopts("alrfwhdHm",\%options); sub utilisation { die <

Stephanie · Answer

Salut, lorsque je tape : ./exo.pl j'ai ce message : stephanie@ubuntu:~$ df: `/dev/hda7': Aucun fichier ou répertoire de ce type Use of uninitialized value in split at ./exo.pl line 62, line 63. Utilisation: ./exo.pl Option Options : -a - tout les options -d - verification partition -f - teste une connexion ftp -h - aide courte -l - ping localhost -r - ping un hote distant -w - test la validite et l'existence d'un URL -m - envoie d'un mail (le sujet et le messages sont dans exo.conf) -H - aide longue ça ne revient pas au ~$ puis je tape ./exo.pl - a et ça me met les mesages suivants : ./exo.pl -a df: `/dev/hda7': Aucun fichier ou répertoire de ce type Use of uninitialized value in split at ./exo.pl line 62, line 63. stephanie@ubuntu:~$ Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63.Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63. Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63. Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63. Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63. Use of uninitialized value in concatenation (.) or string at (eval 14) line 32, line 63. J'arrete tout en faisant : ps aux | grep exo.pl kill PID Ensuite, j'essaye en lançant : ./exod.pl Usage: perl exo.pl {start|stop} Je tape donc : perl exo.pl start ~$ df: `/dev/hda7': Aucun fichier ou répertoire de ce type Use of uninitialized value in split at exo.pl line 62, line 63. Utilisation: exo.pl Option Options : -a - tout les options -d - verification partition -f - teste une connexion ftp -h - aide courte -l - ping localhost -r - ping un hote distant -w - test la validite et l'existence d'un URL -m - envoie d'un mail (le sujet et le messages sont dans exo.conf) -H - aide longue

lami20j · Answer

Salut,

affiche le résultat de la commande mount
merci.

lami20j

lami20j · Answer

Re,

comme je ne vais pas rester longtemps devant l'ordi, voilà ce que je te conseille

1. crée un répertoire 
mkdir /home/stephanie

2. dédans tu mets les 3 fichiers

exo ( le daemon )
exod ( le script de démarrage/arrêt)
exo.conf ( le fichier de configuration)

3. vérifie ton fichier de configuration (j'ai mis hda7 puisque j'ai un hda7, si tu n'as pas mets ce que tu as, il me semble que tu as une partition  hda3)

lami20j

P.S. Je t'ai dit que je n'ai pas gérer les erreurs. Ca devient trop compliquer pour un exo de passage (ton prof doit être ou f** ou c**)
et ça ne vaut pas le coup

Donc pour eviter les erreurs il faut comprendre ce qui ce passe et il faut avoir un bon fichier de configuration.

Une mauvaise syntaxe dans le fichier de configuration ne permettra pas l'exécution de script.

D'ailleurs mettre le message dans mail dans un fichier de configuration me fait rire un peu :-))


Il me semble que c'est le moment de te créer un compte sur CCM ;-)

Stephanie · Answer

Résultat de la commande mount
/dev/hdc1 on / type ext3 (rw,errors=remount-ro)
proc on /proc type proc (rw)
sysfs on /sys type sysfs (rw)
devpts on /dev/pts type devpts (rw,gid=5,mode=620)
tmpfs on /dev/shm type tmpfs (rw)
usbfs on /proc/bus/usb type usbfs (rw)
tmpfs on /lib/modules/2.6.12-9-386/volatile type tmpfs (rw,mode=0755)
tmpfs on /dev type tmpfs (rw,size=10M,mode=0755)

lami20j · Answer

Re,

donc au lieu de hda7 tu doit mettre hdc1
/dev/hdc1 on / type ext3 (rw,errors=remount-ro)

lami20j

Stephanie · Answer

Ok, je vais me créer un compte

Stephanie · Answer

Il y a un souci  pour la création d'un compte, j'essaierai plus tard.
Pour les requets sql, tu sais comment ça se passe ?

lami20j · Answer

Re,


Database.config(’dbi:Pg:host=sqletud;dbname=maBaseAMoi’,’user’,’pass’)

• la base de données :
    Database.alive() base en fonctionnement ?
    Database.request(’select * from c where a>100’)
    teste la non existence de résultat ; erreur si des lignes sont renvoyées
   Voici les actions que le logiciel pourrait déclencher :

• Action.database(’update c set a=10 where a>100’) commande SQL

Oui, je sais le faire, mais ça sera pour un peu plus tard.
Pour l'instant vaut mieux que tu arrives à exécuter ce qu'on a déjà fait.

lami20j

P.S. Je n'ai pas oublie que le terme c'est le 19/11 :-))

Stéphanie · Answer

Toutes les options fonctionnent correctement mais pour l'envoi de mail, le résultat de s'affiche pas dans log.exo et lorsque je donne comme action seulement envoyer un mail, le fichier log.exo ne se créer pas

De plus, lorsque je lance ./exod.pl, ça me donne l'affichage de la manière de procéder :
./exod.pl
Usage: perl exo.pl {start|stop}
ensuite, je fais perl exo.pl start, ça donne la manière de procéder et les options disponibles. Je lance quelques options

Lorsque je fais perl exo.pl stop, les processus ne s'arretent pas et je dois les arreter avec ps aux | grep exo.pl puis kill

lami20j · Answer

Re, je vois que tu ne me laisse pas partir de la maison :-) Toutes les options fonctionnent correctement ok mais pour l'envoi de mail, le résultat de s'affiche pas dans log.exo et lorsque je donne comme action seulement envoyer un mail, le fichier log.exo ne se créer pas Oui, je sais. Je n'ai pas écrit dans le code. Lorsque je fais perl exo.pl stop, les processus ne s'arretent pas et je dois les arreter avec ps aux | grep exo.pl puis kill Ca parce qu'il y a plusieurs instances qui sont démarrées. Pour l'instant tu démarres le daemon et si tu veux tester une autre options d'abord tu l'arrêtes avec exod stop sinon quand tu fait ps aux | grep exo.pl tu as toutes les instances à tuer J'ai modifier le script de démarrage. Par défaut il démarre avec toutes les options -a Si tu veux le démarrer avec une options particulière alors il faut l'exécuter directement. J'ai modifier le script de démarrage ainsi que le daemon. 1. Script de démarrage je teste si le daemon est démaré si oui je ne le redémarre pas si non je le démarre #!/bin/bash case $1 in 'start') if [ -e pid.exo ];then echo "le daemon est déjà démarré"; exit else perl exo -a fi ;; 'stop') if [ ! -e pid.exo ];then echo "le daemon n'est pas démarré"; exit else kill -9 $(cat pid.exo) rm -f pid.exo fi ;; *) echo "Usage: perl exo {start|stop}" ;; esac 2. le script si le fichier pid.exo existe alors le daemon est démarrer donc je ne le redémarre pas ainsi on evitera d'avoir lancer le daemon plusieurs fois #!/usr/bin/perl use warnings;use strict; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; use MIME::Lite; my $ping = Net::Ping->new(); my ($dev,$blocks,$local,$remote,$freq); my ($localhost,$remotehost,$url,$surl); my ($ftp,$sftp,$user,$passwd); my ($sujet,$texte); my (%CODE,%options); # fichier pid.exo # contient le PID du daemon # tester l'existence # si existe alors le daemon est déjà démarrée die "Le daemon \e[2mexo\e[m est déjà démarré! " if open LIRE_PID_EXO,"pid.exo"; close(LIRE_PID_EXO); open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; # récupération des données depuis # le fichier de configuratin exo.conf while (){ next if /^#/; # sauter les commentaires $freq=$1 if /frequency\s*(\d+)/i; $localhost = $1 if /local\.ping\s*(\S+)/i; $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; $surl = (split /\s+/,$_)[1] if /^internet\.url/i; ($sftp,$user,$passwd) = (split /\s+/,$_)[1..3] if /^internet\.ftp/i; ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; ($sujet,$texte) = ($1,$2) if /^action\.mail\s*'([^']*)'\s*'([^']*)'/i; } # exécution de script en tant que daemon print PID_EXO $$+1; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; # consomation disque $dev ="/dev/$dev"; my $d=(`df --block-size=$blocks $dev`)[1]; my @d = split /\s+/,$d; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'all'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie"; } if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; } else { $remote = "$date $remotehost non connecté ou innexistant"; } if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; } if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; } else { print DAEMON "$date $sftp connexion echouée "; } $ftp->quit; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] $local $remote "; close DAEMON; FIN 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote "; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] "; close DAEMON; FIN 'mail'=> <<'FIN' open DAEMON,">> log.exo" or die "E/S : $! "; MIME::Lite->send('smtp','smtp.free.fr'); my $msg = new MIME::Lite From => 'lami20j@free.fr', To => 'lami20j@yahoo.fr', Subject => $sujet, Type => 'TEXT', Data => "$texte"; if($msg->send()){print DAEMON "$date Message envoyé "} FIN ); #==========TRAITEMENT CODE==========# # # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option getopts("alrfwhdHm",\%options); sub utilisation { die <

lami20j · Answer

Re,

j'ai ajouter 2 options au script de démarrage
status - voir si le daemon fonctionne ou pas
restart - arrêt et redémarrage de daemon
#!/bin/bash

case $1 in
'start')
       if [ -e pid.exo ];then 
         echo "le daemon exo est déjà démarré";
         exit
         else
         perl exo -a
         echo "démarrage d'exo avec toutes les options OK"
       fi
       ;;
'stop')
       if [ ! -e pid.exo ];then 
         echo "le daemon n'est pas démarré"
         exit
       else
         kill -9 $(cat pid.exo)
         rm -f pid.exo
       fi
       ;;
'restart')
       if [ -e pid.exo ];then 
         kill -9 $(cat pid.exo)
         rm -f pid.exo
         echo "arrête de daemon exo"
         perl exo -a
         echo "redémarrage d'exo avec toutes les options OK"
       else
         echo "le daemon n'est pas démarré"			 
       fi
       ;;
'status')
       if [ -e pid.exo ];then
         echo $(cat pid.exo) exo run
       else
         echo "le daemon exo n'est pas démarré"
       fi
       ;;
*)
       echo "Usage: perl exo {start|stop|restart|status}"
       ;;
esac
lami20j

P.S. Tu n'as à démarrer le daemon en lançant le script que si tu veux le démarrer avec une option particulère

Nomme les fichiers comment je l'ai fait
exo      - le daemon (script perl)
exod     - le script de démarrage (script shell)
exo.conf - le fichier de config (fichier texte)

lami20j · Answer

Re, pour aujourd'hui je m'arrête ici. Voilà les dernières modifications - quand tu essaie de démarrer le daemon d'abord je vérifie s'il est en marche si oui il va t'afficher aussi avec quelle option il fonctionne Utilise le script de démarrage pour arrêter pour démarrer pour redémarrer pour vérifier le status Si tu veux le démarrer avec une option particulière démarre le daemon avec l'option choisie Par exemple exo -f Le script exod#!/bin/bash case $1 in 'start') if [ -e pid.exo ];then echo "le daemon exo est déjà démarré avec " $(cat pid.exo | grep -Eo '[^0-9]+') exit else perl exo -a echo "démarrage d'exo avec toutes les options OK" fi ;; 'stop') if [ ! -e pid.exo ];then echo "le daemon n'est pas démarré" exit else kill -9 $(cat pid.exo | grep -Eo '[0-9]+') rm -f pid.exo fi ;; 'restart') if [ -e pid.exo ];then kill -9 $(cat pid.exo | grep -Eo '[0-9]+') rm -f pid.exo echo "arrête de daemon exo" perl exo -a echo "redémarrage d'exo avec toutes les options OK" else echo "le daemon n'est pas démarré" fi ;; 'status') if [ -e pid.exo ];then echo $(cat pid.exo) exo run else echo "le daemon exo n'est pas démarré" fi ;; *) echo "Usage: perl exo {start|stop|restart|status}" ;; esacLe daemon exo#!/usr/bin/perl use warnings;use strict; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; use MIME::Lite; my $ping = Net::Ping->new(); my ($dev,$blocks,$local,$remote,$freq); my ($localhost,$remotehost,$url,$surl); my ($ftp,$sftp,$user,$passwd); my ($sujet,$texte); my (%CODE,%options); getopts("alrfwhdHm",\%options); # fichier pid.exo # contient le PID du daemon # tester l'existence # si existe alors le daemon est déjà démarrée die "Le daemon \e[2mexo\e[m est déjà démarré avec l'",(split /:/,(`cat pid.exo`))[1]," ! " if open LIRE_PID_EXO,"pid.exo"; close(LIRE_PID_EXO); open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; # récupération des données depuis # le fichier de configuratin exo.conf while (){ next if /^#/; # sauter les commentaires $freq=$1 if /frequency\s*(\d+)/i; $localhost = $1 if /local\.ping\s*(\S+)/i; $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; $surl = (split /\s+/,$_)[1] if /^internet\.url/i; ($sftp,$user,$passwd) = (split /\s+/,$_)[1..3] if /^internet\.ftp/i; ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; ($sujet,$texte) = ($1,$2) if /^action\.mail\s*'([^']*)'\s*'([^']*)'/i; } # exécution de script en tant que daemon print PID_EXO $$+1," :option -",keys %options; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; # consomation disque $dev ="/dev/$dev"; my $d=(`df --block-size=$blocks $dev`)[1]; my @d = split /\s+/,$d; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'all'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie"; } if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; } else { $remote = "$date $remotehost non connecté ou innexistant"; } if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; } if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; } else { print DAEMON "$date $sftp connexion echouée "; } $ftp->quit; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] $local $remote "; close DAEMON; FIN 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote "; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] "; close DAEMON; FIN 'mail'=> <<'FIN' open DAEMON,">> log.exo" or die "E/S : $! "; MIME::Lite->send('smtp','smtp.free.fr'); my $msg = new MIME::Lite From => 'lami20j@free.fr', To => 'lami20j@yahoo.fr', Subject => $sujet, Type => 'TEXT', Data => "$texte"; if($msg->send()){print DAEMON "$date Message envoyé "} FIN ); #==========TRAITEMENT CODE==========# # # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option sub utilisation { die <

lami20j · Answer

Il nous reste à faire 

    System.process(’apache’) vérification de l’existence d’un processus
    System.cpuload(10) charge du processeur (faisable facilement ?)

   Internet.tcp(’192.168.0.10’,’25’) port toujours ouvert ?
   Internet.url(’http://foo/bar’,’/path/to/file’) contenu d’une page web


    Database.alive() base en fonctionnement ?
    Database.request(’select * from c where a>100’)


 • Action.ftp(’/full/path/to/local/file’,’/pub/directory’) envoi d’un fichier
 • Action.database(’update c set a=10 where a>100’) commande SQL

lami20j

lami20j · Answer

Salut, voilà la dernière version 1. Fichier de configuration################################################ # # # EXO DAEMON RESEAU # # # ################################################ # Fichier de configuration pour le daemon exo # la frequence dont le daemon execute les testes # Ex : Frequenci NN # NN nombre de secondes frequency 20 # La structure du fichier de configuration # Les options sont insensibles à la case ############################################### # Les entrées pour le système # system.parametre valeur # il peut avoir plusieurs valeurs # les valeurs doivent être séparéé par un espace # la valeur de doit pas contenir des espaces # Ex: # system.disk hda3 95 # system.disk home 95 # test espace partition system.disk /home 95 # test existence processus system.process httpd ############################################## # Les entrées pour les services réseau # internet.parametre valeur # il peut avoir plusieurs valeurs # les valeurs doivent être séparéé par un espace # la valeur de doit pas contenir des espaces # Ex: #internet.ping 192.168.1.1 # vérification de la connexion # faire un ping vers une machine (locale ou distante) local.ping 127.0.0.1 remote.ping 192.168.1.2 # vérification d'existance et de la validité # d'un URL internet.url www.commentcamarche.net # test d'un serveur FTP internet.ftp ftp.fr.debian.org anonymous user@yahoo.fr # tester port internet.tcport www.commentcamarche.net 80 # récupération page web # syntaxe : internet.tcp|url|/chemin/vers/fichier internet.tcp|https://www.google.fr/?gws_rd=ssl|gethttp ############################################## #Les entrées pour la base de données # # Ex: # database.alive nombase utilisateur motdepasse database.alive exobase postgres azerty # Ex # database.request 'select * from nomtable where champ>100' database.request 'select * from stock where quantite>100' ############################################## # Les entrées pour les champs action # # action.param 'valeur' 'valeur' # Ex: # action.mail 'sujet' 'texte' # envoie mail action.mail 'Daemon exo test' 'Commentcamarche? :-)' 2. Script de démarrage#!/bin/bash if [ -e pid.exo ];then pid=$(cat pid.exo | grep -Eo '[0-9]+') fi case $1 in 'start') if [ -e pid.exo ];then echo "le daemon exo est déjà démarré avec " $(cat pid.exo | grep -Eo '[^0-9]+') exit else perl exo -a echo "démarrage d'exo avec toutes les options OK" fi ;; 'stop') if [ ! -e pid.exo ];then echo "le daemon n'est pas démarré" exit else echo "le daemon exo (PID $pid) arrêté avec succes" kill -9 $(cat pid.exo | grep -Eo '[0-9]+') rm -f pid.exo fi ;; 'restart') if [ -e pid.exo ];then kill -9 $(cat pid.exo | grep -Eo '[0-9]+') rm -f pid.exo echo "arrête de daemon exo" perl exo -a echo "redémarrage d'exo avec toutes les options OK" else echo "le daemon n'est pas démarré" fi ;; 'status') if [ -e pid.exo ];then echo "$(cat pid.exo) exo en marche" else echo "le daemon exo n'est pas démarré" fi ;; *) echo "Usage: perl exo {start|stop|restart|status}" ;; esac 3. Daemon#!/usr/bin/perl use strict;use warnings; use POSIX; use Time::HiRes; use Net::Ping; use Net::HTTP; use Net::FTP; use Getopt::Std; use MIME::Lite; use DBI; use IO::Socket::INET; use LWP::Simple; my $ping = Net::Ping->new(); my ($dev,$blocks,$local,$remote,$freq); my ($localhost,$remotehost,$url,$surl); my ($ftp,$sftp,$user,$passwd); my ($sujet,$texte); my (%CODE,%options); my ($db,$dbuser,$dbuserpasswd,$req); my ($ip,$port,$web,$d_web); my $proc; getopts("adflmprwDPRW",\%options); # fichier pid.exo # contient le PID du daemon # tester l'existence # si existe alors le daemon est déjà démarrée die "Le daemon \e[2mexo\e[m est déjà démarré avec l'",(split /:/,(`cat pid.exo`))[1]," ! " if open LIRE_PID_EXO,"pid.exo"; close(LIRE_PID_EXO); open PID_EXO,">pid.exo" or die "E/S : $! "; # fichier de configuration open CONFIG,"exo.conf" or die "E/S : $! "; # récupération des données depuis # le fichier de configuratin exo.conf while (){ next if /^#/; # sauter les commentaires $freq=$1 if /frequency\s*(\d+)/i; $localhost = $1 if /local\.ping\s*(\S+)/i; $req = $1 if /^database\.request\s+'([^']*)'/i; ($sujet,$texte) = ($1,$2) if /^action\.mail\s*'([^']*)'\s*'([^']*)'/i; ($ip,$port) = (split /\s+/,$_)[1,2] if /^internet\.tcport/i; ($web,$d_web) = (split /\|/,$_)[1,2],1 if /^internet\.tcp/i; $remotehost = (split /\s+/,$_)[1] if /^remote\.ping/i; ($dev,$blocks) = (split /\s+/,$_)[1,2] if /^system\.disk/i; $surl = (split /\s+/,$_)[1] if /^internet\.url/i; $proc = (split /\s+/,$_)[1] if /^system\.process/i; ($sftp,$user,$passwd) = (split /\s+/,$_)[1..3] if /^internet\.ftp/i; ($db,$dbuser,$dbuserpasswd) = (split /\s+/,$_)[1,2,3] if /^database\.alive/i; } # exécution de script en tant que daemon print PID_EXO $$+1," :option -",keys %options; my $pid=fork; exit if $pid; die "fork impossible : $!" unless defined($pid); POSIX::setsid() or die "Pas de nouvelle session : $! "; my $kill_pid = 0; sub gestion_signaux { $kill_pid = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&gestion_signaux; # consomation disque unless ($dev =~///){ $dev="/dev/$dev"; } my $d=(`df --block-size=$blocks $dev`)[1]; my @d = split /\s+/,$d; ##################################### # TRAITEMENT CODE # ##################################### # %CODE=( 'ftp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if($ftp = Net::FTP->new("$sftp") and $ftp->login($user,$passwd)){ print DAEMON "$date $sftp connexion réussi "; close DAEMON; } else { print DAEMON "$date $sftp connexion echouée "; close DAEMON; } $ftp->quit; FIN 'http'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ( ($url = Net::HTTP->new(Host => "$surl")) and ($url->write_request(GET => "/")) ) { print DAEMON "$date $surl valide et existe sur web "; close DAEMON; } else { print DAEMON "$date $surl inexistant || hors connexion || format invalide "; close DAEMON; } FIN 'local'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($localhost)){ $local = "$date $localhost en vie "; print DAEMON "$local"; close DAEMON; } FIN 'remote'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if ($ping->ping($remotehost)){ $remote = "$date $remotehost en vie"; print DAEMON "$remote "; close DAEMON; } else { $remote = "$date $remotehost non connecté ou innexistant"; print DAEMON "$remote "; close DAEMON; } FIN 'dev'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; print DAEMON "$date Sys. de fichiers : $d[0] $date ${blocks}B-blocs : $d[1] $date Occupé : $d[2] $date Disponible : $d[3] $date Capacité : $d[4] $date Monté sur : $d[5] "; close DAEMON; FIN 'mail'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; MIME::Lite->send('smtp','smtp.free.fr'); my $msg = new MIME::Lite From => 'lami20j@free.fr', To => 'lami20j@yahoo.fr', Subject => $sujet, Type => 'TEXT', Data => "$texte"; if($msg->send()){print DAEMON "$date Message envoyé "} close DAEMON; FIN 'dbpsql'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if(my $dbh=DBI->connect("dbi:Pg:dbname=$db","$dbuser","$dbuserpasswd",{ PrintError => 0, RaiseError => 0,})){ print DAEMON "$date utilisateur $dbuser connecté à la base $db "; close DAEMON; }else { print DAEMON "$date $DBI::errstr"; close DAEMON; } FIN 'dbreq'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; if(my $dbh=DBI->connect("dbi:Pg:dbname=$db","$dbuser","$dbuserpasswd",{ PrintError => 0, RaiseError => 0,})){ my $t = $dbh->prepare("$req"); $t->execute(); if ($t->fetchrow_array){ print DAEMON "$date $req OK "; close DAEMON; }else { print DAEMON "$date $DBI::state $DBI::err $DBI::errstr"; close DAEMON; } } FIN 'port'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; my $sock=IO::Socket::INET->new(PeerAddr =>$ip, PeerPort =>$port); if ($sock){ print DAEMON "$date port $port sur $ip ouvert "; close DAEMON; }else { print DAEMON "$date port $port sur $ip n'est pas ouvert "; close DAEMON; } FIN 'gethttp'=> <<'FIN', open DAEMON,">> log.exo" or die "E/S : $! "; # écriture de la page web récupérée my $r_url = get($web); if($r_url){ print DAEMON "$date page d'index $web récupérée "; close DAEMON; open URL_R,">>$d_web" or die "E/S : $! "; print URL_R " ==========$date DEBUT $web ========== $r_url ==========FIN========== "; }else { print DAEMON "$date page d'index $web n'a pas été récupérée "; close DAEMON; } FIN 'proc'=> <<'FIN' open DAEMON,">> log.exo" or die "E/S : $! "; if( `ps -A | grep $proc` ){ print DAEMON "$date $proc est en marche "; close DAEMON; }else{ print DAEMON "$date $proc n'est pas en marche "; close DAEMON; } FIN ); #==========TRAITEMENT CODE==========# # # Traitement des options qu'on puisse passer au script # le message qui s'affice sur STDOUT # si on exécute le script sans aucune option sub utilisation { die < 1){ unlink glob("pid.exo") and utilisation () and die} # le Daemon va exécuter # chaque N secondes il va écrire # le journal log.exo a le format #jj/mm/yyyy hh:mm:ss information # until ($kill_pid) { # calcule la date et l'heure du test my $date =strftime "%d/%m/%Y %H:%M:%S",localtime; SWITCH: { if($options{a}){ for(keys %CODE){eval "$CODE{$_}"}; sleep($freq); last SWITCH } if($options{d}){ eval "$CODE{dev}"; sleep($freq); last SWITCH } if($options{f}){ eval "$CODE{ftp}"; sleep($freq); last SWITCH } if($options{l}){ eval "$CODE{local}"; sleep($freq); last SWITCH } if($options{m}){ eval "$CODE{mail}"; sleep($freq); last SWITCH } if($options{p}){ eval "$CODE{proc}"; sleep($freq); last SWITCH } if($options{r}){ eval "$CODE{remote}"; sleep($freq); last SWITCH } if($options{w}){ eval "$CODE{http}"; sleep($freq); last SWITCH } if($options{D}){ eval "$CODE{dbpsql}"; sleep($freq); last SWITCH } if($options{P}){ eval "$CODE{port}"; sleep($freq); last SWITCH } if($options{R}){ eval "$CODE{dbreq}"; sleep($freq); last SWITCH } if($options{W}){ eval "$CODE{gethttp}";sleep($freq); last SWITCH } unlink glob("pid.exo") and utilisation() and die; } } __END__ une autre méthode pour récupérer le contenu d'une page web use LWP::UserAgent; my $agent = LWP::UserAgent->new(); my $req = HTTP::Request->new(GET => 'http://www.commentcamarche.net'); my $res = $agent->request($req); print $res->content; a savoir que pour exécuter un programme Perl en tant que daemon il y a sur CPAN le module Proc::Daemon Il reste • Action.ftp(’/full/path/to/local/file’,’/pub/directory’) envoi d’un fichier • Action.database(’update c set a=10 where a>100’) commande SQL • System.cpuload(10) charge du processeur (faisable facilement ?) lami20j P.S. si tu ne t'en sors pas fait un signe

[PERL]Réseaux

56 réponses

Discussions similaires

Newsletters