Discussion :

[Katachana]

Bonjour,

Je souhaite effectuer un test de connexion à une base oracle, afin de savoir quel est son état UP ou DOWN.

Pour l'instant je fais comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
unless ($dbhandle = DBI->connect ("dbi:Oracle:$SID", $dbuser, $dbpassword))
{    
      $output = "KO - Test de connexion";
      $exite_code=2;
}
if($output=="")
{
      $output = "OK - Test de connexion";
      $exit_code=0; 
}
 
 
print $output;
exit $exit_code;

Je trouve ca , tres léger et pas forcement bon.
Dans le cas ou la base est down, j'ai pas le résultat escompté.
Auriez un conseil a ce sujet?

Merci d'avance!

[Katachana]

En fait le probleme que je rencontre c'est que lorsque la base n'est pas lancé par exemple, mon code plante sur l'instiation de la connexion =>

Code :

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

$dbhandle = DBI->connect ("dbi:Oracle:$SID", $dbuser, $dbpassword)

Alors que j'aimerais qu'en cas de non connexion j'ai, dans tous les cas ces valeurs pour ces deux variables et pas d'affichage de messages d'erreurs caratéristiques de DBI->connect...

Code :

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

1
2
$output = "KO - Test de connexion";
      $exite_code=2;

Est ce possible? car je ne peux pas, pour l'instant, avoir le résultat escompté lorsque que la base est down

[Woufeil]

Bonjour,

Si j'en crois la doc du CPAN, un simple or die est suffisent pour savoir si la connexion s'est bien déroulée ou non. Je ne comprend pas ton problème... Quand tu dis que ton prog est bloqué, c'est peut être juste un timer...

Par contre, le $output == "" n'est pas génial, pour comparer des chaînes on utilise plutôt eq. Et si $ouput n'est pas définit, ton programme va planter au niveau du print