Initial upgrade of the perl script that enables to download sip user/peer entries...
authorMartin Pycko <martinp@digium.com>
Wed, 13 Aug 2003 21:01:13 +0000 (21:01 +0000)
committerMartin Pycko <martinp@digium.com>
Wed, 13 Aug 2003 21:01:13 +0000 (21:01 +0000)
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1315 65c4cc65-6c06-0410-ace0-fbb531ad65f3

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

diff --git a/contrib/scripts/retrieve_sip_conf_from_mysql.pl b/contrib/scripts/retrieve_sip_conf_from_mysql.pl
new file mode 100755 (executable)
index 0000000..960479d
--- /dev/null
@@ -0,0 +1,92 @@
+#!/usr/bin/perl -Tw
+# Retrieves the sip user/peer entries from the database
+# Use these commands to create the appropriate tables in MySQL
+#
+#CREATE TABLE sip (id INT(11) NOT NULL,keyword VARCHAR(20) NOT NULL,data VARCHAR(50),PRIMARY KEY (id,keyword));
+#
+
+use DBI;
+################### BEGIN OF CONFIGURATION ####################
+
+# the name of the extensions table
+$table_name = "sip";
+# the path to the extensions.conf file
+# WARNING: this file will be substituted by the output of this program
+$sip_conf = "/etc/asterisk/sip_additional.conf";
+# the name of the box the MySQL database is running on
+$hostname = "localhost";
+# the name of the database our tables are kept
+$database = "sip";
+# username to connect to the database
+$username = "root";
+# password to connect to the database
+$password = "";
+
+################### END OF CONFIGURATION #######################
+
+$additional = "";
+
+open EXTEN, ">$sip_conf" || die "Cannot create/overwrite extensions file: $sip_conf\n";
+
+$dbh = DBI->connect("dbi:mysql:dbname=$database;host=$hostname", "$username", "$password");
+$statement = "SELECT keyword,data from $table_name where id=0 and keyword <> 'account'";
+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 ) {
+       foreach $row (@{ $result }) {
+               my @result = @{ $row };
+               $additional .= $result[0]."=".$result[1]."\n";
+       }
+}
+
+$statement = "SELECT data,id from $table_name where keyword='account' group by data";
+
+$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 sip accounts defined in $table_name\n";
+  exit;
+}
+
+foreach my $row ( @{ $result } ) {
+       my $account = @{ $row }[0];
+       my $id = @{ $row }[1];
+       print EXTEN "[$account]\n";
+       $statement = "SELECT keyword,data from $table_name where id=$id and keyword <> 'account' order by keyword";
+       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 };
+               print EXTEN "$result[0]=$result[1]\n";
+       }                                               
+       print EXTEN "$additional\n";
+}
+
+exit 0;
+
diff --git a/retrieve_sip_conf_from_mysql.pl b/retrieve_sip_conf_from_mysql.pl
new file mode 100755 (executable)
index 0000000..960479d
--- /dev/null
@@ -0,0 +1,92 @@
+#!/usr/bin/perl -Tw
+# Retrieves the sip user/peer entries from the database
+# Use these commands to create the appropriate tables in MySQL
+#
+#CREATE TABLE sip (id INT(11) NOT NULL,keyword VARCHAR(20) NOT NULL,data VARCHAR(50),PRIMARY KEY (id,keyword));
+#
+
+use DBI;
+################### BEGIN OF CONFIGURATION ####################
+
+# the name of the extensions table
+$table_name = "sip";
+# the path to the extensions.conf file
+# WARNING: this file will be substituted by the output of this program
+$sip_conf = "/etc/asterisk/sip_additional.conf";
+# the name of the box the MySQL database is running on
+$hostname = "localhost";
+# the name of the database our tables are kept
+$database = "sip";
+# username to connect to the database
+$username = "root";
+# password to connect to the database
+$password = "";
+
+################### END OF CONFIGURATION #######################
+
+$additional = "";
+
+open EXTEN, ">$sip_conf" || die "Cannot create/overwrite extensions file: $sip_conf\n";
+
+$dbh = DBI->connect("dbi:mysql:dbname=$database;host=$hostname", "$username", "$password");
+$statement = "SELECT keyword,data from $table_name where id=0 and keyword <> 'account'";
+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 ) {
+       foreach $row (@{ $result }) {
+               my @result = @{ $row };
+               $additional .= $result[0]."=".$result[1]."\n";
+       }
+}
+
+$statement = "SELECT data,id from $table_name where keyword='account' group by data";
+
+$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 sip accounts defined in $table_name\n";
+  exit;
+}
+
+foreach my $row ( @{ $result } ) {
+       my $account = @{ $row }[0];
+       my $id = @{ $row }[1];
+       print EXTEN "[$account]\n";
+       $statement = "SELECT keyword,data from $table_name where id=$id and keyword <> 'account' order by keyword";
+       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 };
+               print EXTEN "$result[0]=$result[1]\n";
+       }                                               
+       print EXTEN "$additional\n";
+}
+
+exit 0;
+