1 files changed, 0 insertions, 113 deletions
diff --git a/1.2-netsec/contrib/scripts/retrieve_extensions_from_mysql.pl b/1.2-netsec/contrib/scripts/retrieve_extensions_from_mysql.pl
deleted file mode 100644
index ca195cfe5..000000000
--- a/1.2-netsec/contrib/scripts/retrieve_extensions_from_mysql.pl
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/usr/bin/perl -Tw
-# Use these commands to create the appropriate tables in MySQL
-# If flags is 1 then this record is not included in the output extensions file
-# 
-#CREATE TABLE extensions (
-#	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,
-#	flags INT(1) DEFAULT '0' NOT NULL,
-#	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 "dbh->selectall_arrayref($statement) failed!\n";
-  print "DBI::err=[$DBI::err]\n";
-  print "DBI::errstr=[$DBI::errstr]\n";
-  exit;
-}
-my @resultSet = @{$result};
-if ( $#resultSet > -1 ) {
-	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 "dbh->selectall_arrayref($statement) failed!\n";
-  print "DBI::err=[$DBI::err]\n";
-  print "DBI::errstr=[$DBI::errstr]\n";
-}
-
-@resultSet = @{$result};
-if ( $#resultSet == -1 ) {
-  print "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 "dbh->selectall_arrayref($statement) failed!\n";
-		print "DBI::err=[$DBI::err]\n";
-		print "DBI::errstr=[$DBI::errstr]\n";
-		exit;
-	}
-
-	my @resSet = @{$result};
-	if ( $#resSet == -1 ) {          
-		print "no results\n";
-		exit;
-	}
-	foreach my $row ( @{ $result } ) {
-		my @result = @{ $row };
-		if ($result[6] == 0) {
-			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;
-