kenmirrors/asterisk
1
0
Fork 0
mirror of https://github.com/asterisk/asterisk.git synced 2025-10-31 02:37:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Initial upload of the script that retrieves the extensions from the MySQL database

Browse Source 
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1186 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Martin Pycko
2003-07-14 17:01:41 +00:00
parent 529b08c3a3
commit c6a3f83e83
2 changed files with 218 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
retrieve_extensions_from_mysql.pl Executable file
View File

@@ -0,0 +1,109 @@
#!/usr/bin/perl -Tw
# Use these commands to create the appropriate tables in MySQL
#
#CREATE TABLE ext (
# context CHAR(20) DEFAULT 'default' NOT NULL,
# extension CHAR(20) NOT NULL,
# priority INT(2) DEFAULT '1' NOT NULL,
# application CHAR(20) NOT NULL,
# args CHAR(50),
# descr TEXT,
# PRIMARY KEY(context, extension, priority)
#);
#
#CREATE TABLE globals (
# variable CHAR(20) NOT NULL,
# value CHAR(50) NOT NULL,
# PRIMARY KEY(variable, value)
#);
use DBI;
################### BEGIN OF CONFIGURATION ####################
# the name of the extensions table
$table_name = "extensions";
# the name of the globals table
$global_table_name = "globals";
# the path to the extensions.conf file
# WARNING: this file will be substituted by the output of this program
$extensions_conf = "/etc/asterisk/extensions.conf";
# the name of the box the MySQL database is running on
$hostname = "localhost";
# the name of the database our tables are kept
$database = "user";
# username to connect to the database
$username = "";
# password to connect to the database
$password = "";
################### END OF CONFIGURATION #######################
open EXTEN, ">$extensions_conf" || die "Cannot create/overwrite extensions file: $extensions_conf\n";
$dbh = DBI->connect("dbi:mysql:dbname=$database;host=$hostname", "$username", "$password");
$statement = "SELECT * from $global_table_name order by variable";
my $result = $dbh->selectall_arrayref($statement);
unless ($result) {
# check for errors after every single database call
print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
exit;
}
my @resultSet = @{$result};
if ( $#resultSet > 0 ) {
print EXTEN "[globals]\n";
foreach $row (@{ $result }) {
my @result = @{ $row };
print EXTEN "$result[0] = $result[1]\n";
}
print EXTEN "\n";
}
$statement = "SELECT context from $table_name group by context";
$result = $dbh->selectall_arrayref($statement);
unless ($result) {
# check for errors after every single database call
print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
}
@resultSet = @{$result};
if ( $#resultSet == -1 ) {
print EXTEN "No extensions defined in $table_name\n";
exit;
}
foreach my $row ( @{ $result } ) {
my $context = @{ $row }[0];
print EXTEN "[$context]\n";
$statement = "SELECT * from $table_name where context='$context' order by extension, priority";
my $result = $dbh->selectall_arrayref($statement);
unless ($result) {
# check for errors after every single database call
print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
exit;
}
my @resSet = @{$result};
if ( $#resSet == -1 ) {
print EXTEN "no results\n";
exit;
}
foreach my $row ( @{ $result } ) {
my @result = @{ $row };
print EXTEN "exten => $result[1],$result[2],$result[3]";
print EXTEN "($result[4])" if defined $result[4];
print EXTEN "\t" if not defined $result[4];
print EXTEN "\t; $result[5]" if defined $result[5];
print EXTEN "\n";
}
print EXTEN "\n";
}
exit 0;