From e35371be2bba3d86c18ed253762a56def644358a Mon Sep 17 00:00:00 2001 From: Martin Pycko Date: Wed, 13 Aug 2003 15:56:32 +0000 Subject: [PATCH] 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 --- contrib/scripts/retrieve_extensions_from_mysql.pl | 14 +++++++++----- retrieve_extensions_from_mysql.pl | 14 +++++++++----- 2 files changed, 18 insertions(+), 10 deletions(-) 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"; }