Bon, j'y capte rien au CGI mais voici qq trucs que j'ai développé y a keke temps, si ça peut te servir
Modules à rajouter dans ton script Perl :
Code :
- use DBI;
- use DBD::Oracle;
|
Connexion à une BDD Oracle :
Code :
- $dbh = DBI->connect("dbi:Oracle:", $USER, $PASSWORD);
|
Test qu'une connexion Oracle est toujours active :
Code :
- sub TesteServeur {
- my $rc;
- $rc = $dbh->ping;
- if ($rc) {
- return 1;
- } else {
- return 0;
- }
- }
|
Cette fonction te retourne 1 si serveur toujours actif, 0 sinon. Tu peux donc employer cette fonction un peu partout dans ton code avant de faire une manip sous Oracle.
Mais je le répète : tu as CGI par-dessus tout ça, je ne sais pas si ma méthode fonctionne avec CGI.
---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL