sysmocom
/
asterisk
11
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix couple of bugs 

git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1234 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Martin Pycko 2003-07-28 16:19:21 +00:00
parent 19f4f3c36c
commit fbada4d85a
2 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
contrib/scripts/retrieve_extensions_from_mysql.pl
View File

@ -45,13 +45,13 @@ $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 EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 > 0 ) {
if ( $#resultSet > -1 ) {
print EXTEN "[globals]\n";
foreach $row (@{ $result }) {
my @result = @{ $row };
@ -65,14 +65,14 @@ $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 EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 EXTEN "No extensions defined in $table_name\n";
print "No extensions defined in $table_name\n";
exit;
}
@ -83,15 +83,15 @@ foreach my $row ( @{ $result } ) {
my $result = $dbh->selectall_arrayref($statement);
unless ($result) {
# check for errors after every single database call
print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 EXTEN "no results\n";
print "no results\n";
exit;
}
foreach my $row ( @{ $result } ) {

24
retrieve_extensions_from_mysql.pl
View File

@ -45,13 +45,13 @@ $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 EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 > 0 ) {
if ( $#resultSet > -1 ) {
print EXTEN "[globals]\n";
foreach $row (@{ $result }) {
my @result = @{ $row };
@ -65,14 +65,14 @@ $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 EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 EXTEN "No extensions defined in $table_name\n";
print "No extensions defined in $table_name\n";
exit;
}
@ -83,15 +83,15 @@ foreach my $row ( @{ $result } ) {
my $result = $dbh->selectall_arrayref($statement);
unless ($result) {
# check for errors after every single database call
print EXTEN "dbh->selectall_arrayref($statement) failed!\n";
print EXTEN "DBI::err=[$DBI::err]\n";
print EXTEN "DBI::errstr=[$DBI::errstr]\n";
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 EXTEN "no results\n";
print "no results\n";
exit;
}
foreach my $row ( @{ $result } ) {