Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Asterisk::AGI;
- use File::Basename;
- use DBI;
- use POSIX;
- $AGI = new Asterisk::AGI;
- my %input = $AGI->ReadParse();
- ## PRINCIPAL --------------------------------------------------------------------------
- my %input = $AGI->ReadParse();
- %MYSQL1 = (
- hostname => "localhost",
- username => "xxx",
- password => "xxx",
- database => "identidades"
- );
- #$dbh1 = DBI->connect("dbi:mysql:$MYSQL1{database}:$MYSQL1{hostname}","$MYSQL1{username}","$MYSQL1{password}") || die("Couldn't connect to database!\n");
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4