add p5-DBD-InterBase

DBI driver for InterBase RDBMS server

PR:		31283
Submitted by:	Sergey Skvortsov <skv@protey.ru>

1 files changed, 427 insertions, 0 deletions

diff --git a/databases/p5-DBD-InterBase/files/patch-Makefile.PL b/databases/p5-DBD-InterBase/files/patch-Makefile.PL
new file mode 100644
index 000000000000..ba6b849d6946
--- /dev/null
+++ b/databases/p5-DBD-InterBase/files/patch-Makefile.PL
@@ -0,0 +1,427 @@
+--- Makefile.PL.orig	Fri Jul 13 12:48:14 2001
++++ Makefile.PL	Mon Oct 15 14:37:54 2001
+@@ -30,51 +30,11 @@
+ my $ib_dir_prefix;
+ 
+ # init stuff
+-my $IB_Bin_path = '';
+-my $isql_name;
+-my @ib_bin_dirs;
+-my @ib_inc_dirs;
+-my $ib_lib_dir = '';
+-
+-################################################################################
+-# OS specific configuration
+-################################################################################
+-if ($Config::Config{osname} eq 'MSWin32')
+-{
+-  $isql_name = 'isql.exe';
+- 
+-  # try to find InterBase installation via the registry
+-  my $ib_bin_dir = '';
+-  my $ib_inc_dir = '';
+-  eval 
+-  {
+-    require Win32::TieRegistry;
+-	Win32::TieRegistry->import('$Registry');
+-	$Registry->Delimiter("/");
+-
+-    my $sw = $Registry->{"LMachine/Software/"};
+-
+-    # We have to check more than one keys, because different
+-    # releases of InterBase have used different key hierarchies.
+-    my $key = $sw->{"InterBase Corp/InterBase/CurrentVersion/"} ||
+-	          $sw->{"Borland/InterBase/CurrentVersion/"};
+-
+-    if (defined($key)) 
+-    { 
+-      $ib_bin_dir = $key->{"/ServerDirectory"}; 
+-      $ib_inc_dir = $key->{"/RootDirectory"} . "SDK\\include"; 
+-      $ib_lib_dir = $key->{"/RootDirectory"} . "SDK\\";
+-    }
+-  };
+-  @ib_bin_dirs = ($ib_bin_dir);
+-  @ib_inc_dirs = ($ib_inc_dir);
+-}
+-else
+-{
+-  $isql_name = 'isql';
+-  @ib_bin_dirs = (qw(/usr/interbase/bin /opt/interbase/bin /usr/bin /usr/local/bin));
+-  @ib_inc_dirs = (qw(/usr/interbase/include /opt/interbase/include /usr/include));
+-}
++my $IB_BASE='%%IB_BASE%%';
++my $IB_Bin_path = $IB_BASE.'/bin';
++my $isql_name = 'isql';
++my $ib_lib_dir = $IB_BASE.'/lib';
++my $ib_inc = $IB_BASE.'/include';
+ 
+ ################################################################################
+ # sub test_files - checks if at least one of the files in the list exists
+@@ -92,171 +52,12 @@
+ }
+ 
+ ################################################################################
+-# sub dir_choice - promts for a directory
+-# Paramters: 
+-#  0: prompt string
+-#  1: reference to direcotry list
+-#  2: reference to file list
+-# Return value: directory name
+-################################################################################
+-sub dir_choice 
+-{
+-  my($prompt, $dirs, $files) = @_;
+-  my %dirs = ('a' => 'other');
+-  my $i;
+-  my $ret;
+-
+-  test_files($_, $files) && ($dirs{++$i} = $_) for @$dirs;
+-  while() 
+-  {
+-    print "\n$prompt\n\n";
+-    print "$_) $dirs{$_}\n" for sort keys %dirs;
+-
+-    my $choice = prompt("Your choice:");
+-    next unless $dirs{$choice};
+-
+-    $ret = ($choice eq 'a') ? prompt("Directory:", $ret) : $dirs{$choice};
+-    return $ret if test_files($ret, $files);
+-    print "\nDirectory is bad\n";
+-  }
+-}
+-
+-################################################################################
+-# sub make_test_conf - configure for test (save to ./t/test.conf)
+-# Parameters: <none>
+-# Return value: <none>
+-################################################################################
+-sub make_test_conf 
+-{
+-  my $test_conf = './t/test.conf';
+-  my ($dsn, $user, $pass, $path);
+-
+-  # read cached config if available
+-  if (-r $test_conf) 
+-  {
+-    print "Reading cached test configuration...\n";
+-    open F, $test_conf or die "Can't open $test_conf: $!";
+-    local @ARGV = ($test_conf);
+-    ($dsn, $user, $pass) = map {chomp;$_} <>;
+-    ($path) = $dsn =~ /(?!db|database)=([^;]+);/;
+-    close F;
+-  }
+-
+-  # ask for database path
+-  for (1..3) 
+-  {
+-    $path = prompt("\nFull path to your test database:", $path);
+-    last if $path;
+-  }
+-
+-  die "Must specify a test database" unless $path;
+-
+-  #PFW - isql on windows doesn't seem to work without the localhost in the db path
+-  my $hostpath = $path;
+-  if ($path =~ /^localhost:(.+)/) {
+-    $hostpath = $1;
+-  }
+-  # if DB doesn't exist ask for creation
+-  unless (-f $hostpath) 
+-  {
+-    print <<"EOM";
+-Can't find $path
+-Trying to create the test database..
+-Please enter a username with CREATE DATABASE permission.
+-EOM
+-
+-    $user = prompt("Username:", $user);
+-    $pass = prompt("Password:", $pass);
+-    create_test_db($path, $user, $pass);
+-  } 
+-  else 
+-  {
+-    $user = prompt("Username:", $user);
+-    $pass = prompt("Password:", $pass);
+-  }
+-
+-  # save test config to file
+-  open F, ">$test_conf" or die "Can't write $test_conf: $!";
+-  print F "dbi:InterBase:db=$path;ib_dialect=3\n$user\n$pass\n";
+-  close F;
+-}
+-
+-################################################################################
+-# sub create_test_db - Creates the test database
+-# Parameters:
+-#  0: path to testdatabase to be created
+-#  1: username used to connect to the DB
+-#  2: password
+-# Return value: <none>
+-################################################################################
+-sub create_test_db 
+-{
+-  my ($path, $user, $pass) = @_;
+-
+-  # create the SQL file with CREATE statement
+-  open(T, ">./t/create.sql") or die "Can't write to t/create.sql";
+-  while(<DATA>) 
+-  {
+-    s/__TESTDB__/$path/;
+-    s/__USER__/$user/;
+-    s/__PASS__/$pass/;
+-    print T;                
+-  }
+-  close T;
+-
+-  # try to find isql
+-  my $isql;
+-  if (-x "$IB_Bin_path/$isql_name") 
+-     { $isql = "$IB_Bin_path/$isql_name"; }
+-  else
+-  {
+-    for (split /:/, $ENV{PATH}) 
+-    {
+-      s#/+$##g; 
+-      if (-x "$_/$isql_name") 
+-         { $isql = "$_/$isql_name"; last; }
+-    }
+-  }
+-
+-  EXEC: 
+-  {
+-    for (1..3) 
+-    {
+-      $isql = prompt("Enter full path to isql: ", $isql);
+-      last EXEC if (-x $isql);
+-    }
+-    die "Unable to execute isql. Aborting..";
+-  }
+-  
+-  #PFW - isql on windows doesn't seem to work without the localhost in the db path
+-  my $hostpath = $path;
+-  if ($path =~ /^localhost:(.+)/) {
+-    $hostpath = $1;
+-  }
+-  # if test db directory doesn't exist -> try to create
+-  my $dir = dirname $hostpath;
+-  unless (-d $dir) 
+-  {
+-    print "Can't find $dir. Trying to mkdir..\n";
+-    system('mkdir', '-p', $dir) == 0 
+-      or die "Can't mkdir -p $dir";
+-  }
+-
+-  # try to execute isql and create the test database
+-  system($isql, '-i', './t/create.sql') == 0 
+-    or die "Fail calling $isql -i t/create/sql: $?";
+-}
+-
+-################################################################################
+ # MAIN
+ ################################################################################
+ 
+ # See lib/ExtUtils/MakeMaker.pm for details of how to influence
+ # the contents of the Makefile that is written.
+ 
+-# prompt for InterBase bin directory
+-$IB_Bin_path = dir_choice("InterBase bin directory", [@ib_bin_dirs], [qw(gfix gfix.exe)]);
+-
+ unless(-x $IB_Bin_path)
+ {
+   carp "I cannot find your InterBase installation.\nDBD::InterBase cannot build or run without InterBase.\n";
+@@ -270,10 +71,6 @@
+ $IBVERSION =~ s/^gfix version //o;
+ my $is_final = $IBVERSION =~ /\.6\d+$/ ? 1 : 0;
+ 
+-# prompt for IB include dir
+-my $ib_inc = dir_choice("Interbase include directory", [@ib_inc_dirs], [qw(gds.h ibase.h)]);
+-
+-
+ # we use a hash for the MakeMaker parameters
+ my %MakeParams = (
+   'NAME'          => 'DBD::InterBase',
+@@ -283,183 +80,13 @@
+   'CCFLAGS'       => '',
+   'INC'           => "-I\"$ib_inc\" -I\"$dbi_arch_dir\"",
+   'OBJECT'        => "InterBase.o dbdimp.o",
+-  'LIBS'          => [''],
++  'LIBS'          => "-L$ib_lib_dir -lgds",
+   'OPTIMIZE'      => $Config::Config{'optimize'},
+   'XSPROTOARG'    => '-noprototypes',
+   'dist'          => {COMPRESS=>'gzip -9f', SUFFIX=>'gz'},
+   'realclean'     => '*.xsi test.conf',
+ );
+ 
+-# the OS specific build environment setup
+-my $os = $Config::Config{'osname'};
+-if ($os eq 'MSWin32')
+-{
+-  # set up PPM package parameters
+-  $MakeParams{'AUTHOR'}   = 'Edwin Pratomo (edpratomo@users.sourceforge.net'; 
+-  $MakeParams{'ABSTRACT'} = 'DBD::InterBase is a DBI driver for InterBase, written using InterBase C API.';
+-    
+-  my $vc_dir = '';
+-  if ($Config::Config{'cc'} eq "cl") 
+-  {
+-    # try to find Microsoft Visual C++ compiler
+-    eval 
+-    {
+-      require Win32::TieRegistry;
+-      Win32::TieRegistry->import('$Registry');
+-      $Registry->Delimiter("/");
+-
+-      my $sw = $Registry->{"LMachine/Software/"};
+-
+-
+-
+-      # We have to check more than one keys, because different
+-      # releases of Visual C++ have used different key hierarchies.
+-      my $key 
+-        = $sw->{"Microsoft/VisualStudio/6.0/Setup/Microsoft Visual C++"} ||
+-          $sw->{"Microsoft/VisualStudio/7.0/Setup/VC"};
+-
+-      if (defined($key)) 
+-      { 
+-        $vc_dir = $key->{"/ProductDir"}; 
+-      }
+-    };
+-    my @vc_dirs = ($vc_dir . "/bin");
+-
+-    my $VC_PATH = dir_choice("Visual C++ directory", [@vc_dirs], [qw(cl.exe)]);
+-
+-    unless (-x $VC_PATH){
+-      carp "I can't find your MS VC++ installation.\nDBD::InterBase cannot build.\n";
+-      exit 1;
+-    }
+-
+-    my $vc_inc = $VC_PATH . "/include"; 
+-    my $vc_lib = $VC_PATH . "/lib"; 
+-
+-    $INC .= " -I\"$vc_inc\"";
+-
+-    my $ib_lib = dir_choice("Interbase lib directory", [$ib_lib_dir . "lib_ms"],
+-                            [qw(gds32_ms.lib)]);
+-
+-    my $cur_libs = $Config::Config{'libs'} ;
+-    my $cur_lddlflags = $Config::Config{'lddlflags'} ;
+-     
+-    eval "
+-    sub MY::const_loadlibs {
+-    '
+-LDLOADLIBS = \"$ib_lib/gds32_ms.lib\" \"$ib_lib/ib_util_ms.lib\" $cur_libs
+-LDDLFLAGS = /LIBPATH:\"$vc_lib\" $cur_lddlflags
+-    '
+-    } ";
+-  } 
+-  else 
+-  {
+-    # Borland C++ 5.5
+-    my $bcc = $Config::Config{'bcc_path'} . "\\";
+-
+-    my $BCC_PATH = dir_choice("Borland C++ directory",
+-      [qw(c:/borland/bcc55), $bcc],
+-      [qw(bin/bcc32.exe)]);
+-
+-    unless(-x $BCC_PATH)
+-    {
+-      carp "I can't find your Borland C++ installation.\nDBD::InterBase cannot build.\n";
+-      exit 1;
+-    }
+-
+-    my $bcc_inc = $BCC_PATH . "include"; 
+-    $MakeParams{'CCFLAGS'}    = '-a4 -w- -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX';
+-    $MakeParams{'OPTIMIZE'}   = "-O2";
+-    $MakeParams{'INC'}       .= " -I\"$bcc_inc\"";
+-
+-    eval "
+-	sub MY::const_loadlibs {
+-	'
+-LDLOADLIBS = \$(LIBC) import32.lib gds32.lib cw32.lib
+-LDDLFLAGS = -L\"$ib_lib_dir\\lib\" -L\"$BCC_PATH\\lib\"
+-	'
+-	}
+-	";
+-  }
+-  # Will I need Cygwin rules too?
+-}
+-elsif ($os eq 'solaris')
+-{
+-  $MakeParams{'LIBS'} = '-lgdsmt -lm -lc'; 
+-}
+-elsif ($os eq 'linux')
+-{
+-  # This is for both:
+-  # o Free IB 4.0 for Red Hat Linux 4.2
+-  # o Commercial IB 5.1.1 for Red Hat Linux 5.1
+-  my $ib_lib = dir_choice("Interbase lib directory",
+-    [qw(/usr/interbase/lib /opt/interbase/lib /usr/lib /usr/local/lib)],
+-    [qw(libgds.a libgds.so)]);
+-
+-  $MakeParams{'LIBS'} = "-L$ib_lib -lgds -ldl ";
+-
+-  # o Commercial IB 5.1.1 for Red Hat Linux 6.x
+-  #   requires a compatibilty library to resolve
+-  #   symbols such as _xstat that were removed
+-  #   from glibc 2.1.  IB 5.6 and later don't need
+-  #   this, but it doesn't hurt to list the library.
+-  if (-f ('/lib/libNoVersion-2.1.2.so'))
+-  {
+-     $MakeParams{'LIBS'} .= ' -lNoVersion-2.1.2'
+-  }
+-}
+-elsif ($os eq 'freebsd')
+-{
+-  my $ib_lib = dir_choice("Interbase lib directory",
+-    [qw(/usr/interbase/lib /usr/lib)],
+-    [qw(libgds.a libgds.so)]);
+-  $MakeParams{'LIBS'} = "-L$ib_lib -lgds";
+-}
+-elsif ($os eq 'hpux')
+-{
+-  $MakeParams{'LIBS'} = '-lgds -ldld';
+-}
+-elsif ($os eq 'sco')
+-{
+-  # Uncomment this line if you use InterBase 4.0 for SCO OSR5:
+-  # $LIBS = '-b elf -B dynamic -lgds -lsocket -lcrypt_i';
+-
+-  # Uncomment this line if you use InterBase 5.5 for SCO OSR5:
+-  $MakeParams{'LIBS'} = '-lgds -lsocket -lcrypt_i -lc -lm';
+-}
+-elsif ($os eq 'sunos')
+-{
+-  $MakeParams{'LIBS'} = '-lgdslib -ldl';
+-}
+-elsif ($os eq 'irix')
+-{
+-  $MakeParams{'LIBS'} = '-lgds -lsun';
+-}
+-elsif ($os eq 'aix')
+-{
+-  $MakeParams{'LIBS'} = '-lgdsshr';
+-}
+-elsif ($os eq 'dgux')
+-{
+-  $MakeParams{'LIBS'} = '-lgds -lgdsf -ldl -ldgc';
+-}
+-elsif ($os eq 'osf1')
+-{
+-  $MakeParams{'LIBS'} = '-lgds';
+-}
+-elsif ($os eq 'sysv')
+-{
+-   $MakeParams{'LIBS'} = '-lgds -lnsl -lsocket -ldl';
+-}
+-else
+-{
+-  carp "DBD::InterBase is not supported on platform $os.\n";
+-  exit 1;
+-}
+-
+-# create the test config file
+-make_test_conf();
+-
+-# and last but not least write the makefile
+ WriteMakefile(%MakeParams);
+ 
+ package MY;