Discussion :

[duedos]

Salut à tous. Débutant en perl, j'ai pour objectif de developper un projet visant à identifier le numero de telephone d'un appelant, verifier s'il est au bon format puis s'il existe deja dans la base de donnees et enfin verifier qu'il est autorise a acceder au service. Etape par etape, tout se passe bien. Mais quand j'enchaine toutes les fonctions, je recupere une erreur, comme suit

Code :

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

1
2
 
Bad name after Playback at /usr/share/asterisk/agi-bin/connu.pl

Je ne comprends pas en fait le sens de ce Bad Name puisque la foncrtion Playback est utilise avant de la meme facon et cela marche. Si quelqu'un savait de quoi il en retournait...

[Jedai]

Nous ne disposons malheureusement pas des dons de divinations qui nous permettraient de corriger ton erreur sans disposer de ton code... D'après perldiag cette erreur a à voir avec un mauvais usage des préfixes de paquetage, mais je ne peux guère en dire plus sans voir ton script.

--
Jedaï

[duedos]

Ok c'est en effet plus pratique si vous avez acces a mon code, alors le voici :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $numero = $input{'callerid'};
# Connexion a la base de donnees
$dbh = DBI->connect("DBI:mysql:asterisk","****","****");
my $verif = $dbh->prepare("select numero from telephone where numero=$numero");
$verif -> execute();
if (!($numero = $verif ->fetchrow))
        {
                $verif->finish;
                $dbh->disconnect;
                $AGI->exec('Playback','/usr/share/asterisk/sounds/fr/privacy-incorrect');
        }
else
        {
                $verif->finish;
                $dbh = DBI->connect("DBI:mysql:asterisk","****","****");
                my $autorisation = $dbh->prepare("select autorisation from telephone where numero=$numero");
                $autorisation -> execute() || die "probleme de selection : $DBI::errstr";
 
                if ($autoristaion =~ m/non/)
                        {
                                $autorisation->finish;
                                $dbh->disconnect;
                                $AGI->exec('Playback','/usr/share/asterisk/sounds/fr/tt-weasels);
                        }
 
                else
                        {
                                $autorisation->finish;
                                $dbh->disconnect;
                                $AGI->exec('Playback','/usr/share/asterisk/sounds/fr/tt-monkeysintro');
                        }
        }

Et l'erreur renvoyée est :

Code :

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

1
2
 
Bad name after Playback' at /usr/share/asterisk/agi-bin/connu.pl line 35.

Alors je m'etais deja renseigne pour cette erreur et j'avais trouve le meme style de reponse que toi, mais malheureusement cela ne m'a pas aide. Donc si quelqu'un peut m'en dire plus j'en serai ravi.
Merci

[duedos]

Bon tout va bien desole de vous avoir derange pour ca, en fait je me suis rendu compte que j'avais juste oublie un quote quelques lignes au dessus, ce qui rendait impossible la lecture du fichier suivant