From: Martin Pycko <martinp@digium.com>
Date: Wed, 13 Aug 2003 15:56:32 +0000 (+0000)
Subject: Add the flags column so that if it's set to '1' then that record is not included... 
X-Git-Tag: 0.5.0~185
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e35371be2bba3d86c18ed253762a56def644358a;p=thirdparty%2Fasterisk.git

Add the flags column so that if it's set to '1' then that record is not included in the output extensions file


git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1311 65c4cc65-6c06-0410-ace0-fbb531ad65f3
---

diff --git a/contrib/scripts/retrieve_extensions_from_mysql.pl b/contrib/scripts/retrieve_extensions_from_mysql.pl
index 9368efbec8..ca195cfe58 100755
--- a/contrib/scripts/retrieve_extensions_from_mysql.pl
+++ b/contrib/scripts/retrieve_extensions_from_mysql.pl
@@ -1,5 +1,6 @@
 #!/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,
@@ -8,6 +9,7 @@
 #	application CHAR(20) NOT NULL,
 #	args CHAR(50),
 #	descr TEXT,
+#	flags INT(1) DEFAULT '0' NOT NULL,
 #	PRIMARY KEY(context, extension, priority)
 #);
 #
@@ -96,11 +98,13 @@ foreach my $row ( @{ $result } ) {
 	}
 	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";
+		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";
 }
diff --git a/retrieve_extensions_from_mysql.pl b/retrieve_extensions_from_mysql.pl
index 9368efbec8..ca195cfe58 100755
--- a/retrieve_extensions_from_mysql.pl
+++ b/retrieve_extensions_from_mysql.pl
@@ -1,5 +1,6 @@
 #!/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,
@@ -8,6 +9,7 @@
 #	application CHAR(20) NOT NULL,
 #	args CHAR(50),
 #	descr TEXT,
+#	flags INT(1) DEFAULT '0' NOT NULL,
 #	PRIMARY KEY(context, extension, priority)
 #);
 #
@@ -96,11 +98,13 @@ foreach my $row ( @{ $result } ) {
 	}
 	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";
+		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";
 }