Foro - Perl en Español

por **rjimenez** » 2012-09-12 10:36 @483

Necesito ayuda. Quiero, como práctica, leer una base de datos desde Asterisk. Soy principiante en Perl y en MySQL pero tengo mucha experiencia con Asterisk.

Este es el conector:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
 
use Asterisk::AGI;
use DBI;
 
my $AGI    = new Asterisk::AGI;
my %input  = $AGI->ReadParse();
my $Cedula = $AGI->get_variable('Cedula');
 
my $dbh = DBI->connect( "DBI:mysql:host=10.100.117.102;database=asterisk;port=3306", "root", "vicidialnow" )
    or die "Error en la conexion: $DBI::errstr";
 
my $sth = $dbh->prepare('select Cedula from asterisk.roberto where ID = 1');
 
$sth->execute($Cedula) or die("Error en la consulta");
 
my ( $ID, $Cedula, $Ciudad, $telefono );
 
while ( ( $ID, $Cedula, $Ciudad, $telefono ) = $sth->fetchrow_array() ) {
 
    print join( ", ", $Ciudad, $ID ), "\n";
}
$AGI->set_variable( 'ID',       "$ID" );
$AGI->set_variable( 'Cedula',   "$Cedula" );
$AGI->set_variable( 'Ciudad',   "$Ciudad" );
$AGI->set_variable( 'telefono', "$telefono" );
 
$sth->finish;
$dbh->disconnect;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Este es el extension.conf

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[bancontext]

exten => s,1,Answer()

exten => s,n,Set(COUNT=1)

exten => s,n,WaitExten(1)

exten => s,n,Background(vicidial-welcome)

exten => s,n,Background(vicidial-welcome)

exten => s,n,WaitExten(5)

exten => _XXXXXXXXXXX,1,Set(Cedula=${EXTEN})

exten => _XXXXXXXXXXX,n,Agi(myconector.pl)

exten => _XXXXXXXXXXX,n,Festival(${Ciudad})

exten => _XXXXXXXXXXX,n,Goto(menu,s,1)

exten => s,n,WaitExten(2)

exten => i,1,Background(Invalid)

exten => i,n,Goto(interno,s,1)

exten => t,1,Playback(vm-last)

exten => t,n,Set(COUNT=$[${COUNT} + 1])

exten => t,n,GotoIf($[${COUNT} > 3]?5:4)

exten => t,n,Goto(interno,s,5)

exten => t,n,Playback(vm-goodbye)

exten => t,n,Hangup()

[menu]

exten => s,1,Background(minute)

exten => s,n,Background(millon_es)

exten => s,n,Background(peso_es)

exten => s,n,WaitExten(10)

exten => 1,1,Goto(Notas,s,1)

exten => 2,1,Goto(Seminarios,s,1)

exten => 3,1,Goto(Actividades,s,1)

exten => i,1,Background(Grabacion/Invalida)

exten => i,n,Goto(menu,s,1)

include => Basicas

[Notas]

exten => s,1,Background(id_number)

exten => s,n,WaitExten(2)

exten => s,n,Festival(${Cedula})

exten => s,n,WaitExten(1)

exten => s,n,Festival(${ID})

exten => s,n,WaitExten(1)

exten => s,n,EndWhile()Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Nota esto es copiado de otro for y modificado...
Mysql:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Enter password: vicidialnow

Welcome to the MySQL monitor.  Commands end with ; or \g.

Your MySQL connection id is 52

Server version: 5.0.45-community-nt MySQL Community Edition (GPL)

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> select * from asterisk.roberto;

+----+------------+----------+------------+

| ID | Cedula     | Ciudad   | telefono   |

+----+------------+----------+------------+

|  1 | 0310221812 | Santiago | 8092519382 |

|  2 | 0221812211 | moca     | 8092519383 |

|  3 | NULL       | NULL     | 8092519384 |

|  4 | NULL       | NULL     | 8092519385 |

|  5 | NULL       | NULL     | 8092519386 |

|  6 | NULL       | NULL     | 8092519387 |

|  7 | 8092519388 | Moca     | 8092519388 |

|  8 | 031        | Bien     | 8092519389 |

+----+------------+----------+------------+

8 rows in set (0.05 sec)

mysql>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Buenas, quisiera saber cómo puedo hacer para llamar a otro script AGI Perl en un script AGI Perl, porque ¡ya intenté de todo! ¿Tendrían algún ejemplo?

Y cuando se ejecuta alguna llamada, ¿cómo sabe el Asterisk que es un humano o un contestador el que atiende? Es que necesito hacer llamadas bajo el protocolo DAHDI desde un servidor Asterisk.

Saludos cordiales

cgz - http://www.construyomiexito.tk/

Foro - Perl en Español

Asterisk y Base de datos

Asterisk y Base de datos

Publicidad

Re: Asterisk y Base de datos

Re: Asterisk y Base de datos

¿Quién está conectado?