diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 18:07:14 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 18:07:14 +0000 |
commit | a175314c3e5827eb193872241446f2f8f5c9d33c (patch) | |
tree | cd3d60ca99ae00829c52a6ca79150a5b6e62528b /sql-bench/server-cfg.sh | |
parent | Initial commit. (diff) | |
download | mariadb-10.5-upstream/1%10.5.12.tar.xz mariadb-10.5-upstream/1%10.5.12.zip |
Adding upstream version 1:10.5.12.upstream/1%10.5.12upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r-- | sql-bench/server-cfg.sh | 3664 |
1 files changed, 3664 insertions, 0 deletions
diff --git a/sql-bench/server-cfg.sh b/sql-bench/server-cfg.sh new file mode 100644 index 00000000..d862f367 --- /dev/null +++ b/sql-bench/server-cfg.sh @@ -0,0 +1,3664 @@ +#!/usr/bin/env perl +# -*- perl -*- +# Copyright (c) 2000-2006 MySQL AB, 2009 Sun Microsystems, Inc. +# Use is subject to license terms. +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Library General Public +# License as published by the Free Software Foundation; version 2 +# of the License. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Library General Public License for more details. +# +# You should have received a copy of the GNU Library General Public +# License along with this library; if not, write to the Free +# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, +# MA 02110-1335 USA +# +# The configuration file for the DBI/DBD tests on different databases .... +# You will need the DBD module for the database you are running. +# Monty made this bench script and I (Luuk de Boer) rewrote it to DBI/DBD. +# Monty rewrote this again to use packages. +# +# Each database has a different package that has 3 functions: +# new Creates a object with some standard slot +# version Version number of the server +# create Generates commands to create a table +# + +# +# First some global functions that help use the packages: +# + +sub get_server +{ + my ($name,$host,$database,$odbc,$machine,$socket,$connect_options)=@_; + my ($server); + if ($name =~ /mysql/i) + { $server=new db_MySQL($host, $database, $machine, $socket,$connect_options); } + elsif ($name =~ /pg/i) + { $server= new db_Pg($host,$database); } + elsif ($name =~ /msql/i) + { $server= new db_mSQL($host,$database); } + elsif ($name =~ /solid/i) + { $server= new db_Solid($host,$database); } + elsif ($name =~ /Empress/i) + { $server= new db_Empress($host,$database); } + elsif ($name =~ /FrontBase/i) + { $server= new db_FrontBase($host,$database); } + elsif ($name =~ /Oracle/i) + { $server= new db_Oracle($host,$database); } + elsif ($name =~ /Access/i) + { $server= new db_access($host,$database); } + elsif ($name =~ /Informix/i) + { $server= new db_Informix($host,$database); } + elsif ($name =~ /ms-sql/i) + { $server= new db_ms_sql($host,$database); } + elsif ($name =~ /sybase/i) + { $server= new db_sybase($host,$database); } + elsif ($name =~ /Adabas/i) # Adabas has two drivers + { + $server= new db_Adabas($host,$database); + if ($name =~ /AdabasD/i) + { + $server->{'data_source'} =~ s/:Adabas:/:AdabasD:/; + } + } + elsif ($name =~ /DB2/i) + { $server= new db_db2($host,$database); } + elsif ($name =~ /Mimer/i) + { $server= new db_Mimer($host,$database); } + elsif ($name =~ /Sapdb/i) + { $server= new db_sapdb($host,$database); } + elsif ($name =~ /interBase/i) + { $server= new db_interbase($host,$database); } + else + { + die "Unknown sql server name used: $name\nUse one of: Access, Adabas, AdabasD, Empress, FrontBase, Oracle, Informix, InterBase, DB2, mSQL, Mimer, MS-SQL, MySQL, Pg, Solid, SAPDB or Sybase.\nIf the connection is done trough ODBC the name must end with _ODBC\n"; + } + if ($name =~ /_ODBC$/i || defined($odbc) && $odbc) + { + if (! ($server->{'data_source'} =~ /^([^:]*):([^:]+):([^:]*)/ )) + { + die "Can't find databasename in data_source: '" . + $server->{'data_source'}. "'\n"; + } + if ($3) { + $server->{'data_source'} = "$1:ODBC:$3"; + } else { + $server->{'data_source'} = "$1:ODBC:$database"; + } + } + return $server; +} + +sub all_servers +{ + return ["Access", "Adabas", "DB2", "Empress", "FrontBase", "Oracle", + "Informix", "InterBase", "Mimer", "mSQL", "MS-SQL", "MySQL", "Pg","SAPDB", + "Solid", "Sybase"]; +} + +############################################################################# +# First the configuration for MySQL off course :-) +############################################################################# + +package db_MySQL; + +sub new +{ + my ($type,$host,$database,$machine,$socket,$connect_options)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "mysql"; + $self->{'data_source'} = "DBI:MariaDB:database=$database;host=$host"; + $self->{'data_source'} .= ";mariadb_socket=$socket" if($socket); + $self->{'data_source'} .= ";$connect_options" if($connect_options); + $self->{'limits'} = \%limits; + $self->{'blob'} = "blob"; + $self->{'text'} = "text"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'vacuum'} = 1; # When using with --fast + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 0; # Transactions disabled by default + + $limits{'NEG'} = 1; # Supports -id + $limits{'alter_add_multi_col'}= 1; #Have ALTER TABLE t add a int,add b int; + $limits{'alter_table'} = 1; # Have ALTER TABLE + $limits{'alter_table_dropcol'}= 1; # Have ALTER TABLE DROP column + $limits{'alter_table_after'}= 1; # Have ALTER TABLE .. AFTER other_column + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'func_extra_%'} = 1; # Has % as alias for mod() + $limits{'func_extra_if'} = 1; # Have function if. + $limits{'func_extra_in_num'} = 1; # Has function in + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_odbc_mod'} = 1; # Have function mod. + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_by_position'} = 1; # Can use 'GROUP BY 1' + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'group_func_extra_std'} = 1; # Have group function std(). + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_functions'} = 1; # Have group functions + $limits{'having_with_alias'} = 1; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can use group functions in HAVING + $limits{'insert_multi_value'} = 1; # Have INSERT ... values (1,2),(3,4) + $limits{'insert_select'} = 1; + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'limit'} = 1; # supports the limit attribute + $limits{'truncate_table'} = 1; + $limits{'load_data_infile'} = 1; # Has load data infile + $limits{'lock_tables'} = 1; # Has lock tables + $limits{'max_column_name'} = 64; # max table and column name + $limits{'max_columns'} = 2000; # Max number of columns in table + $limits{'max_conditions'} = 9999; # (Actually not a limit) + $limits{'max_index'} = 16; # Max number of keys + $limits{'max_index_parts'} = 16; # Max segments/key + $limits{'max_tables'} = (($machine || '') =~ "^win") ? 5000 : 65000; + $limits{'max_temporary_tables'}= 400; + $limits{'max_text_size'} = 1000000; # Good enough for tests + $limits{'multi_drop'} = 1; # Drop table can take many tables + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'order_by_unused'} = 1; + $limits{'query_size'} = 1000000; # Max size with default buffers. + $limits{'select_without_from'}= 1; # Can do 'select 1'; + $limits{'subqueries'} = 0; # Doesn't support sub-queries. + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'working_all_fields'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + # Some fixes that depends on the environment + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=heap/i) + { + $limits{'working_blobs'} = 0; # HEAP tables can't handle BLOB's + } + # HEAP is deprecated in favor of MEMORY + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=memory/i) + { + $limits{'working_blobs'} = 0; # MEMORY tables can't handle BLOB's + } + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=innodb/i) + { + $self->{'transactions'} = 1; # Transactions enabled + } + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=bdb/i) + { + $self->{'transactions'} = 1; # Transactions enabled + } + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=gemini/i) + { + $limits{'working_blobs'} = 0; # Blobs not implemented yet + $limits{'max_tables'} = 500; + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $self->{'transactions'} = 1; # Transactions enabled + } + if (defined($main::opt_create_options) && + $main::opt_create_options =~ /engine=tokudb/i) + { + $self->{'transactions'} = 1; # Transactions enabled + } + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); + $sth = $dbh->prepare("select VERSION()") or die $DBI::errstr; + $version="MySQL 3.20.?"; + if ($sth->execute && (@row = $sth->fetchrow_array)) + { + $row[0] =~ s/-/ /g; # To get better tables with long names + $version="MySQL $row[0]"; + } + $sth->finish; + + $sth = $dbh->prepare("show status like 'ssl_version'") or die $DBI::errstr; + if ($sth->execute && (@row = $sth->fetchrow_array) && $row[1]) + { + $version .= "/$row[1]"; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +# +# Connection with optional disabling of logging +# + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + + $dbh->do("SET OPTION LOG_OFF=1,UPDATE_LOG=0"); + if ($main::opt_connect_command ne "") + { + $dbh->do($main::opt_connect_command) or + die "Can't execute connect_command: $main::opt_connect_command error: $DBI::errstr\n"; + } + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index,$options) = @_; + my($query,@queries); + + if ($main::opt_temporary_tables) + { + $query="create temporary table $table_name ("; + } + else + { + $query="create table $table_name ("; + } + foreach $field (@$fields) + { +# $field =~ s/ decimal/ double(10,2)/i; + $field =~ s/ big_decimal/ double(10,2)/i; + $query.= $field . ','; + } + foreach $index (@$index) + { + $query.= $index . ','; + } + substr($query,-1)=")"; # Remove last ','; + $query.=" $options" if (defined($options)); + $query.=" $main::opt_create_options" if (defined($main::opt_create_options)); + push(@queries,$query); + return @queries; +} + +sub insert_file { + my ($self,$dbname, $file, $dbh) = @_; + my ($command, $sth); + + $file =~ s|\\|/|g; # Change Win32 names to Unix syntax + $command = "load data infile '$file' into table $dbname columns optionally enclosed by '\\'' terminated by ','"; +# print "$command\n"; + $sth = $dbh->do($command) or die $DBI::errstr; + return $sth; # Contains number of rows +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index { + my ($self,$table,$index) = @_; + return "DROP INDEX $index ON $table"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +# +# This should return 1 if we to do disconnect / connect when doing +# big batches +# + +sub small_rollback_segment +{ + return 0; +} + +# +# reconnect on errors (needed mainly be crash-me) +# + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +# +# Optimize tables for better performance +# + +sub vacuum +{ + my ($self,$full_vacuum,$dbh_ref,@tables)=@_; + my ($loop_time,$end_time,$dbh); + if ($#tables >= 0) + { + $dbh=$$dbh_ref; + $loop_time=new Benchmark; + $dbh->do("OPTIMIZE TABLE " . join(',',@tables)) || die "Got error: $DBI::errstr when executing 'OPTIMIZE TABLE'\n"; + $end_time=new Benchmark; + print "Time for book-keeping (1): " . + Benchmark::timestr(Benchmark::timediff($end_time, $loop_time),"all") . "\n\n"; + } +} + +############################################################################# +# Definitions for mSQL +############################################################################# + +package db_mSQL; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "msql"; + $self->{'data_source'} = "DBI:mSQL:$database:$host"; + $self->{'limits'} = \%limits; + $self->{'double_quotes'} = 0; + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 0; # No transactions + $self->{'blob'} = "text(" . $limits{'max_text_size'} .")"; + $self->{'text'} = "text(" . $limits{'max_text_size'} .")"; + + $limits{'max_conditions'} = 74; + $limits{'max_columns'} = 75; + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 32000; + $limits{'query_size'} = 65535; + $limits{'max_index'} = 5; + $limits{'max_index_parts'} = 10; + $limits{'max_column_name'} = 35; + + $limits{'join_optimizer'} = 0; # Can't optimize FROM tables + $limits{'load_data_infile'} = 0; + $limits{'lock_tables'} = 0; + $limits{'functions'} = 0; + $limits{'group_functions'} = 0; + $limits{'group_distinct_functions'}= 0; # Have count(distinct) + $limits{'multi_drop'} = 0; + $limits{'select_without_from'}= 0; + $limits{'subqueries'} = 0; + $limits{'left_outer_join'} = 0; + $limits{'table_wildcard'} = 0; + $limits{'having_with_alias'} = 0; + $limits{'having_with_group'} = 0; + $limits{'like_with_column'} = 1; + $limits{'order_by_position'} = 1; + $limits{'group_by_position'} = 1; + $limits{'alter_table'} = 0; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + $limits{'group_func_extra_std'} = 0; + $limits{'limit'} = 1; # supports the limit attribute + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 0; + + $limits{'func_odbc_mod'} = 0; + $limits{'func_extra_%'} = 0; + $limits{'func_odbc_floor'} = 0; + $limits{'func_extra_if'} = 0; + $limits{'column_alias'} = 0; + $limits{'NEG'} = 0; + $limits{'func_extra_in_num'} = 0; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($tmp,$dir); + foreach $dir ("/usr/local/Hughes", "/usr/local/mSQL","/my/local/mSQL", + "/usr/local") + { + if (-x "$dir/bin/msqladmin") + { + $tmp=`$dir/bin/msqladmin version | grep server`; + if ($tmp =~ /^\s*(.*\w)\s*$/) + { # Strip pre- and endspace + $tmp=$1; + $tmp =~ s/\s+/ /g; # Remove unnecessary spaces + $tmp .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + + return $tmp; + } + } + } + return "mSQL version ???"; +} + + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Can't handle many field types, so we map everything to int and real. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$name,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/varchar/char/i; # mSQL doesn't have VARCHAR() + # mSQL can't handle more than the real basic int types + $field =~ s/tinyint|smallint|mediumint|integer/int/i; + # mSQL can't handle different visual lengths + $field =~ s/int\(\d*\)/int/i; + # mSQL doesn't have float, change it to real + $field =~ s/float(\(\d*,\d*\)){0,1}/real/i; + $field =~ s/double(\(\d*,\d*\)){0,1}/real/i; + # mSQL doesn't have blob, it has text instead + if ($field =~ / blob/i) + { + $name=$self->{'blob'}; + $field =~ s/ blob/ $name/; + } + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + + # Prepend table_name to index name because the the name may clash with + # a field name. (Should be diffent name space, but this is mSQL...) + + foreach $index (@$index) + { + # Primary key is unique index in mSQL + $index =~ s/primary key/unique index primary/i; + if ($index =~ /^unique\s*\(([^\(]*)\)$/i) + { + $nr++; + push(@queries,"create unique index ${table_name}_$nr on $table_name ($1)"); + } + else + { + if (!($index =~ /^(.*index)\s+(\w*)\s+(\(.*\))$/i)) + { + die "Can't parse index information in '$index'\n"; + } + push(@queries,"create $1 ${table_name}_$2 on $table_name $3"); + } + } + return @queries; +} + + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert an ascii file isn't supported by mSQL\n"; + return 0; +} + + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index FROM $table"; +} + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Definitions for PostgreSQL # +############################################################################# + +package db_Pg; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "pg"; + $self->{'data_source'} = "DBI:Pg:dbname=$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "text"; + $self->{'text'} = "text"; + $self->{'double_quotes'} = 1; + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{"vacuum"} = 1; + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; + + $limits{'NEG'} = 1; + $limits{'alter_add_multi_col'}= 0; # alter_add_multi_col ? + $limits{'alter_table'} = 1; + $limits{'alter_table_dropcol'}= 0; + $limits{'column_alias'} = 1; + $limits{'func_extra_%'} = 1; + $limits{'func_extra_if'} = 0; + $limits{'func_extra_in_num'} = 1; + $limits{'func_odbc_floor'} = 1; + $limits{'func_odbc_mod'} = 1; # Has % + $limits{'functions'} = 1; + $limits{'group_by_position'} = 1; + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'group_func_extra_std'} = 0; + $limits{'group_func_sql_min_str'}= 1; # Can execute MIN() and MAX() on strings + $limits{'group_functions'} = 1; + $limits{'having_with_alias'} = 0; + $limits{'having_with_group'} = 1; + $limits{'insert_select'} = 1; + $limits{'left_outer_join'} = 1; + $limits{'like_with_column'} = 1; + $limits{'lock_tables'} = 0; # in ATIS gives this a problem + $limits{'max_column_name'} = 128; + $limits{'max_columns'} = 1000; # 500 crashes pg 6.3 + $limits{'max_conditions'} = 9999; # This makes Pg real slow + $limits{'max_index'} = 64; # Big enough + $limits{'max_index_parts'} = 16; + $limits{'max_tables'} = 65000; + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 65000; # Good enough for test + $limits{'multi_drop'} = 1; + $limits{'order_by_position'} = 1; + $limits{'order_by_unused'} = 1; + $limits{'query_size'} = 16777216; + $limits{'select_without_from'}= 1; + $limits{'subqueries'} = 1; + $limits{'table_wildcard'} = 1; + $limits{'truncate_table'} = 1; + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'working_all_fields'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# couldn't find the option to get the version number + +sub version +{ + my ($version,$dir); + $version = "PostgreSQL version ???"; + foreach $dir ($ENV{'PGDATA'},"/usr/local/pgsql/data", "/usr/local/pg/data") + { + if ($dir && -e "$dir/PG_VERSION") + { + $version= `cat $dir/PG_VERSION`; + if ($? == 0) + { + chomp($version); + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return "PostgreSQL $version"; + } + } + } + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$name,$in,$indfield,$table,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + if ($main::opt_fast) + { + # Allow use of char2, char4, char8 or char16 + $field =~ s/char(2|4|8|16)/char$1/; + } + # Pg can't handle more than the real basic int types + $field =~ s/tinyint|smallint|mediumint|integer/int/; + # Pg can't handle different visual lengths + $field =~ s/int\(\d*\)/int/; + $field =~ s/float\(\d*,\d*\)/float/; + $field =~ s/ double/ float/; +# $field =~ s/ decimal/ float/i; +# $field =~ s/ big_decimal/ float/i; +# $field =~ s/ date/ int/i; + # Pg doesn't have blob, it has text instead + $field =~ s/ blob/ text/; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + foreach $index (@$index) + { + $index =~ s/primary key/unique index primary_key/i; + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + # original: $indfield="using btree (" .$1.")"; + # using btree doesnīt seem to work with Postgres anymore; it creates + # the table and adds the index, but it isnīt unique + $indfield=" (" .$1.")"; + $in="unique index"; + $table="index_$nr"; $nr++; + } + elsif ($index =~ /^(.*index)\s+(\w*)\s+(\(.*\))$/i) + { + # original: $indfield="using btree (" .$1.")"; + $indfield=" " .$3; + $in="index"; + $table="index_$nr"; $nr++; + } + else + { + die "Can't parse index information in '$index'\n"; + } + push(@queries,"create $in ${table_name}_$table on $table_name $indfield"); + } + $queries[0]=$query; + return @queries; +} + +sub insert_file { + my ($self,$dbname, $file, $dbh) = @_; + my ($command, $sth); + +# Syntax: +# copy [binary] <class_name> [with oids] +# {to|from} {<filename>|stdin|stdout} [using delimiters <delim>] + print "The ascii files aren't correct for postgres ....!!!\n"; + $command = "copy $dbname from '$file' using delimiters ','"; + print "$command\n"; + $sth = $dbh->do($command) or die $DBI::errstr; + return $sth; +} + +# +# As postgreSQL wants A % B instead of standard mod(A,B) we have to map +# This will not handle all cases, but as the benchmarks doesn't use functions +# inside MOD() the following should work +# +# PostgreSQL cant handle count(*) or even count(1), but it can handle +# count(1+1) sometimes. ==> this is solved in PostgreSQL 6.3 +# +# PostgreSQL 6.5 is supporting MOD. + +sub query { + my($self,$sql) = @_; + my(@select,$change); +# if you use PostgreSQL 6.x and x is lower as 5 then uncomment the line below. +# $sql =~ s/mod\(([^,]*),([^\)]*)\)/\($1 % $2\)/gi; +# +# if you use PostgreSQL 6.1.x uncomment the lines below +# if ($sql =~ /select\s+count\(\*\)\s+from/i) { +# } +# elsif ($sql =~ /count\(\*\)/i) +# { +# if ($sql =~ /select\s+(.*)\s+from/i) +# { +# @select = split(/,/,$1); +# if ($select[0] =~ /(.*)\s+as\s+\w+$/i) +# { +# $change = $1; +# } +# else +# { +# $change = $select[0]; +# } +# } +# if (($change =~ /count/i) || ($change eq "")) { +# $change = "1+1"; +# } +# $sql =~ s/count\(\*\)/count($change)/gi; +# } +# till here. + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +sub abort_if_fatal_error +{ + return 1 if ($DBI::errstr =~ /sent to backend, but backend closed/i); + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +sub vacuum +{ + my ($self,$full_vacuum,$dbh_ref,@tables)=@_; + my ($loop_time,$end_time,$dbh,$table); + if (defined($full_vacuum)) + { + $$dbh_ref->disconnect; $$dbh_ref= $self->connect(); + } + $dbh=$$dbh_ref; + $loop_time=new Benchmark; + if ($#tables >= 0) + { + foreach $table (@tables) + { + $dbh->do("vacuum analyze $table") || die "Got error: $DBI::errstr when executing 'vacuum analyze $table'\n"; + $dbh->do("vacuum $table") || die "Got error: $DBI::errstr when executing 'vacuum'\n"; + } + } + else + { +# $dbh->do("vacuum pg_attributes") || die "Got error: $DBI::errstr when executing 'vacuum'\n"; +# $dbh->do("vacuum pg_index") || die "Got error: $DBI::errstr when executing 'vacuum'\n"; + $dbh->do("vacuum analyze") || die "Got error: $DBI::errstr when executing 'vacuum analyze'\n"; + $dbh->do("vacuum") || die "Got error: $DBI::errstr when executing 'vacuum'\n"; + } + $end_time=new Benchmark; + print "Time for book-keeping (1): " . + Benchmark::timestr(Benchmark::timediff($end_time, $loop_time),"all") . "\n\n"; + $dbh->disconnect; $$dbh_ref= $self->connect(); +} + + +############################################################################# +# Definitions for Solid +############################################################################# + +package db_Solid; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "solid"; + $self->{'data_source'} = "DBI:Solid:"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "long varchar"; + $self->{'text'} = "long varchar"; + $self->{'double_quotes'} = 1; + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 9999; # Probably big enough + $limits{'max_columns'} = 2000; # From crash-me + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 65492; # According to tests + $limits{'query_size'} = 65535; # Probably a limit + $limits{'max_index'} = 64; # Probably big enough + $limits{'max_index_parts'} = 64; + $limits{'max_column_name'} = 80; + + $limits{'join_optimizer'} = 1; + $limits{'load_data_infile'} = 0; + $limits{'lock_tables'} = 0; + $limits{'functions'} = 1; + $limits{'group_functions'} = 1; + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; # Can do 'select 1' ?; + $limits{'multi_drop'} = 0; + $limits{'subqueries'} = 1; + $limits{'left_outer_join'} = 1; + $limits{'table_wildcard'} = 1; + $limits{'having_with_alias'} = 0; + $limits{'having_with_group'} = 1; + $limits{'like_with_column'} = 1; + $limits{'order_by_position'} = 0; # 2.30.0018 can this + $limits{'group_by_position'} = 0; + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 1; + $limits{'func_extra_%'} = 0; + $limits{'func_odbc_floor'} = 1; + $limits{'column_alias'} = 1; + $limits{'NEG'} = 1; + $limits{'func_extra_in_num'} = 1; + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($version,$dir); + $version="Solid version ??"; + foreach $dir ($ENV{'SOLIDDIR'},"/usr/local/solid", "/my/local/solid") + { + if ($dir && -e "$dir/bin/solcon") + { + $version=`$dir/bin/solcon -e"ver" $main::opt_user $main::opt_password | grep Server | sed q`; + if ($? == 0) + { + chomp($version); + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; + } + } + } + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/integer/i; + $field =~ s/ double/ float/i; + # Solid doesn't have blob, it has long varchar + $field =~ s/ blob/ long varchar/; +# $field =~ s/ decimal/ float/i; +# $field =~ s/ big_decimal/ float/i; +# $field =~ s/ date/ int/i; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + foreach $index (@$index) + { + if ($index =~ /^primary key/i || $index =~ /^unique/i) + { # Add to create statement + substr($queries[0],-1,0)="," . $index; + } + else + { + $index =~ /^(.*)\s+(\(.*\))$/; + push(@queries,"create ${1}$nr on $table_name $2"); + $nr++; + } + } + return @queries; +} + +# there is no sql statement in solid which can do the load from +# an ascii file in the db ... but there is the speedloader program +# an external program which can load the ascii file in the db ... +# the server must be down before using speedloader !!!! +# (in the standalone version) +# it works also with a control file ... that one must be made .... +sub insert_file { + my ($self, $dbname, $file) = @_; + my ($speedcmd); + $speedcmd = '/usr/local/solid/bin/solload'; + print "At this moment not supported - solid server must go down \n"; + return 0; +} + +# solid can't handle an alias in a having statement so +# select test as foo from tmp group by foo having foor > 2 +# becomes +# select test as foo from tmp group by foo having test > 2 +# +sub query { + my($self,$sql) = @_; + my(@select,$tmp,$newhaving,$key,%change); + + if ($sql =~ /having\s+/i) + { + if ($sql =~ /select (.*) from/i) + { + (@select) = split(/,\s*/, $1); + foreach $tmp (@select) + { + if ($tmp =~ /(.*)\s+as\s+(\w+)/) + { + $change{$2} = $1; + } + } + } + if ($sql =~ /having\s+(\w+)/i) + { + $newhaving = $1; + foreach $key (sort {$a cmp $b} keys %change) + { + if ($newhaving eq $key) + { + $newhaving =~ s/$key/$change{$key}/g; + } + } + } + $sql =~ s/(having)\s+(\w+)/$1 $newhaving/i; + } + return $sql; +} + + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +sub reconnect_on_errors +{ + return 0; +} + +############################################################################# +# Definitions for Empress +# +# at this moment DBI:Empress can only handle 200 prepare statements ... +# so Empress can't be tested with the benchmark test :( +############################################################################# + +package db_Empress; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "empress"; + $self->{'data_source'} = "DBI:EmpressNet:SERVER=$host;Database=/usr/local/empress/rdbms/bin/$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "text"; + $self->{'text'} = "text"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 1258; + $limits{'max_columns'} = 226; # server is disconnecting???? + # above this value .... but can handle 2419 columns + # maybe something for crash-me ... but how to check ??? + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 4095; # max returned .... + $limits{'query_size'} = 65535; # Not a limit, big enough + $limits{'max_index'} = 64; # Big enough + $limits{'max_index_parts'} = 64; # Big enough + $limits{'max_column_name'} = 31; + + $limits{'join_optimizer'} = 1; + $limits{'load_data_infile'} = 0; + $limits{'lock_tables'} = 1; + $limits{'functions'} = 1; + $limits{'group_functions'} = 1; + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; + $limits{'multi_drop'} = 0; + $limits{'subqueries'} = 1; + $limits{'table_wildcard'} = 0; + $limits{'having_with_alias'} = 0; # AS isn't supported in a select + $limits{'having_with_group'} = 1; + $limits{'like_with_column'} = 1; + $limits{'order_by_position'} = 1; + $limits{'group_by_position'} = 0; + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'}= 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; + $limits{'func_extra_%'} = 1; + $limits{'func_odbc_floor'} = 1; + $limits{'func_extra_if'} = 0; + $limits{'column_alias'} = 0; + $limits{'NEG'} = 1; + $limits{'func_extra_in_num'} = 0; + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self,$dbh)=@_; + my ($version); + $version=""; + if (-x "/usr/local/empress/rdbms/bin/empvers") + { + $version=`/usr/local/empress/rdbms/bin/empvers | grep Version`; + } + if ($version) + { + chomp($version); + } + else + { + $version="Empress version ???"; + } + + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + my($command,$sth); + $command = "insert into $dbname from '$file'"; + print "$command\n" if ($opt_debug); + $sth = $dbh->do($command) or die $DBI::errstr; + + return $sth; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/int/i; + $field =~ s/tinyint/int/i; + $field =~ s/smallint/int/i; + $field =~ s/longint/int/i; + $field =~ s/integer/int/i; + $field =~ s/ double/ longfloat/i; + # Solid doesn't have blob, it has long varchar +# $field =~ s/ blob/ text(65535,65535,65535,65535)/; + $field =~ s/ blob/ text/; + $field =~ s/ varchar\((\d+)\)/ char($1,3)/; + $field =~ s/ char\((\d+)\)/ char($1,3)/; +# $field =~ s/ decimal/ float/i; +# $field =~ s/ big_decimal/ longfloat/i; +# $field =~ s/ date/ int/i; + $field =~ s/ float(.*)/ float/i; + if ($field =~ / int\((\d+)\)/) { + if ($1 > 4) { + $field =~ s/ int\(\d+\)/ longinteger/i; + } else { + $field =~ s/ int\(\d+\)/ longinteger/i; + } + } else { + $field =~ s/ int/ longinteger/i; + } + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=1; + foreach $index (@$index) + { + # Primary key is unique index in Empress + $index =~ s/primary key/unique index/i; + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + $nr++; + push(@queries,"create unique index ${table_name}_$nr on $table_name ($1)"); + } + else + { + if (!($index =~ /^(.*index)\s+(\w*)\s+(\(.*\))$/i)) + { + die "Can't parse index information in '$index'\n"; + } + push(@queries,"create $1 ${table_name}_$2 on $table_name $3"); + } + } + return @queries; +} + +# empress can't handle an alias and but can handle the number of the +# columname - so +# select test as foo from tmp order by foo +# becomes +# select test from tmp order by 1 +# +sub query { + my($self,$sql) = @_; + my(@select,$i,$tmp,$newselect,$neworder,@order,$key,%change); + my($tmp1,$otmp,$tmp2); + + if ($sql =~ /\s+as\s+/i) + { + if ($sql =~ /select\s+(.*)\s+from/i) { + $newselect = $1; + (@select) = split(/,\s*/, $1); + $i = 1; + foreach $tmp (@select) { + if ($tmp =~ /\s+as\s+(\w+)/) { + $change{$1} = $i; + } + $i++; + } + } + $newselect =~ s/\s+as\s+(\w+)//gi; + $tmp2 = 0; + if ($sql =~ /order\s+by\s+(.*)$/i) { + (@order) = split(/,\s*/, $1); + foreach $otmp (@order) { + foreach $key (sort {$a cmp $b} keys %change) { + if ($otmp eq $key) { + $neworder .= "$tmp1"."$change{$key}"; + $tmp1 = ", "; + $tmp2 = 1; + } elsif ($otmp =~ /(\w+)\s+(.+)$/) { + if ($key eq $1) { + $neworder .= "$tmp1"."$change{$key} $2"; + $tmp2 = 1; + } + } + } + if ($tmp2 == 0) { + $neworder .= "$tmp1"."$otmp"; + } + $tmp2 = 0; + $tmp1 = ", "; + } + } + $sql =~ s/(select)\s+(.*)\s+(from)/$1 $newselect $3/i; + $sql =~ s/(order\s+by)\s+(.*)$/$1 $neworder/i; + } + return $sql; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + $cmd =~ s/\'\'/\' \'/g; + return $cmd; +} + + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# This is a because of the 200 statement problem with DBI-Empress + +sub abort_if_fatal_error +{ + if ($DBI::errstr =~ /Overflow of table of prepared statements/i) + { + print "Overflow of prepared statements ... killing the process\n"; + exit 1; + } + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +############################################################################# +# Definitions for Oracle +############################################################################# + +package db_Oracle; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "Oracle"; + $self->{'data_source'} = "DBI:Oracle:$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "long"; + $self->{'text'} = "long"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{"vacuum"} = 1; + + $limits{'max_conditions'} = 9999; # (Actually not a limit) + $limits{'max_columns'} = 254; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 2000; # Limit for blob test-connect + $limits{'query_size'} = 65525; # Max size with default buffers. + $limits{'max_index'} = 16; # Max number of keys + $limits{'max_index_parts'} = 16; # Max segments/key + $limits{'max_column_name'} = 32; # max table and column name + + $limits{'truncate_table'} = 1; + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; + $limits{'multi_drop'} = 0; + $limits{'subqueries'} = 1; + $limits{'left_outer_join'} = 0; # This may be fixed in the query module + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can't use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; # Oracle has problem with mod() + $limits{'func_extra_%'} = 0; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 1; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); + $sth = $dbh->prepare("select VERSION from product_component_version WHERE PRODUCT like 'Oracle%'") or die $DBI::errstr; + $version="Oracle 7.x"; + if ($sth->execute && (@row = $sth->fetchrow_array)) + { + $version="Oracle $row[0]"; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$ind,@keys); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/ character\((\d+)\)/ char\($1\)/i; + $field =~ s/ character varying\((\d+)\)/ varchar\($1\)/i; + $field =~ s/ char varying\((\d+)\)/ varchar\($1\)/i; + $field =~ s/ integer/ number\(38\)/i; + $field =~ s/ int/ number\(38\)/i; + $field =~ s/ tinyint/ number\(38\)/i; + $field =~ s/ smallint/ number\(38\)/i; + $field =~ s/ mediumint/ number\(38\)/i; + $field =~ s/ tinynumber\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ smallnumber\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ mediumnumber\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ number\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ numeric\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ decimal\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ dec\((\d+)\)\((\d+)\)/ number\($1,$2\)/i; + $field =~ s/ float/ number/; + $field =~ s/ real/ number/; + $field =~ s/ double precision/ number/; + $field =~ s/ double/ number/; + $field =~ s/ blob/ long/; + $query.= $field . ','; + } + + foreach $ind (@$index) + { + my @index; + if ( $ind =~ /\bKEY\b/i ){ + push(@keys,"ALTER TABLE $table_name ADD $ind"); + }else{ + my @fields = split(' ',$index); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@index,$query); + } + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query,@keys,@index); +#print "query:$query\n"; + + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert an ascii file isn't supported by Oracle (?)\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + $cmd =~ s/\'\'/\' \'/g; + return $cmd; +} + + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 1; +} + +sub reconnect_on_errors +{ + return 0; +} + +# +# optimize the tables .... +# +sub vacuum +{ + my ($self,$full_vacuum,$dbh_ref)=@_; + my ($loop_time,$end_time,$sth,$dbh); + + if (defined($full_vacuum)) + { + $$dbh_ref->disconnect; $$dbh_ref= $self->connect(); + } + $dbh=$$dbh_ref; + $loop_time=new Benchmark; + # first analyze all tables + $sth = $dbh->prepare("select table_name from user_tables") || die "Got error: $DBI::errstr"; + $sth->execute || die "Got error: $DBI::errstr when select user_tables"; + while (my @r = $sth->fetchrow_array) + { + $dbh->do("analyze table $r[0] compute statistics") || die "Got error: $DBI::errstr when executing 'analyze table'\n"; + } + # now analyze all indexes ... + $sth = $dbh->prepare("select index_name from user_indexes") || die "Got error: $DBI::errstr"; + $sth->execute || die "Got error: $DBI::errstr when select user_indexes"; + while (my @r1 = $sth->fetchrow_array) + { + $dbh->do("analyze index $r1[0] compute statistics") || die "Got error: $DBI::errstr when executing 'analyze index $r1[0]'\n"; + } + $end_time=new Benchmark; + print "Time for book-keeping (1): " . + Benchmark::timestr(Benchmark::timediff($end_time, $loop_time),"all") . "\n\n"; + $dbh->disconnect; $$dbh_ref= $self->connect(); +} + + +############################################################################# +# Definitions for Informix +############################################################################# + +package db_Informix; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "Informix"; + $self->{'data_source'} = "DBI:Informix:$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "byte in table"; + $self->{'text'} = "byte in table"; + $self->{'double_quotes'} = 0; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{'host'} = $host; + + $limits{'NEG'} = 1; # Supports -id + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 1; + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'func_extra_%'} = 0; # Has % as alias for mod() + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'func_extra_in_num'}= 0; # Has function in + $limits{'func_odbc_floor'} = 0; # Has func_odbc_floor function + $limits{'func_odbc_mod'} = 1; # Have function mod. + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_by_position'} = 1; # Can use 'GROUP BY 1' + $limits{'group_by_alias'} = 0; # Can use 'select a as ab from x GROUP BY ab' + $limits{'group_func_extra_std'} = 0; # Have group function std(). + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'}= 1; # Can't use group functions in HAVING + $limits{'join_optimizer'} = 1; # Can optimize FROM tables (always 1 only for msql) + $limits{'left_outer_join'} = 0; # Supports left outer joins (ANSI) + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 1; # Has lock tables + $limits{'max_conditions'} = 1214; # (Actually not a limit) + $limits{'max_column_name'} = 18; # max table and column name + $limits{'max_columns'} = 994; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_index'} = 64; # Max number of keys + $limits{'max_index_parts'} = 15; # Max segments/key + $limits{'max_text_size'} = 65535; # Max size with default buffers. ?? + $limits{'multi_drop'} = 0; # Drop table can take many tables + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'query_size'} = 32766; # Max size with default buffers. + $limits{'select_without_from'}= 0; # Can do 'select 1'; + $limits{'subqueries'} = 1; # Doesn't support sub-queries. + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $ENV{'INFORMIXSERVER'} = $self->{'host'}; + $dbh=$self->connect(); + $sth = $dbh->prepare("SELECT owner FROM systables WHERE tabname = ' VERSION'") + or die $DBI::errstr; + $version='Informix unknown'; + if ($sth->execute && (@row = $sth->fetchrow_array)) + { + $version="Informix $row[0]"; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + + +# +# Create table +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$name,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { +# $field =~ s/\btransport_description\b/transport_desc/; + # to overcome limit 18 chars + $field =~ s/tinyint/smallint/i; + $field =~ s/tinyint\(\d+\)/smallint/i; + $field =~ s/mediumint/integer/i; + $field =~ s/mediumint\(\d+\)/integer/i; + $field =~ s/smallint\(\d+\)/smallint/i; + $field =~ s/integer\(\d+\)/integer/i; + $field =~ s/int\(\d+\)/integer/i; +# $field =~ s/\b(?:small)?int(?:eger)?\((\d+)\)/decimal($1)/i; +# $field =~ s/float(\(\d*,\d*\)){0,1}/real/i; + $field =~ s/(float|double)(\(.*?\))?/float/i; + + if ($field =~ / blob/i) + { + $name=$self->{'blob'}; + $field =~ s/ blob/ $name/; + } + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + + foreach $index (@$index) + { + # Primary key is unique index in Informix + $index =~ s/primary key/unique index primary/i; + if ($index =~ /^unique\s*\(([^\(]*)\)$/i) + { + $nr++; + push(@queries,"create unique index ${table_name}_$nr on $table_name ($1)"); + } + else + { + if (!($index =~ /^(.*index)\s+(\w*)\s+(\(.*\))$/i)) + { + die "Can't parse index information in '$index'\n"; + } + ### push(@queries,"create $1 ${table_name}_$2 on $table_name $3"); + $nr++; + push(@queries,"create $1 ${table_name}_$nr on $table_name $3"); + } + } + return @queries; +} +# +# Some test needed this +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + $cmd =~ s/\\\'//g; + return $cmd; +} + + + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + + +############################################################################# +# Configuration for Access +############################################################################# + +package db_access; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "access"; + $self->{'data_source'} = "DBI:ODBC:$database"; + if (defined($host) && $host ne "") + { + $self->{'data_source'} .= ":$host"; + } + $self->{'limits'} = \%limits; + $self->{'blob'} = "blob"; + $self->{'text'} = "blob"; # text ? + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 97; # We get 'Query is too complex' + $limits{'max_columns'} = 255; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 255; # Max size with default buffers. + $limits{'query_size'} = 65535; # Not a limit, big enough + $limits{'max_index'} = 32; # Max number of keys + $limits{'max_index_parts'} = 10; # Max segments/key + $limits{'max_column_name'} = 64; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 0; # Have count(distinct) + $limits{'select_without_from'}= 1; # Can do 'select 1'; + $limits{'multi_drop'} = 0; # Drop table can take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Can use 'GROUP BY 1' + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 2; #Have ALTER TABLE t add a int, b int; + $limits{'alter_table_dropcol'}= 1; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. + $limits{'func_extra_%'} = 0; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 0; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 1; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my $version="Access 2000"; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; #DBI/ODBC can't return the server version +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/integer/i; + $field =~ s/tinyint/smallint/i; + $field =~ s/float\(\d+,\d+\)/float/i; + $field =~ s/integer\(\d+\)/integer/i; + $field =~ s/smallint\(\d+\)/smallint/i; + $field =~ s/int\(\d+\)/integer/i; + $field =~ s/blob/text/i; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + foreach $index (@$index) + { + $ext="WITH DISALLOW NULL"; + if (($index =~ s/primary key/unique index primary_key/i)) + { + $ext="WITH PRIMARY;" + } + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + $nr++; + $index="unique index ${table_name}_$nr ($1)"; + } + $index =~ /^(.*)\s+(\(.*\))$/; + push(@queries,"create ${1} on $table_name $2"); + } + return @queries; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index ON $table"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 1 if (($DBI::errstr =~ /The database engine couldn\'t lock table/i) || + ($DBI::errstr =~ /niet vergrendelen. De tabel is momenteel in gebruik /i) || + ($DBI::errstr =~ /Den anv.* redan av en annan/i) || + ($DBI::errstr =~ /non-exclusive access/)); + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 1; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for Microsoft SQL server +############################################################################# + +package db_ms_sql; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "ms-sql"; + $self->{'data_source'} = "DBI:ODBC:$database"; + if (defined($host) && $host ne "") + { + $self->{'data_source'} .= ":$host"; + } + $self->{'limits'} = \%limits; + $self->{'blob'} = "text"; + $self->{'text'} = "text"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 1030; # We get 'Query is too complex' + $limits{'max_columns'} = 250; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 9830; # Max size with default buffers. + $limits{'query_size'} = 9830; # Max size with default buffers. + $limits{'max_index'} = 64; # Max number of keys + $limits{'max_index_parts'} = 15; # Max segments/key + $limits{'max_column_name'} = 30; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 1; # Can do 'select 1'; + $limits{'multi_drop'} = 1; # Drop table can take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can't use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Can use 'GROUP BY 1' + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. + $limits{'func_extra_%'} = 1; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 0; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my($sth,@row, $version); + $version='MS SQL server ?'; + $dbh=$self->connect(); + $sth = $dbh->prepare("SELECT \@\@VERSION") or die $DBI::errstr; + $sth->execute or die $DBI::errstr; + @row = $sth->fetchrow_array; + if ($row[0]) { + @server = split(/\n/,$row[0]); + chomp(@server); + $version= "$server[0]"; + } + $sth->finish; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/integer/i; + $field =~ s/float\(\d+,\d+\)/float/i; + $field =~ s/double\(\d+,\d+\)/float/i; + $field =~ s/double/float/i; + $field =~ s/integer\(\d+\)/integer/i; + $field =~ s/int\(\d+\)/integer/i; + $field =~ s/smallint\(\d+\)/smallint/i; + $field =~ s/smallinteger/smallint/i; + $field =~ s/tinyint\(\d+\)/tinyint/i; + $field =~ s/tinyinteger/tinyint/i; + $field =~ s/blob/text/i; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + foreach $index (@$index) + { + $ext="WITH DISALLOW NULL"; + if (($index =~ s/primary key/unique index primary_key/i)) + { + $ext="WITH PRIMARY;" + } + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + $nr++; + $index="unique index ${table_name}_$nr ($1)"; + } + $index =~ /^(.*)\s+(\(.*\))$/; + push(@queries,"create ${1} on $table_name $2"); + } + return @queries; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $table.$index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for Sybase +############################################################################# +package db_sybase; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "sybase"; + $self->{'data_source'} = "DBI:Sybase:database=$database"; + if (defined($host) && $host ne "") + { + $self->{'data_source'} .= ";hostname=$host"; + } + $self->{'limits'} = \%limits; + $self->{'blob'} = "text"; + $self->{'text'} = "text"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{"vacuum"} = 1; + + $limits{'max_conditions'} = 1030; # We get 'Query is too complex' + $limits{'max_columns'} = 250; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 9830; # Max size with default buffers. + $limits{'query_size'} = 9830; # Max size with default buffers. + $limits{'max_index'} = 64; # Max number of keys + $limits{'max_index_parts'} = 15; # Max segments/key + $limits{'max_column_name'} = 30; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 1; # Can do 'select 1'; + $limits{'multi_drop'} = 1; # Drop table can take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can't use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Can use 'GROUP BY 1' + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. + $limits{'func_extra_%'} = 1; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 0; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); + $sth = $dbh->prepare('SELECT @@version') or die $DBI::errstr; + $version="Sybase (unknown)"; + if ($sth->execute && (@row = $sth->fetchrow_array)) + { + $version=$row[0]; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0 , AutoCommit => 1}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/integer/i; + $field =~ s/float\(\d+,\d+\)/float/i; + $field =~ s/int\(\d+\)/int/i; + $field =~ s/double/float/i; + $field =~ s/integer\(\d+\)/integer/i; + $field =~ s/smallint\(\d+\)/smallint/i; + $field =~ s/tinyint\(\d+\)/tinyint/i; + $field =~ s/blob/text/i; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + foreach $index (@$index) + { +# $ext="WITH DISALLOW NULL"; + if (($index =~ s/primary key/unique index primary_key/i)) + { +# $ext="WITH PRIMARY;" + } + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + $nr++; + $index="unique index ${table_name}_$nr ($1)"; + } + $index =~ /^(.*)\s+(\(.*\))$/; + push(@queries,"create ${1} on $table_name $2"); + } + return @queries; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $table.$index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +# +# optimize the tables .... +# WARNING (from walrus)! This sub will work only from DBD:sybase +# driver. Because if we use ODBC we don't know actual database name +# (but DSN name only) +sub vacuum +{ + my ($self,$full_vacuum,$dbh_ref)=@_; + my ($loop_time,$end_time,$dbh); + + if (defined($full_vacuum)) + { + $$dbh_ref->disconnect; $$dbh_ref= $self->connect(); + } + $dbh=$$dbh_ref; + $loop_time=new Benchmark; + my (@tables,$sth,$current_table,$current_base); + $dbh->do("dump tran $database with truncate_only"); + $sth=$dbh->prepare("sp_tables" ) or die "prepere"; + $sth->execute() or die "execute"; + while (@row = $sth->fetchrow_array()) { + $current_table = $row[2]; + $current_base = $row[0]; + next if ($current_table =~ /^sys/); + push(@tables,$current_table) if ($database == $current_base); + } + + $sth->finish(); + + foreach $table (@tables) { +# print "$table: \n"; + $dbh->do("update statistics $table") or print "Oops!"; + } + +# $dbh->do("analyze table ?? compute statistics") || die "Got error: $DBI::errstr when executing 'vacuum'\n"; + $end_time=new Benchmark; + print "Time for book-keeping (1): " . + Benchmark::timestr(Benchmark::timediff($end_time, $loop_time),"all") . "\n\n"; + $dbh->disconnect; $$dbh_ref= $self->connect(); +} + + + + +############################################################################# +# Definitions for Adabas +############################################################################# + +package db_Adabas; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "Adabas"; + $self->{'data_source'} = "DBI:Adabas:$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "long"; + $self->{'text'} = "long"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 50; # (Actually not a limit) + $limits{'max_columns'} = 254; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 2000; # Limit for blob test-connect + $limits{'query_size'} = 65525; # Max size with default buffers. + $limits{'max_index'} = 16; # Max number of keys + $limits{'max_index_parts'} = 16; # Max segments/key + $limits{'max_column_name'} = 32; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; + $limits{'multi_drop'} = 0; + $limits{'subqueries'} = 1; + $limits{'left_outer_join'} = 0; # This may be fixed in the query module + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can't use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 1; + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 2; #Have ALTER TABLE t add a int, b int; + $limits{'alter_table_dropcol'}= 1; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 0; # Oracle has problem with mod() + $limits{'func_extra_%'} = 0; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 1; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); + $sth = $dbh->prepare("SELECT KERNEL FROM VERSIONS") or die $DBI::errstr; + $version="Adabas (unknown)"; + if ($sth->execute && (@row = $sth->fetchrow_array) + && $row[0] =~ /([\d\.]+)/) + { + $version="Adabas $1"; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$ind,@keys); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/CHARACTER\s+VARYING/VARCHAR/i; + $field =~ s/TINYINT/SMALLINT/i; + $field =~ s/MEDIUMINT/INT/i; + $field =~ s/SMALLINT\s*\(\d+\)/SMALLINT/i; + $field =~ s/INT\s*\(\d+\)/INT/i; + $field =~ s/BLOB/LONG/i; + $field =~ s/INTEGER\s*\(\d+\)/INTEGER/i; + $field =~ s/FLOAT\s*\((\d+),\d+\)/FLOAT\($1\)/i; + $field =~ s/DOUBLE/FLOAT\(38\)/i; + $field =~ s/DOUBLE\s+PRECISION/FLOAT\(38\)/i; + $query.= $field . ','; + } + + foreach $ind (@$index) + { + my @index; + if ( $ind =~ /\bKEY\b/i ){ + push(@keys,"ALTER TABLE $table_name ADD $ind"); + }else{ + my @fields = split(' ',$index); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@index,$query); + } + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query,@keys,@index); +#print "query:$query\n"; + + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert an ascii file isn't supported by Oracle (?)\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for IBM DB2 +############################################################################# + +package db_db2; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "DB2"; + $self->{'data_source'} = "DBI:ODBC:$database"; + if (defined($host) && $host ne "") + { + $self->{'data_source'} .= ":$host"; + } + $self->{'limits'} = \%limits; + $self->{'blob'} = "varchar(255)"; + $self->{'text'} = "varchar(255)"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + + $limits{'max_conditions'} = 418; # We get 'Query is too complex' + $limits{'max_columns'} = 500; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + + $limits{'max_text_size'} = 254; # Max size with default buffers. + $limits{'query_size'} = 254; # Max size with default buffers. + $limits{'max_index'} = 48; # Max number of keys + $limits{'max_index_parts'} = 15; # Max segments/key + $limits{'max_column_name'} = 18; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'}= 1; + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; # Can do 'select 1'; + $limits{'multi_drop'} = 0; # Drop table can take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can't use group functions in HAVING + $limits{'like_with_column'} = 0; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Can use 'GROUP BY 1' + $limits{'alter_table'} = 1; + $limits{'alter_add_multi_col'}= 0; + $limits{'alter_table_dropcol'}= 0; + + $limits{'group_func_extra_std'} = 0; # Have group function std(). + + $limits{'func_odbc_mod'} = 1; # Have function mod. + $limits{'func_extra_%'} = 0; # Has % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 0; # Has function in + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + return "IBM DB2 5"; #DBI/ODBC can't return the server version +} + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, $main::opt_password) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index) = @_; + my($query,@queries,$nr); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/mediumint/integer/i; + $field =~ s/float\(\d+,\d+\)/float/i; + $field =~ s/integer\(\d+\)/integer/i; + $field =~ s/int\(\d+\)/integer/i; + $field =~ s/tinyint\(\d+\)/smallint/i; + $field =~ s/tinyint/smallint/i; + $field =~ s/smallint\(\d+\)/smallint/i; + $field =~ s/smallinteger/smallint/i; + $field =~ s/blob/varchar(256)/i; + $query.= $field . ','; + } + substr($query,-1)=")"; # Remove last ','; + push(@queries,$query); + $nr=0; + foreach $index (@$index) + { + $ext="WITH DISALLOW NULL"; + if (($index =~ s/primary key/unique index primary_key/i)) + { + $ext="WITH PRIMARY;" + } + if ($index =~ /^unique.*\(([^\(]*)\)$/i) + { + $nr++; + $index="unique index ${table_name}_$nr ($1)"; + } + $index =~ /^(.*)\s+(\(.*\))$/; + push(@queries,"create ${1} on $table_name $2"); + } + return @queries; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index +{ + my ($self,$table,$index) = @_; + return "DROP INDEX $table.$index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 1; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for MIMER +############################################################################# + +package db_Mimer; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "mimer"; + $self->{'data_source'} = "DBI:mimer:$database:$host"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "binary varying(15000)"; + $self->{'text'} = "character varying(15000)"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{'char_null'} = "cast(NULL as char(1))"; + $self->{'numeric_null'} = "cast(NULL as int)"; + + $limits{'max_conditions'} = 9999; # (Actually not a limit) + $limits{'max_columns'} = 252; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 15000; # Max size with default buffers. + $limits{'query_size'} = 1000000; # Max size with default buffers. + $limits{'max_index'} = 32; # Max number of keys + $limits{'max_index_parts'} = 16; # Max segments/key + $limits{'max_column_name'} = 128; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 1; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; # Cannot do 'select 1'; + $limits{'multi_drop'} = 0; # Drop table cannot take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Cannot use 'GROUP BY 1' + $limits{'alter_table'} = 1; # Have ALTER TABLE + $limits{'alter_add_multi_col'}= 0; # Have ALTER TABLE t add a int,add b int; + $limits{'alter_table_dropcol'}= 1; # Have ALTER TABLE DROP column + $limits{'insert_multi_value'} = 0; # Does not have INSERT ... values (1,2),(3,4) + $limits{'multi_distinct'} = 0; # Does not allow select count(distinct a),count(distinct b).. + + $limits{'group_func_extra_std'} = 0; # Does not have group function std(). + + $limits{'func_odbc_mod'} = 1; # Have function mod. + $limits{'func_extra_%'} = 0; # Does not have % as alias for mod() + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Does not have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 1; # Has function in + $limits{'limit'} = 0; # Does not support the limit attribute + $limits{'unique_index'} = 1; # Unique index works or not + $limits{'insert_select'} = 1; + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 0; + $limits{'working_all_fields'} = 1; + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); +# +# Pick up SQLGetInfo option SQL_DBMS_VER (18) +# + $version = $dbh->func(18, GetInfo); + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +# +# Connection with optional disabling of logging +# + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + + $dbh->do("SET OPTION LOG_OFF=1,UPDATE_LOG=0"); + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index,$options) = @_; + my($query,@queries,@indexes); + + $query="create table $table_name ("; + foreach $field (@$fields) + { +# $field =~ s/ decimal/ double(10,2)/i; +# $field =~ s/ big_decimal/ double(10,2)/i; + $field =~ s/ double/ double precision/i; + $field =~ s/ tinyint\(.*\)/ smallint/i; + $field =~ s/ smallint\(.*\)/ smallint/i; + $field =~ s/ mediumint/ integer/i; + $field =~ s/ float\(.*\)/ float/i; +# $field =~ s/ date/ int/i; # Because of tcp ? + $query.= $field . ','; + } + foreach $index (@$index) + { + if ( $index =~ /\bINDEX\b/i ) + { + my @fields = split(' ',$index); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@indexes,$query); + + } else { + $query.= $index . ','; + } + } + substr($query,-1)=")"; # Remove last ','; + $query.=" $options" if (defined($options)); + push(@queries,$query,@indexes); + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert of an ascii file isn't supported by Mimer\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index { + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 1 if ($DBI::errstr =~ /Table locked by another cursor/); + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for InterBase +############################################################################# + +package db_interbase; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "interbase"; + $self->{'data_source'} = "DBI:InterBase:database=$database;ib_dialect=3"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "blob"; + $self->{'text'} = ""; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled + $self->{'char_null'} = ""; + $self->{'numeric_null'} = ""; + + $limits{'max_conditions'} = 9999; # (Actually not a limit) + $limits{'max_columns'} = 252; # Max number of columns in table + $limits{'max_tables'} = 65000; # Should be big enough + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 15000; # Max size with default buffers. + $limits{'query_size'} = 1000000; # Max size with default buffers. + $limits{'max_index'} = 65000; # Max number of keys + $limits{'max_index_parts'} = 8; # Max segments/key + $limits{'max_column_name'} = 128; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 0; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings + $limits{'group_distinct_functions'}= 1; # Have count(distinct) + $limits{'select_without_from'}= 0; # Cannot do 'select 1'; + $limits{'multi_drop'} = 0; # Drop table cannot take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 1; # Can use group functions in HAVING + $limits{'like_with_column'} = 0; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Cannot use 'GROUP BY 1' + $limits{'alter_table'} = 1; # Have ALTER TABLE + $limits{'alter_add_multi_col'}= 1; # Have ALTER TABLE t add a int,add b int; + $limits{'alter_table_dropcol'}= 1; # Have ALTER TABLE DROP column + $limits{'insert_multi_value'} = 0; # Does not have INSERT ... values (1,2),(3,4) + + $limits{'group_func_extra_std'} = 0; # Does not have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. + $limits{'func_extra_%'} = 0; # Does not have % as alias for mod() + $limits{'func_odbc_floor'} = 0; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Does not have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 0; # Supports -id + $limits{'func_extra_in_num'} = 0; # Has function in + $limits{'limit'} = 0; # Does not support the limit attribute + $limits{'working_blobs'} = 1; # If big varchar/blobs works + $limits{'order_by_unused'} = 1; + $limits{'working_all_fields'} = 1; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$version); + + $version='Interbase ?'; + + $dbh=$self->connect(); + eval { $version = $dbh->func('version','ib_database_info')->{'version'}; }; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +# +# Connection with optional disabling of logging +# + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0, AutoCommit => 1}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index,$options) = @_; + my($query,@queries,@keys,@indexes); + + $query="create table $table_name ("; + foreach $field (@$fields) + { +# $field =~ s/ big_decimal/ decimal/i; + $field =~ s/ double/ double precision/i; + $field =~ s/ tinyint/ smallint/i; + $field =~ s/ mediumint/ integer/i; + $field =~ s/\bint\b/integer/i; + $field =~ s/ float\(\d,\d\)/ float/i; + $field =~ s/ smallint\(\d\)/ smallint/i; + $field =~ s/ integer\(\d\)/ integer/i; + $query.= $field . ','; + } + foreach $ind (@$index) + { + if ( $ind =~ /(\bKEY\b)|(\bUNIQUE\b)/i ){ + push(@keys,"ALTER TABLE $table_name ADD $ind"); + }else{ + my @fields = split(' ',$ind); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@indexes,$query); + } + } + substr($query,-1)=")"; # Remove last ','; + $query.=" $options" if (defined($options)); + push(@queries,$query,@keys,@indexes); + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert of an ascii file isn't supported by InterBase\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index { + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 1 if ($DBI::errstr =~ /Table locked by another cursor/); + return 0; +} + +sub small_rollback_segment +{ + return 1; +} + +sub reconnect_on_errors +{ + return 1; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for FrontBase +############################################################################# + +package db_FrontBase; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "FrontBase"; + $self->{'data_source'} = "DBI:FB:dbname=$database;host=$host"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "varchar(8000000)"; + $self->{'text'} = "varchar(8000000)"; + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ' restrict'; + $self->{'transactions'} = 1; # Transactions enabled + $self->{'error_on_execute_means_zero_rows'}=1; + + $limits{'max_conditions'} = 5427; # (Actually not a limit) + # The following should be 8192, but is smaller because Frontbase crashes.. + $limits{'max_columns'} = 150; # Max number of columns in table + $limits{'max_tables'} = 5000; # 10000 crashed FrontBase + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 65000; # Max size with default buffers. + $limits{'query_size'} = 8000000; # Max size with default buffers. + $limits{'max_index'} = 38; # Max number of keys + $limits{'max_index_parts'} = 20; # Max segments/key + $limits{'max_column_name'} = 128; # max table and column name + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables + $limits{'load_data_infile'} = 1; # Has load data infile + $limits{'lock_tables'} = 0; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) + $limits{'group_functions'} = 1; # Have group functions + $limits{'group_distinct_functions'}= 0; # Have count(distinct) + $limits{'select_without_from'}= 0; + $limits{'multi_drop'} = 0; # Drop table cannot take many tables + $limits{'subqueries'} = 1; # Supports sub-queries. + $limits{'left_outer_join'} = 1; # Supports left outer joins + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING + $limits{'having_with_group'} = 0; # Can use group functions in HAVING + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' + $limits{'group_by_position'} = 0; # Use of 'GROUP BY 1' + $limits{'alter_table'} = 1; # Have ALTER TABLE + $limits{'alter_add_multi_col'}= 0; # Have ALTER TABLE t add a int,add b int; + $limits{'alter_table_dropcol'}= 0; # Have ALTER TABLE DROP column + $limits{'insert_multi_value'} = 1; + + $limits{'group_func_extra_std'} = 0; # Does not have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. + $limits{'func_extra_%'} = 0; # Does not have % as alias for mod() + $limits{'func_odbc_floor'} = 0; # Has func_odbc_floor function + $limits{'func_extra_if'} = 0; # Does not have function if. + $limits{'column_alias'} = 1; # Alias for fields in select statement. + $limits{'NEG'} = 1; # Supports -id + $limits{'func_extra_in_num'} = 0; # Has function in + $limits{'limit'} = 0; # Does not support the limit attribute + $limits{'insert_select'} = 0; + $limits{'order_by_unused'} = 0; + + # We don't get an error for duplicate row in 'test-insert' + $limits{'unique_index'} = 0; # Unique index works or not + # We can't use a blob as a normal string (we got a wierd error) + $limits{'working_blobs'} = 0; + # 'select min(region),max(region) from bench1' kills the server after a while + $limits{'group_func_sql_min_str'} = 0; + # If you do select f1,f2,f3...f200 from table, Frontbase dies. + $limits{'working_all_fields'} = 0; + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + +# $dbh=$self->connect(); +# +# Pick up SQLGetInfo option SQL_DBMS_VER (18) +# + #$version = $dbh->func(18, GetInfo); + $version="FrontBase 3.3"; +# $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +# +# Connection with optional disabling of logging +# + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, + $main::opt_user, + $main::opt_password, + { PrintError => 0 , + 'fb_host'=>$main::opt_host + }) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + $db->{AutoCommit}=1; + # $dbh->do("SET OPTION LOG_OFF=1,UPDATE_LOG=0"); + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# +# If one uses $main::opt_fast then one is allowed to use +# non standard types to get better speed. +# + +sub create +{ + my($self,$table_name,$fields,$index,$options) = @_; + my($query,@queries,@indexes,@keys); + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/ blob/ varchar(32000)/i; + $field =~ s/ big_decimal/ float/i; + $field =~ s/ double/ float/i; + $field =~ s/ tinyint/ smallint/i; + $field =~ s/ mediumint/ int/i; + $field =~ s/ integer/ int/i; + $field =~ s/ float\(\d,\d\)/ float/i; + $field =~ s/ smallint\(\d\)/ smallint/i; + $field =~ s/ int\(\d\)/ int/i; + $query.= $field . ','; + } + foreach $ind (@$index) + { +# my @index; + if ( $ind =~ /(\bKEY\b)|(\bUNIQUE\b)/i ){ + push(@keys,"ALTER TABLE $table_name ADD $ind"); + }else{ + my @fields = split(' ',$ind); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@indexes,$query); + } + } + substr($query,-1)=")"; # Remove last ','; + $query.=" $options" if (defined($options)); + push(@queries,$query,@keys,@indexes); + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert of an ascii file isn't supported by InterBase\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index { + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0 if ($DBI::errstr =~ /No raw data handle/); + return 1; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 1; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +############################################################################# +# Configuration for SAPDB +############################################################################# + +package db_sapdb; + +sub new +{ + my ($type,$host,$database)= @_; + my $self= {}; + my %limits; + bless $self; + + $self->{'cmp_name'} = "sapdb"; + $self->{'data_source'} = "DBI:SAP_DB:$database"; + $self->{'limits'} = \%limits; + $self->{'blob'} = "LONG"; # * + $self->{'text'} = "LONG"; # * + $self->{'double_quotes'} = 1; # Can handle: 'Walker''s' + $self->{'drop_attr'} = ""; + $self->{'transactions'} = 1; # Transactions enabled * + $self->{'char_null'} = ""; + $self->{'numeric_null'} = ""; + + $limits{'max_conditions'} = 9999; # (Actually not a limit) * + $limits{'max_columns'} = 1023; # Max number of columns in table * + $limits{'max_tables'} = 65000; # Should be big enough * unlimited actually + $limits{'max_temporary_tables'}= $limits{"max_tables"}; + $limits{'max_text_size'} = 15000; # Max size with default buffers. + $limits{'query_size'} = 64*1024; # Max size with default buffers. *64 kb by default. May be set by system variable + $limits{'max_index'} = 510; # Max number of keys * + $limits{'max_index_parts'} = 16; # Max segments/key * + $limits{'max_column_name'} = 32; # max table and column name * + + $limits{'join_optimizer'} = 1; # Can optimize FROM tables * + $limits{'load_data_infile'} = 0; # Has load data infile * + $limits{'lock_tables'} = 1; # Has lock tables + $limits{'functions'} = 1; # Has simple functions (+/-) * + $limits{'group_functions'} = 1; # Have group functions * + $limits{'group_func_sql_min_str'} = 1; # Can execute MIN() and MAX() on strings * + $limits{'group_distinct_functions'}= 1; # Have count(distinct) * + $limits{'select_without_from'}= 0; # Cannot do 'select 1'; * + $limits{'multi_drop'} = 0; # Drop table cannot take many tables * + $limits{'subqueries'} = 1; # Supports sub-queries. * + $limits{'left_outer_join'} = 1; # Supports left outer joins * + $limits{'table_wildcard'} = 1; # Has SELECT table_name.* + $limits{'having_with_alias'} = 0; # Can use aliases in HAVING * + $limits{'having_with_group'} = 1; # Can use group functions in HAVING * + $limits{'like_with_column'} = 1; # Can use column1 LIKE column2 * + $limits{'order_by_position'} = 1; # Can use 'ORDER BY 1' * + $limits{'group_by_position'} = 0; # Cannot use 'GROUP BY 1' * + $limits{'alter_table'} = 1; # Have ALTER TABLE * + $limits{'alter_add_multi_col'}= 1; # Have ALTER TABLE t add a int,add b int; * + $limits{'alter_table_dropcol'}= 1; # Have ALTER TABLE DROP column * + $limits{'insert_multi_value'} = 0; # INSERT ... values (1,2),(3,4) * + + $limits{'group_func_extra_std'} = 0; # Does not have group function std(). + + $limits{'func_odbc_mod'} = 0; # Have function mod. * + $limits{'func_extra_%'} = 0; # Does not have % as alias for mod() * + $limits{'func_odbc_floor'} = 1; # Has func_odbc_floor function * + $limits{'func_extra_if'} = 0; # Does not have function if. * + $limits{'column_alias'} = 1; # Alias for fields in select statement. * + $limits{'NEG'} = 1; # Supports -id * + $limits{'func_extra_in_num'} = 0; # Has function in * + $limits{'limit'} = 0; # Does not support the limit attribute * + $limits{'working_blobs'} = 1; # If big varchar/blobs works * + $limits{'order_by_unused'} = 1; # + $limits{'working_all_fields'} = 1; # + $limits{'multi_distinct'} = 1; # allows select count(distinct a),count(distinct b).. + + + return $self; +} + +# +# Get the version number of the database +# + +sub version +{ + my ($self)=@_; + my ($dbh,$sth,$version,@row); + + $dbh=$self->connect(); + $sth = $dbh->prepare("SELECT KERNEL FROM VERSIONS") or die $DBI::errstr; + $version="SAP DB (unknown)"; + if ($sth->execute && (@row = $sth->fetchrow_array) + && $row[0] =~ /([\d\.]+)/) + { + $version=$row[0]; + $version =~ s/KERNEL/SAP DB/i; + } + $sth->finish; + $dbh->disconnect; + $version .= "/ODBC" if ($self->{'data_source'} =~ /:ODBC:/); + return $version; +} + +# +# Connection with optional disabling of logging +# + +sub connect +{ + my ($self)=@_; + my ($dbh); + $dbh=DBI->connect($self->{'data_source'}, $main::opt_user, + $main::opt_password,{ PrintError => 0, AutoCommit => 1}) || + die "Got error: '$DBI::errstr' when connecting to " . $self->{'data_source'} ." with user: '$main::opt_user' password: '$main::opt_password'\n"; + + return $dbh; +} + +# +# Returns a list of statements to create a table +# The field types are in ANSI SQL format. +# + +sub create +{ + my($self,$table_name,$fields,$index,$options) = @_; + my($query,@queries,$nr); + my @index; + my @keys; + + $query="create table $table_name ("; + foreach $field (@$fields) + { + $field =~ s/\bmediumint\b/int/i; + $field =~ s/\btinyint\b/int/i; + $field =~ s/ int\(\d\)/ int/i; + $field =~ s/BLOB/LONG/i; + $field =~ s/INTEGER\s*\(\d+\)/INTEGER/i; + $field =~ s/SMALLINT\s*\(\d+\)/SMALLINT/i; + $field =~ s/FLOAT\s*\((\d+),\d+\)/FLOAT\($1\)/i; + $field =~ s/DOUBLE/FLOAT\(38\)/i; + $field =~ s/DOUBLE\s+PRECISION/FLOAT\(38\)/i; + $query.= $field . ','; + } + $nr=0; + foreach $ind (@$index) + { + if ( $ind =~ /\bKEY\b/i ){ + push(@keys,"ALTER TABLE $table_name ADD $ind"); + } elsif ($ind =~ /^unique.*\(([^\(]*)\)$/i) { + $nr++; + my $query="create unique index ${table_name}_$nr on $table_name ($1)"; + push(@index,$query); + }else{ + my @fields = split(' ',$ind); + my $query="CREATE INDEX $fields[1] ON $table_name $fields[2]"; + push(@index,$query); + } + } + substr($query,-1)=")"; # Remove last ','; + $query.=" $options" if (defined($options)); + push(@queries,$query); + push(@queries,@keys); + push(@queries,@index); + return @queries; +} + +sub insert_file { + my($self,$dbname, $file) = @_; + print "insert of an ascii file isn't supported by SAPDB\n"; + return 0; +} + +# +# Do any conversions to the ANSI SQL query so that the database can handle it +# + +sub query { + my($self,$sql) = @_; + return $sql; +} + +sub drop_index { + my ($self,$table,$index) = @_; + return "DROP INDEX $index"; +} + +# +# Abort if the server has crashed +# return: 0 if ok +# 1 question should be retried +# + +sub abort_if_fatal_error +{ + return 0; +} + +sub small_rollback_segment +{ + return 0; +} + +sub reconnect_on_errors +{ + return 0; +} + +sub fix_for_insert +{ + my ($self,$cmd) = @_; + return $cmd; +} + +1; |