Initial upload of the script that retrieves the extensions from the MySQL database
authorMartin Pycko <martinp@digium.com>
Mon, 14 Jul 2003 17:01:41 +0000 (17:01 +0000)
committerMartin Pycko <martinp@digium.com>
Mon, 14 Jul 2003 17:01:41 +0000 (17:01 +0000)
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1186 65c4cc65-6c06-0410-ace0-fbb531ad65f3

contrib/scripts/retrieve_extensions_from_mysql.pl [new file with mode: 0755]
retrieve_extensions_from_mysql.pl [new file with mode: 0755]

diff --git a/contrib/scripts/retrieve_extensions_from_mysql.pl b/contrib/scripts/retrieve_extensions_from_mysql.pl
new file mode 100755 (executable)
index 0000000..64a517c
--- /dev/null
@@ -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;
+
diff --git a/retrieve_extensions_from_mysql.pl b/retrieve_extensions_from_mysql.pl
new file mode 100755 (executable)
index 0000000..64a517c
--- /dev/null
@@ -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;
+