contrib/scripts/retrieve_extensions_from_mysql.pl

   1 #!/usr/bin/perl -Tw
   2 # Use these commands to create the appropriate tables in MySQL
   3 #
   4 #CREATE TABLE ext (
   5 #       context CHAR(20) DEFAULT 'default' NOT NULL,
   6 #       extension CHAR(20) NOT NULL,
   7 #       priority INT(2) DEFAULT '1' NOT NULL,
   8 #       application CHAR(20) NOT NULL,
   9 #       args CHAR(50),
  10 #       descr TEXT,
  11 #       PRIMARY KEY(context, extension, priority)
  12 #);
  13 #
  14 #CREATE TABLE globals (
  15 #       variable CHAR(20) NOT NULL,
  16 #       value CHAR(50) NOT NULL,
  17 #       PRIMARY KEY(variable, value)
  18 #);
  19
  20 use DBI;
  21 ################### BEGIN OF CONFIGURATION ####################
  22
  23 # the name of the extensions table
  24 $table_name = "extensions";
  25 # the name of the globals table
  26 $global_table_name = "globals";
  27 # the path to the extensions.conf file
  28 # WARNING: this file will be substituted by the output of this program
  29 $extensions_conf = "/etc/asterisk/extensions.conf";
  30 # the name of the box the MySQL database is running on
  31 $hostname = "localhost";
  32 # the name of the database our tables are kept
  33 $database = "user";
  34 # username to connect to the database
  35 $username = "";
  36 # password to connect to the database
  37 $password = "";
  38
  39 ################### END OF CONFIGURATION #######################
  40
  41 open EXTEN, ">$extensions_conf" || die "Cannot create/overwrite extensions file: $extensions_conf\n";
  42
  43 $dbh = DBI->connect("dbi:mysql:dbname=$database;host=$hostname", "$username", "$password");
  44 $statement = "SELECT * from $global_table_name order by variable";
  45 my $result = $dbh->selectall_arrayref($statement);
  46 unless ($result) {
  47   # check for errors after every single database call
  48   print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
  49   print EXTEN "DBI::err=[$DBI::err]\n";
  50   print EXTEN "DBI::errstr=[$DBI::errstr]\n";
  51   exit;
  52 }
  53 my @resultSet = @{$result};
  54 if ( $#resultSet > 0 ) {
  55         print EXTEN "[globals]\n";
  56         foreach $row (@{ $result }) {
  57                 my @result = @{ $row };
  58                 print EXTEN "$result[0] = $result[1]\n";
  59         }
  60         print EXTEN "\n";
  61 }
  62
  63 $statement = "SELECT context from $table_name group by context";
  64
  65 $result = $dbh->selectall_arrayref($statement);
  66 unless ($result) {
  67   # check for errors after every single database call
  68   print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
  69   print EXTEN "DBI::err=[$DBI::err]\n";
  70   print EXTEN "DBI::errstr=[$DBI::errstr]\n";
  71 }
  72
  73 @resultSet = @{$result};
  74 if ( $#resultSet == -1 ) {
  75   print EXTEN "No extensions defined in $table_name\n";
  76   exit;
  77 }
  78
  79 foreach my $row ( @{ $result } ) {
  80         my $context = @{ $row }[0];
  81         print EXTEN "[$context]\n";
  82         $statement = "SELECT * from $table_name where context='$context' order by extension, priority";
  83         my $result = $dbh->selectall_arrayref($statement);
  84         unless ($result) {
  85                 # check for errors after every single database call
  86                 print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
  87                 print EXTEN "DBI::err=[$DBI::err]\n";
  88                 print EXTEN "DBI::errstr=[$DBI::errstr]\n";
  89                 exit;
  90         }
  91
  92         my @resSet = @{$result};
  93         if ( $#resSet == -1 ) {
  94                 print EXTEN "no results\n";
  95                 exit;
  96         }
  97         foreach my $row ( @{ $result } ) {
  98                 my @result = @{ $row };
  99                 print EXTEN "exten => $result[1],$result[2],$result[3]";
 100                 print EXTEN "($result[4])" if defined $result[4];
 101                 print EXTEN "\t" if not defined $result[4];
 102                 print EXTEN "\t; $result[5]" if defined $result[5];
 103                 print EXTEN "\n";
 104         }
 105         print EXTEN "\n";
 106 }
 107
 108 exit 0;
 109