Discussion :

[JUSTIN Loïc]

Bonjour
J'ai un gros problème de script en effet, il génère énormément d'erreur dans le fichier log.
Voici la partie du script

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
else {
      if ( $sort_pref eq "catalogue" ) {
        $outil = $connDB->selectrow_array("SELECT b.methode FROM catalogues a, domaines b WHERE a.id_dom=b.id_dom AND catalogue='$PrevRupt';");
        if ($outil==0){
          $Title="Catalogue/Master $PrevRupt";
        }
        if ($outil==1){
          $Title="Catalogue $PrevRupt";
        }
        if ($outil==2){
          $Title="Master $PrevRupt";
        }
        if ($outil==3){
          $Title="Site $PrevRupt";
        }
        if ($outil==4){
          $Title="Utility Node $PrevRupt";
        }
      }
      else {
        $Title= "$sort_pref $PrevRupt";
	$affniv = 1;
      }
    }

Le probleme survient quand la variable $sort_pref est different de catalogue, aucun problème dans le cas contraire.

Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 483.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 485.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 486.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 487.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 488.

Pour information, la ligne 483 correspond à

Code :

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

if ($outil==4){

La question est : Pourquoi, je reçoit ces messages d'erreur alors qu'il ne devrait pas passer dans la boucle.
D'avance merci pour votre aide

[Dimitry.e]

Quelle boucle ?
Es-tu sûr des numéros de tes lignes d'erreur ?

[JUSTIN Loïc]

Voici le script avec l’indentation sous vi

483 if ($outil==4){
484 $Title="Utility Node $PrevRupt";
485 }
486 }
487 else {
488 $Title= "$sort_pref $PrevRupt";
489 $affniv = 1;

La boucle concernée c'est celle qui commence au premier else {
qui teste si la variable $sort_pref est égale à catalogue.
Cordialement

[thierry.chich]

Si la question est: pourquoi y-a-'il ce message ?, la réponse est: probabblement parce que $PrevRupt n'est pas initialisé. Peut-être que mettre un

Code :

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

my $PrevRupt="toto"

éliminerait le message.

Si la question est: pourquoi est-ce que ça rentre dans la boucle, je crois qu'il est impossible pour nous de répondre en l'état.

[JUSTIN Loïc]

Bonjour

Toujours pas reussi à ressoudre mon probleme.
Meme apres avoir mis la fonction complete en commentaire, il me la ressort comme meme en erreur. Donc là, je seche completement.

[Cyrano27]

Bonjour,

Une question qui va te paraître plutôt bête mais es-tu dans le bon script ? Car dans tes messages d'erreur, tu as une erreur aussi sur la ligne 485. Or la ligne 485 ne contient qu'un "}" !
Surtout que tu dis avoir tout mis en commentaire et que les erreurs continuent !

[JUSTIN Loïc]

Non, je ne me trompe pas de fichier car dans la trace, il donne explicitement son nom.

Code :

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

1
2
3
4
5
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 483.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 484.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 485.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 486.
Use of uninitialized value in array element at /data/infsvg/apache/perl/app/supervision.pl line 487.

Voici le detail du script

483 ### if ($outil==4){
484 ### $Title="Utility Node $PrevRupt";
485 ### }
486 ### }
487 ### else {

[thierry.chich]

perl -d est ton ami. Soit ton erreur est avant (une erreur de quote ou je ne sait quoi), soit tu n'exécute pas le bon script.

[JUSTIN Loïc]

Bonjour,

Merci pour votre aide.
Aprés plusieurs recherches, je me rends compte que c'est lors de l'ajout de cette partie de script que je reçois ces messages.
Voir ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
if ($affniv == 1){
      if ($array[$k][5] == 1) {
      $idsox = "/database/images/serv_sox.png";
      $TITSX = "Application dans le domaine SOX";
      }
      if ($array[$k][7] == 0) {
      $idniv = "/database/images/transp.png";
      $TITNV = "";
      }
      if ($array[$k][7] == 3) {
      $idniv = "/database/images/bronze.png";
      $TITNV = "Niveau de service Bronze"; }
      if ($array[$k][7] == 2) {
      $idniv = "/database/images/argent.png";
      $TITNV = "Niveau de service Argent";
      }
      if ($array[$k][7] == 1) {
      $idniv = "/database/images/or.png";
      $TITNV = "Niveau de service Or";
      }
   }

En resumé si l'affichage du niveau de service est activé,je controle la valeur du niveau de service qui peut avoir les valeurs 0,1,2,3 et j'affichage une icone particuliére. Je controle aussi que l'application se trouve ou non dans le domaine Sox et j'affiche egalement une icone particuliere.
Si je supprime ce if, je n'ai plus les messages d'erreurs