This is a patch against DBD::ODBC version 0.30, as I found it on CPAN,
it:
1) Adds support for building directly against the sapdb odbc interface
on unix.
2) Removes annoying message about "SQLDriverConnect unsupported."
3) Converts Makefile.PL to unix linefeeds, as a side effect.
If you use this and you want to create triggers then use this option:
$dbh->{odbc_ignore_named_placeholders} = 1;
It allows you to use :new.field and :old.field in your triggers,
otherwise those would be named placeholders.
--
Regards Flemming Frandsen aka. Dion/Swamp http://dion.swamp.dk
diff -ur orig/DBD-ODBC-0.30/Makefile.PL DBD-ODBC-0.30/Makefile.PL
--- orig/DBD-ODBC-0.30/Makefile.PL Wed Aug 22 22:30:14 2001
+++ DBD-ODBC-0.30/Makefile.PL Wed Jan 16 07:39:46 2002
@@ -1,347 +1,366 @@
-#!/usr/local/bin/perl -sw
-#
-# $Id: DBD-ODBC-0.30-sapdb.diff,v 1.1 2002/01/16 06:55:43 ff Exp $
-#
-# You may distribute under the terms of either the GNU General Public
-# License or the Artistic License, as specified in the Perl README file.
-#
-BEGIN { require 5.004 } # 5.004 is required for Win32
-use Config;
-use ExtUtils::MakeMaker 5.16, qw(&WriteMakefile $Verbose);
-use File::Basename;
-use Getopt::Long;
-
-use DBI 0.93; # must be installed first
-use DBI::DBD;
-use strict;
-
-my %opts =
-(
- NAME => 'DBD::ODBC',
- VERSION_FROM => 'ODBC.pm',
- clean => { FILES=> 'ODBC.xsi dbdodbc.h' },
- dist => {
- #DIST_DEFAULT=> 'clean distcheck disttest ci tardist',
- DIST_DEFAULT=> 'clean distcheck ci tardist',
- PREOP => '$(MAKE) -f Makefile.old distdir',
- COMPRESS => 'gzip -v9', SUFFIX => 'gz'
- },
- OBJECT => '$(O_FILES)',
-);
-if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
- $opts{AUTHOR} = 'Tim Bunce and Jeff Urlwin ( http://www.isc.org/dbi-lists.html )';
- $opts{ABSTRACT} = 'ODBC driver for the DBI module.';
- $opts{PREREQ_PM} = { DBI => 0 };
- $opts{CAPI} = 'TRUE' if $Config{archname} =~ /-object\b/i;
-}
-
-$::opt_g = 0;
-$::opt_o = '';
-GetOptions(qw(g! o=s)) or die "Invalid arguments";
-
-$opts{OPTIMIZE} = '-g -O0' if $::opt_g;
-
-
-print "\nConfiguring DBD::ODBC ...\n
->>>\tRemember to actually *READ* the README file!
- \tAnd re-read it if you have any problems.\n
-";
-
-my $dbi_dir = dbd_dbi_dir();
-my $dbi_arch_dir = dbd_dbi_arch_dir();
-
-open(SQLH, ">dbdodbc.h") || die "Can't open dbdodbc.h: $!\n";
-print SQLH "/* Do not edit this file. It is automatically written by Makefile.PL.\n";
-print SQLH " Any changes made here will be lost. \n*/\n\n";
-print SQLH "#undef WORD /* from perly.y */\n";
-
-if ($^O eq 'MSWin32') {
- my $extrainc = "";
- $extrainc = ";$Config{incpath}\\mfc" if $Config{cc} eq 'bcc32';
- $opts{SKIP} = ['processPL'];
- $opts{DEFINE} = "";
- $opts{INC} = "-I$dbi_arch_dir" . $extrainc;
- $opts{LIBS} = ["ODBC32.LIB"];
- $opts{macro}->{EXTRALIB} = 'ODBC32.LIB';
- print SQLH "#include <windows.h>\n";
- print SQLH "#include <sql.h> \n#include <sqlext.h>\n";
-}
-else {
-
- # for Adabas
- $ENV{ODBCHOME} = $ENV{DBROOT} if $ENV{DBROOT} && -f "$ENV{DBROOT}/lib/odbclib.a";
-
- my $odbchome= $::opt_o || $ENV{ODBCHOME};
-
- $odbchome = VMS::Filespec::unixify($odbchome) if $^O eq 'VMS';
-
- # per patches from Teun Burgers
- if (!$odbchome && $ENV{WINDIR} && $^O eq 'cygwin') {
- my $tmp_odbchome = $ENV{WINDIR};
- $tmp_odbchome =~ s/^([A-Za-z]):*$/\/\/$1/;
- $tmp_odbchome =~ s/\\/\//g;
- $odbchome = $tmp_odbchome if (-e "$tmp_odbchome/odbc.ini")
- }
-
- unless ($odbchome) {
- print "\n";
- print "The DBD::ODBC module needs to link with an ODBC 'Driver Manager'.\n";
- print "(The Driver Manager, in turn, needs one or more database specific ODBC
drivers.\n";
- print "The DBD::ODBC module does _not_ include any ODBC drivers!)\n\n";
- print "You need to indicate where your ODBC Driver Manager is installed.\n";
- print "You can do this ether by setting the ODBCHOME environment variable\n";
- print "or by runing 'perl Makefile.PL -o odbcdir'.\n\n";
- print "If you do not have an ODBC Driver Manager you can try building\n";
- print "the free iODBC Driver Manager in the iodbcsrc directory.\n\n";
- die "Makefile.PL aborted.\n";
- }
- die "ODBCHOME environment variable ($odbchome) does not refer to a directory.\n"
- unless -d $odbchome;
- warn "Using ODBC in $odbchome\n";
- $opts{INC} = "-I. -I$dbi_arch_dir";
-
- # Try to work out which driver manager is being used.
- # Feel free to come up with neat (or un-neat) hacks to get your's to build!
-
- my $lib_d1 = "$odbchome/lib";
- my $lib_d2 = "$odbchome/dlls";
- my $libs = "odbc";
- $opts{LIBS} = " -L$lib_d1 -R$lib_d1 -L$lib_d2 -R$lib_d2 -l$libs";
-
- my $myodbc =''; # edit and hack to suit!
- $myodbc = 'Microsoft ODBC'
- if ( -e "$odbchome/system/odbc32.dll" or
- -e "$odbchome/system32/odbc32.dll" or
- -e "$odbchome/odbc32.dll");
- # per patches from Nick Gorham
- $myodbc = 'unixodbc'
- if <$odbchome/lib/libodbc.*>;
-
- $myodbc = 'iodbc'
- if (<$odbchome/*iodbc*> || <$odbchome/lib/*iodbc*>);
-
- $myodbc = 'esodbc'
- if <$odbchome/*esoobclient*>;
-
- $myodbc = 'empress'
- if <$odbchome/lib/libempodbc.*>;
-
- $myodbc = 'intersolve'
- if -f "$odbchome/include/qeodbc.h";
-
- $myodbc = 'adabas'
- if $ENV{DBROOT} && $odbchome eq $ENV{DBROOT} && -f
"$odbchome/lib/odbclib.a";
-
- $myodbc = 'udbc'
- if ($myodbc eq '' && <$odbchome/lib/libudbc.a>);
-
- $myodbc = 'easysoft'
- if ($myodbc eq '' && -f "$odbchome/lib/libesoobclient.so");
-
- $myodbc = 'solid'
- if ($myodbc eq '' && -f "$odbchome/lib/libsolcli.so");
-
- warn "\nUmm, this looks like a $myodbc type of driver manager.\n";
-
- if ($myodbc eq 'Microsoft ODBC') {
- print "\nBuilding for Microsoft under Cygwin\n";
- $opts{LIBS} = "-L/usr/lib/w32api -lodbc32";
- print SQLH "#include <windows.h>\n";
- print SQLH "#include <sql.h>\n";
- print SQLH "#include <sqlext.h>\n";
- print SQLH "#undef WIN32\n";
- $opts{dynamic_lib} = {OTHERLDFLAGS => "-lodbc32"};
- }
- elsif ($myodbc eq 'iodbc') {
- my $ilibdir = "$odbchome/lib";
- my @ilibs = <$ilibdir/*iodbc*.*>;
- @ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
- die "That's odd, I can't see any iodbc libs in $ilibdir" unless @ilibs;
- # This is a hack using Intersolve's free Solaris ODBC manager
- # Since it doesn't come with the sql header files (!) we get them from iODBC!
- # Note: we use DEFINE not INC for iODBC so we don't get its config.h
- print "\n";
- print "We expect to find the isql.h, isqlext.h and iodbc.h files (which
were\n";
- print "supplied with iODBC) in \$ODBCHOME/include directory alongside\n";
- print "the @ilibs library.\n\n";
- my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
- my $ilibname = basename($ilibpath);
- $opts{DEFINE} = "-I$odbchome/include";
- if ($ilibname =~ /^iodbc/) { # no "lib" prefix
- $opts{LIBS} = "";
- $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
- }
- else {
- # remove lib prefix and .so suffix so "-l" style link can be used
- $ilibname =~ s/^lib(iodbc.*?)\.\w+$/$1/;
- $opts{LIBS} = "-L$ilibdir -l$ilibname";
-
- # changed /\Q$ilibpath/ to /\Q$ilibdir/ per recommendation
- # by Ron Savage
- warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome/lib\n"
- unless $ENV{LD_LIBRARY_PATH} =~ /\Q$ilibdir/;
- }
- #print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
- #print SQLH qq{#include <iodbc.h>\n};
- print SQLH qq{#include <isqlext.h>\n};
- print SQLH qq{#include <sql.h>\n};
- #print SQLH qq{#include "fixup_t.h"\n};
- }
- elsif ($myodbc eq 'unixodbc') {
- my @ilibs = <$odbchome/lib/libodbc.*>;
- @ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
- die "That's odd, I can't see any unixodbc libs in $odbchome" unless @ilibs;
- print "We expect to find the sql.h, sqlext.h and (which were\n";
- print "supplied with unixODBC) in \$ODBCHOME/include directory alongside\n";
- print "the @ilibs library. in \$ODBCHOME/lib\n\n";
- my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
- my $ilibname = basename($ilibpath);
- $opts{DEFINE} = "-I$odbchome/include";
- if ($ilibname =~ /^odbc/) { # no "lib" prefix
- $opts{LIBS} = "";
- $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
- }
- else {
- # remove lib prefix and .so suffix so "-l" style link can be used
- $ilibname =~ s/^lib(odbc.*?)\.\w+$/$1/;
- $opts{LIBS} = "-L$odbchome/lib -l$ilibname";
- warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
- unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome\/lib/;
- }
- print SQLH qq{#include <sql.h>\n};
- print SQLH qq{#include <sqlext.h>\n};
- }
- elsif ($myodbc eq 'esodbc') {
- my @ilibs = <$odbchome/*esoobclient.*>;
- print "Located library @ilibs\n";
- # omit . prefix in next grep as some $Config types have . and some don't
- @ilibs = grep { /($Config{so}|$Config{dlext}|$Config{lib_ext})$/ } @ilibs;
- die "That's odd, I can't see any esoobclient libs in $odbchome" unless @ilibs;
- print "We expect to find the sql.h and sqlext.h files (which were\n";
- print "supplied with esoobclient) in \$ODBCHOME/include directory alongside\n";
- print "the @ilibs library.\n\n";
- my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
- my $ilibname = basename($ilibpath);
- print "Using library $ilibname\n";
- $opts{INC} .= " -I$odbchome/include";
- #
- # ptrmismatch avoids the char/unsigned problems in DBD
- # outtyplen is one incorrect fprintf in dbiimp.c(200)
- # promotmatchw - old prototypes problem
- #
- $opts{CCFLAGS} .=
"/warnings=informational=(outtypelen,ptrmismatch,promotmatchw)"
- if ($Config{cc} =~ /DECC/ && $^O eq 'VMS' );
- if ($ilibname =~ /^esoobclient/) { # no "lib" prefix
- $opts{LIBS} = "";
- $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
- }
- else {
- my $extralibs="";
- if (($^O eq 'VMS') && ($ilibname =~ /$Config{lib_ext}$/)) {
- $extralibs = " -lcs_share -lsupport -leasyrpc";
- print "Adding libraries $extralibs\n";
- }
- # remove lib prefix and so suffix so "-l" style link can be used
- $ilibname =~ s/^lib(esoobclient.*?)\.\w+$/$1/;
- $opts{LIBS} = "-L$odbchome -l$ilibname $extralibs";
- if ($^O ne "VMS") {
- warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
- unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome/;
- }
- }
- print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
- print SQLH qq{#include <sqlext.h>\n};
- print SQLH qq{#include <sql.h>\n};
- }
- elsif ($myodbc eq 'intersolve') {
- $opts{DEFINE} = "";
- print SQLH qq{#include <qeodbc.h>\n};
- if (-f "$odbchome/include/sql.h") {
- print "You seem to have the official header files.\n";
- $opts{INC} .= " -I$odbchome/include";
- print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
- }
- else {
- # This is common on Solaris
- print "You don't seem to have the official header files,\n";
- print "so I'll use the iODBC ones instead.\n";
- $opts{INC} .= " -I$odbchome/include -Iiodbcsrc";
- print SQLH qq{#include <isql.h> \n#include <isqlext.h>\n};
- }
- }
- elsif ($myodbc eq 'empress') {
- $opts{INC} .= " -I$odbchome/include";
- $opts{DEFINE} = "";
- print SQLH qq{#include <odbcsys.h>\n};
- print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
- $opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -lempodbc";
- }
- elsif ($myodbc eq 'adabas') {
- print SQLH "#define FAR \n#define EXPORT \n#define CALLBACK \n";
- print SQLH "#include <WINDOWS.H>\n";
- print SQLH "#include <sql.h>\n";
- print SQLH "#include <sqlext.h>\n";
- $opts{INC} .= " -I$odbchome/incl";
- $opts{LIBS} = "-L$odbchome/lib -lsqlrte -lsqlptc";
- $opts{LDFROM} = "\$(OBJECT) $odbchome/lib/odbclib.a";
- }
- elsif ($myodbc eq 'udbc') {
- print SQLH qq{#include <libudbc.h>\n};
- $opts{INC} .= " -I$odbchome/include";
- $opts{DEFINE} = "";
- $opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -ludbc";
- }
- elsif ($myodbc eq 'easysoft') {
- $opts{INC} .= " -I$odbchome/include";
- $opts{LIBS} = "-L$odbchome/lib -lesoobclient";
- print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
- }
- elsif ($myodbc eq 'solid') {
- $opts{INC} .= " -I$odbchome/include";
- $opts{LIBS} = "-L$odbchome/lib -lsolcli";
- # Solid does not support DataSources
- print SQLH qq{#define DBD_ODBC_NO_DATASOURCES\n};
- # Solid does not support DataSources
- print SQLH qq{#define DBD_ODBC_NO_SQLDRIVERCONNECT\n};
- print SQLH qq{#include <cli0cli.h>\n};
- }
- else {
- print "\n*** WARNING ***\a\n";
- print "Unknown driver manager. Using default build process.\n";
- print "This will almost certainly fail at some point.\n";
- print "In which case you will need to edit/hack the Makefile.PL\n";
- print "to suit your needs. (Specifically to locate your odbc\n";
- print "library and header files.)\n\n";
- $opts{DEFINE} = "";
- print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
- }
-}
-print SQLH qq{\n};
-print SQLH qq{#include "fixup_c.h"\n};
-print SQLH qq{\n};
-close(SQLH);
-
-print "\n";
-WriteMakefile(%opts);
-
-local($^W)=0;
-print qq{
-The DBD::ODBC tests will use these values for the database connection:
- DBI_DSN=$ENV{DBI_DSN} e.g. dbi:ODBC:demo
- DBI_USER=$ENV{DBI_USER}
- DBI_PASS=$ENV{DBI_PASS}
-};
-print "Warning: not all required environment variables are set.\n"
- unless ($ENV{DBI_DSN} && $ENV{DBI_USER} && $ENV{DBI_PASS});
-print "Warning: DBI_DSN ($ENV{DBI_DSN}) doesn't start with 'dbi:ODBC:'\n"
- if ($ENV{DBI_DSN} && $ENV{DBI_DSN} !~ m/^dbi:ODBC:/);
-print "\n";
-
-
-sub MY::postamble {
- return dbd_postamble(@_);
-}
-
-__END__
-
-
+#!/usr/local/bin/perl -sw
+#
+# $Id: DBD-ODBC-0.30-sapdb.diff,v 1.1 2002/01/16 06:55:43 ff Exp $
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+#
+BEGIN { require 5.004 } # 5.004 is required for Win32
+use Config;
+use ExtUtils::MakeMaker 5.16, qw(&WriteMakefile $Verbose);
+use File::Basename;
+use Getopt::Long;
+
+use DBI 0.93; # must be installed first
+use DBI::DBD;
+use strict;
+
+my %opts =
+(
+ NAME => 'DBD::ODBC',
+ VERSION_FROM => 'ODBC.pm',
+ clean => { FILES=> 'ODBC.xsi dbdodbc.h' },
+ dist => {
+ #DIST_DEFAULT=> 'clean distcheck disttest ci tardist',
+ DIST_DEFAULT=> 'clean distcheck ci tardist',
+ PREOP => '$(MAKE) -f Makefile.old distdir',
+ COMPRESS => 'gzip -v9', SUFFIX => 'gz'
+ },
+ OBJECT => '$(O_FILES)',
+);
+if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
+ $opts{AUTHOR} = 'Tim Bunce and Jeff Urlwin ( http://www.isc.org/dbi-lists.html )';
+ $opts{ABSTRACT} = 'ODBC driver for the DBI module.';
+ $opts{PREREQ_PM} = { DBI => 0 };
+ $opts{CAPI} = 'TRUE' if $Config{archname} =~ /-object\b/i;
+}
+
+$::opt_g = 0;
+$::opt_o = '';
+GetOptions(qw(g! o=s)) or die "Invalid arguments";
+
+$opts{OPTIMIZE} = '-g -O0' if $::opt_g;
+
+
+print "\nConfiguring DBD::ODBC ...\n
+>>>\tRemember to actually *READ* the README file!
+ \tAnd re-read it if you have any problems.\n
+";
+
+my $dbi_dir = dbd_dbi_dir();
+my $dbi_arch_dir = dbd_dbi_arch_dir();
+
+open(SQLH, ">dbdodbc.h") || die "Can't open dbdodbc.h: $!\n";
+print SQLH "/* Do not edit this file. It is automatically written by Makefile.PL.\n";
+print SQLH " Any changes made here will be lost. \n*/\n\n";
+print SQLH "#undef WORD /* from perly.y */\n";
+
+if ($^O eq 'MSWin32') {
+ my $extrainc = "";
+ $extrainc = ";$Config{incpath}\\mfc" if $Config{cc} eq 'bcc32';
+ $opts{SKIP} = ['processPL'];
+ $opts{DEFINE} = "";
+ $opts{INC} = "-I$dbi_arch_dir" . $extrainc;
+ $opts{LIBS} = ["ODBC32.LIB"];
+ $opts{macro}->{EXTRALIB} = 'ODBC32.LIB';
+ print SQLH "#include <windows.h>\n";
+ print SQLH "#include <sql.h> \n#include <sqlext.h>\n";
+}
+else {
+
+ # for Adabas
+ $ENV{ODBCHOME} = $ENV{DBROOT} if $ENV{DBROOT} && -f "$ENV{DBROOT}/lib/odbclib.a";
+
+ my $odbchome= $::opt_o || $ENV{ODBCHOME};
+
+ $odbchome = VMS::Filespec::unixify($odbchome) if $^O eq 'VMS';
+
+ # per patches from Teun Burgers
+ if (!$odbchome && $ENV{WINDIR} && $^O eq 'cygwin') {
+ my $tmp_odbchome = $ENV{WINDIR};
+ $tmp_odbchome =~ s/^([A-Za-z]):*$/\/\/$1/;
+ $tmp_odbchome =~ s/\\/\//g;
+ $odbchome = $tmp_odbchome if (-e "$tmp_odbchome/odbc.ini")
+ }
+
+ if (!$odbchome && -f '/opt/sapdb/interfaces/odbc/lib/libsqlod.a') {
+ $odbchome = '/opt/sapdb/interfaces/odbc/';
+ }
+
+ unless ($odbchome) {
+ print "\n";
+ print "The DBD::ODBC module needs to link with an ODBC 'Driver Manager'.\n";
+ print "(The Driver Manager, in turn, needs one or more database specific ODBC
+drivers.\n";
+ print "The DBD::ODBC module does _not_ include any ODBC drivers!)\n\n";
+ print "You need to indicate where your ODBC Driver Manager is installed.\n";
+ print "You can do this ether by setting the ODBCHOME environment variable\n";
+ print "or by runing 'perl Makefile.PL -o odbcdir'.\n\n";
+ print "If you do not have an ODBC Driver Manager you can try building\n";
+ print "the free iODBC Driver Manager in the iodbcsrc directory.\n\n";
+ die "Makefile.PL aborted.\n";
+ }
+ die "ODBCHOME environment variable ($odbchome) does not refer to a directory.\n"
+ unless -d $odbchome;
+ warn "Using ODBC in $odbchome\n";
+ $opts{INC} = "-I. -I$dbi_arch_dir";
+
+ # Try to work out which driver manager is being used.
+ # Feel free to come up with neat (or un-neat) hacks to get your's to build!
+
+ my $lib_d1 = "$odbchome/lib";
+ my $lib_d2 = "$odbchome/dlls";
+ my $libs = "odbc";
+ $opts{LIBS} = " -L$lib_d1 -R$lib_d1 -L$lib_d2 -R$lib_d2 -l$libs";
+
+ my $myodbc =''; # edit and hack to suit!
+ $myodbc = 'Microsoft ODBC'
+ if ( -e "$odbchome/system/odbc32.dll" or
+ -e "$odbchome/system32/odbc32.dll" or
+ -e "$odbchome/odbc32.dll");
+ # per patches from Nick Gorham
+ $myodbc = 'unixodbc'
+ if <$odbchome/lib/libodbc.*>;
+
+ $myodbc = 'iodbc'
+ if (<$odbchome/*iodbc*> || <$odbchome/lib/*iodbc*>);
+
+ $myodbc = 'esodbc'
+ if <$odbchome/*esoobclient*>;
+
+ $myodbc = 'empress'
+ if <$odbchome/lib/libempodbc.*>;
+
+ $myodbc = 'intersolve'
+ if -f "$odbchome/include/qeodbc.h";
+
+ $myodbc = 'sapdb'
+ if -f "$odbchome/lib/libsqlod.a";
+
+ $myodbc = 'adabas'
+ if $ENV{DBROOT} && $odbchome eq $ENV{DBROOT} && -f
+"$odbchome/lib/odbclib.a";
+
+ $myodbc = 'udbc'
+ if ($myodbc eq '' && <$odbchome/lib/libudbc.a>);
+
+ $myodbc = 'easysoft'
+ if ($myodbc eq '' && -f "$odbchome/lib/libesoobclient.so");
+
+ $myodbc = 'solid'
+ if ($myodbc eq '' && -f "$odbchome/lib/libsolcli.so");
+
+ warn "\nUmm, this looks like a $myodbc type of driver manager.\n";
+
+ if ($myodbc eq 'Microsoft ODBC') {
+ print "\nBuilding for Microsoft under Cygwin\n";
+ $opts{LIBS} = "-L/usr/lib/w32api -lodbc32";
+ print SQLH "#include <windows.h>\n";
+ print SQLH "#include <sql.h>\n";
+ print SQLH "#include <sqlext.h>\n";
+ print SQLH "#undef WIN32\n";
+ $opts{dynamic_lib} = {OTHERLDFLAGS => "-lodbc32"};
+ }
+ elsif ($myodbc eq 'iodbc') {
+ my $ilibdir = "$odbchome/lib";
+ my @ilibs = <$ilibdir/*iodbc*.*>;
+ @ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
+ die "That's odd, I can't see any iodbc libs in $ilibdir" unless @ilibs;
+ # This is a hack using Intersolve's free Solaris ODBC manager
+ # Since it doesn't come with the sql header files (!) we get them from iODBC!
+ # Note: we use DEFINE not INC for iODBC so we don't get its config.h
+ print "\n";
+ print "We expect to find the isql.h, isqlext.h and iodbc.h files (which
+were\n";
+ print "supplied with iODBC) in \$ODBCHOME/include directory alongside\n";
+ print "the @ilibs library.\n\n";
+ my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+ my $ilibname = basename($ilibpath);
+ $opts{DEFINE} = "-I$odbchome/include";
+ if ($ilibname =~ /^iodbc/) { # no "lib" prefix
+ $opts{LIBS} = "";
+ $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+ }
+ else {
+ # remove lib prefix and .so suffix so "-l" style link can be used
+ $ilibname =~ s/^lib(iodbc.*?)\.\w+$/$1/;
+ $opts{LIBS} = "-L$ilibdir -l$ilibname";
+
+ # changed /\Q$ilibpath/ to /\Q$ilibdir/ per recommendation
+ # by Ron Savage
+ warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome/lib\n"
+ unless $ENV{LD_LIBRARY_PATH} =~ /\Q$ilibdir/;
+ }
+ #print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
+ #print SQLH qq{#include <iodbc.h>\n};
+ print SQLH qq{#include <isqlext.h>\n};
+ print SQLH qq{#include <sql.h>\n};
+ #print SQLH qq{#include "fixup_t.h"\n};
+ }
+ elsif ($myodbc eq 'unixodbc') {
+ my @ilibs = <$odbchome/lib/libodbc.*>;
+ @ilibs = grep { /\.($Config{so}|$Config{dlext}|a)$/ } @ilibs;
+ die "That's odd, I can't see any unixodbc libs in $odbchome" unless @ilibs;
+ print "We expect to find the sql.h, sqlext.h and (which were\n";
+ print "supplied with unixODBC) in \$ODBCHOME/include directory alongside\n";
+ print "the @ilibs library. in \$ODBCHOME/lib\n\n";
+ my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+ my $ilibname = basename($ilibpath);
+ $opts{DEFINE} = "-I$odbchome/include";
+ if ($ilibname =~ /^odbc/) { # no "lib" prefix
+ $opts{LIBS} = "";
+ $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+ }
+ else {
+ # remove lib prefix and .so suffix so "-l" style link can be used
+ $ilibname =~ s/^lib(odbc.*?)\.\w+$/$1/;
+ $opts{LIBS} = "-L$odbchome/lib -l$ilibname";
+ warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
+ unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome\/lib/;
+ }
+ print SQLH qq{#include <sql.h>\n};
+ print SQLH qq{#include <sqlext.h>\n};
+ }
+ elsif ($myodbc eq 'esodbc') {
+ my @ilibs = <$odbchome/*esoobclient.*>;
+ print "Located library @ilibs\n";
+ # omit . prefix in next grep as some $Config types have . and some don't
+ @ilibs = grep { /($Config{so}|$Config{dlext}|$Config{lib_ext})$/ } @ilibs;
+ die "That's odd, I can't see any esoobclient libs in $odbchome" unless @ilibs;
+ print "We expect to find the sql.h and sqlext.h files (which were\n";
+ print "supplied with esoobclient) in \$ODBCHOME/include directory alongside\n";
+ print "the @ilibs library.\n\n";
+ my $ilibpath = $ilibs[0]; # XXX if both .so and .a, pick based on LINKTYPE?
+ my $ilibname = basename($ilibpath);
+ print "Using library $ilibname\n";
+ $opts{INC} .= " -I$odbchome/include";
+ #
+ # ptrmismatch avoids the char/unsigned problems in DBD
+ # outtyplen is one incorrect fprintf in dbiimp.c(200)
+ # promotmatchw - old prototypes problem
+ #
+ $opts{CCFLAGS} .=
+"/warnings=informational=(outtypelen,ptrmismatch,promotmatchw)"
+ if ($Config{cc} =~ /DECC/ && $^O eq 'VMS' );
+ if ($ilibname =~ /^esoobclient/) { # no "lib" prefix
+ $opts{LIBS} = "";
+ $opts{dynamic_lib} = { OTHERLDFLAGS => "$ilibpath" };
+ }
+ else {
+ my $extralibs="";
+ if (($^O eq 'VMS') && ($ilibname =~ /$Config{lib_ext}$/)) {
+ $extralibs = " -lcs_share -lsupport -leasyrpc";
+ print "Adding libraries $extralibs\n";
+ }
+ # remove lib prefix and so suffix so "-l" style link can be used
+ $ilibname =~ s/^lib(esoobclient.*?)\.\w+$/$1/;
+ $opts{LIBS} = "-L$odbchome -l$ilibname $extralibs";
+ if ($^O ne "VMS") {
+ warn "Warning: LD_LIBRARY_PATH doesn't include $odbchome\n"
+ unless $ENV{LD_LIBRARY_PATH} =~ /\Q$odbchome/;
+ }
+ }
+ print SQLH qq{#define FAR \n#define EXPORT \n#define CALLBACK \n};
+ print SQLH qq{#include <sqlext.h>\n};
+ print SQLH qq{#include <sql.h>\n};
+ }
+ elsif ($myodbc eq 'intersolve') {
+ $opts{DEFINE} = "";
+ print SQLH qq{#include <qeodbc.h>\n};
+ if (-f "$odbchome/include/sql.h") {
+ print "You seem to have the official header files.\n";
+ $opts{INC} .= " -I$odbchome/include";
+ print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
+ }
+ else {
+ # This is common on Solaris
+ print "You don't seem to have the official header files,\n";
+ print "so I'll use the iODBC ones instead.\n";
+ $opts{INC} .= " -I$odbchome/include -Iiodbcsrc";
+ print SQLH qq{#include <isql.h> \n#include <isqlext.h>\n};
+ }
+ }
+ elsif ($myodbc eq 'empress') {
+ $opts{INC} .= " -I$odbchome/include";
+ $opts{DEFINE} = "";
+ print SQLH qq{#include <odbcsys.h>\n};
+ print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
+ $opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -lempodbc";
+ }
+ elsif ($myodbc eq 'sapdb') {
+ print SQLH "#include <WINDOWS.H>\n";
+ print SQLH "#include <sql.h>\n";
+ print SQLH "#include <sqlext.h>\n";
+ print SQLH "#define HENV SQLHENV\n";
+ print SQLH "#define HDBC SQLHDBC\n";
+ print SQLH "#define HSTMT SQLHSTMT\n";
+ print SQLH "#define DBD_ODBC_NO_SQLDRIVERCONNECT\n";
+
+ $opts{INC} .= " -I$odbchome/incl";
+ $opts{LDFROM} = "\$(OBJECT) $odbchome/lib/libsqlod.a";
+ }
+ elsif ($myodbc eq 'adabas') {
+ print SQLH "#define FAR \n#define EXPORT \n#define CALLBACK \n";
+ print SQLH "#include <WINDOWS.H>\n";
+ print SQLH "#include <sql.h>\n";
+ print SQLH "#include <sqlext.h>\n";
+ $opts{INC} .= " -I$odbchome/incl";
+ $opts{LIBS} = "-L$odbchome/lib -lsqlrte -lsqlptc";
+ $opts{LDFROM} = "\$(OBJECT) $odbchome/lib/odbclib.a";
+ }
+ elsif ($myodbc eq 'udbc') {
+ print SQLH qq{#include <libudbc.h>\n};
+ $opts{INC} .= " -I$odbchome/include";
+ $opts{DEFINE} = "";
+ $opts{LIBS} = "-L$odbchome/lib -R$odbchome/lib -ludbc";
+ }
+ elsif ($myodbc eq 'easysoft') {
+ $opts{INC} .= " -I$odbchome/include";
+ $opts{LIBS} = "-L$odbchome/lib -lesoobclient";
+ print SQLH qq{#include <sql.h>\n#include <sqlext.h>\n};
+ }
+ elsif ($myodbc eq 'solid') {
+ $opts{INC} .= " -I$odbchome/include";
+ $opts{LIBS} = "-L$odbchome/lib -lsolcli";
+ # Solid does not support DataSources
+ print SQLH qq{#define DBD_ODBC_NO_DATASOURCES\n};
+ # Solid does not support DataSources
+ print SQLH qq{#define DBD_ODBC_NO_SQLDRIVERCONNECT\n};
+ print SQLH qq{#include <cli0cli.h>\n};
+ }
+ else {
+ print "\n*** WARNING ***\a\n";
+ print "Unknown driver manager. Using default build process.\n";
+ print "This will almost certainly fail at some point.\n";
+ print "In which case you will need to edit/hack the Makefile.PL\n";
+ print "to suit your needs. (Specifically to locate your odbc\n";
+ print "library and header files.)\n\n";
+ $opts{DEFINE} = "";
+ print SQLH qq{#include <sql.h> \n#include <sqlext.h>\n};
+ }
+}
+print SQLH qq{\n};
+print SQLH qq{#include "fixup_c.h"\n};
+print SQLH qq{\n};
+close(SQLH);
+
+print "\n";
+WriteMakefile(%opts);
+
+local($^W)=0;
+print qq{
+The DBD::ODBC tests will use these values for the database connection:
+ DBI_DSN=$ENV{DBI_DSN} e.g. dbi:ODBC:demo
+ DBI_USER=$ENV{DBI_USER}
+ DBI_PASS=$ENV{DBI_PASS}
+};
+print "Warning: not all required environment variables are set.\n"
+ unless ($ENV{DBI_DSN} && $ENV{DBI_USER} && $ENV{DBI_PASS});
+print "Warning: DBI_DSN ($ENV{DBI_DSN}) doesn't start with 'dbi:ODBC:'\n"
+ if ($ENV{DBI_DSN} && $ENV{DBI_DSN} !~ m/^dbi:ODBC:/);
+print "\n";
+
+
+sub MY::postamble {
+ return dbd_postamble(@_);
+}
+
+__END__
+
+
Only in DBD-ODBC-0.30: Makefile.old
diff -ur orig/DBD-ODBC-0.30/dbdimp.c DBD-ODBC-0.30/dbdimp.c
--- orig/DBD-ODBC-0.30/dbdimp.c Wed Jan 9 05:50:59 2002
+++ DBD-ODBC-0.30/dbdimp.c Wed Jan 16 07:47:56 2002
@@ -187,15 +187,15 @@
* and level 2+ just to indicate that we are trying SQLConnect.
*/
if (!SQL_ok(rc)) {
+ if (DBIS->debug > 3) {
#ifdef DBD_ODBC_NO_SQLDRIVERCONNECT
- PerlIO_printf(DBILOGFP, "SQLDriverConnect unsupported.\n");
+ PerlIO_printf(DBILOGFP, "SQLDriverConnect unsupported.\n");
#else
- if (DBIS->debug > 3) {
PerlIO_printf(DBILOGFP, "SQLDriverConnect failed:\n");
AllODBCErrors(imp_dbh->henv, imp_dbh->hdbc, 0, 1);
+#endif /* DriverConnect supported */
}
-#endif /* DriverConnect supported */
if (DBIS->debug >= 2)
PerlIO_printf(DBILOGFP, "SQLConnect '%s', '%s', '%s'\n", dbname, uid, pwd);
