kenmirrors/asterisk
1
0
Fork 0
mirror of https://github.com/asterisk/asterisk.git synced 2025-09-06 12:36:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge the adaptive realtime branch, which will make adding new required fields

Browse Source 
to realtime less painful in the future.


git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@120789 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Tilghman Lesher
2008-06-05 19:07:27 +00:00
parent 2347ebf436
commit 9471b87d27
13 changed files with 892 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
contrib/scripts/dbsep.cgi
View File

@@ -28,6 +28,7 @@ my ($cgi, $dbh, %cfg, $table, $mode);
# dsn=<some valid dsn>
# dbuser=<user>
# dbpass=<passwd>
# dbschema=<dbname>
# backslash_is_escape={yes|no}
#
open CFG, "</etc/asterisk/dbsep.conf";
@@ -120,6 +121,43 @@ if ($mode eq 'single') {
$affected = $dbh->do($sql);
$dbh->disconnect();
print "Content-type: text/html\n\n$affected\n";
} elsif ($ENV{PATH_INFO} =~ m/require$/) {
my $result = 0;
my $dbh = DBI->connect($cfg{dsn}, $cfg{dbuser}, $cfg{dbpass});
my $sql = "SELECT data_type, character_maximum_length FROM information_schema.tables AS t " .
"JOIN information_schema.columns AS c " .
"ON t.table_catalog=c.table_catalog AND " .
"t.table_schema=c.table_schema AND " .
"t.table_name=c.table_name " .
"WHERE c.table_schema='$cfg{dbschema}' AND " .
"c.table_name=? AND c.column_name=?";
my $sth = $dbh->prepare($sql);
foreach my $param (cgi_to_where_clause($cgi, \%cfg)) {
my ($colname, $value) = split /=/, $param;
my ($type, $size) = split /:/, $value;
$sth->execute($table, $colname);
my ($dbtype, $dblen) = $sth->fetchrow_array();
$sth->finish();
if ($type eq 'char') {
if ($dbtype !~ m#char#i) {
print STDERR "REQUIRE: $table: Type of column $colname requires char($size), but column is of type $dbtype instead!\n";
$result = -1;
} elsif ($dblen < $size) {
print STDERR "REQUIRE: $table: Size of column $colname requires $size, but column is only $dblen long!\n";
$result = -1;
}
} elsif ($type eq 'integer') {
if ($dbtype =~ m#char#i and $dblen < $size) {
print STDERR "REQUIRE: $table: Size of column $colname requires $size, but column is only $dblen long!\n";
$result = -1;
} elsif ($dbtype !~ m#int|float|double|dec|num#i) {
print STDERR "REQUIRE: $table: Type of column $colname requires integer($size), but column is of type $dbtype instead!\n";
$result = -1;
}
} # TODO More type checks
}
$dbh->disconnect();
print "Content-type: text/html\n\n$result\n";
} elsif ($ENV{PATH_INFO} =~ m/static$/) {
# file parameter in GET, no POST
my (@get, $filename, $sql, $sth);