From 348b02f4af0e63b3b3df1a8c8df0b169a033d00a Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Thu, 1 Apr 2021 18:00:37 +0200
Subject: [PATCH] TT#118050 SQLServer connectivity using tdsodbc

Change-Id: Ia9a08bc84289d1636b318985c83432bcd285d9e2
(cherry picked from commit fc85c819115bb49bf502cc9dff113781cbe2490e)
---
 debian/control                                      | 1 +
 lib/NGCP/BulkProcessor/SqlConnectors/SQLServerDB.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/debian/control b/debian/control
index 9900203..e83c412 100644
--- a/debian/control
+++ b/debian/control
@@ -84,6 +84,7 @@ Depends:
  libyaml-libyaml-perl,
 Suggests:
  libdbd-odbc-perl,
+ tdsodbc,
  libdbd-orable-perl,
  libdbd-pg-perl,
 Description: NGCP bulk processor framework perl modules
diff --git a/lib/NGCP/BulkProcessor/SqlConnectors/SQLServerDB.pm b/lib/NGCP/BulkProcessor/SqlConnectors/SQLServerDB.pm
index ce402b9..4d6bf0a 100644
--- a/lib/NGCP/BulkProcessor/SqlConnectors/SQLServerDB.pm
+++ b/lib/NGCP/BulkProcessor/SqlConnectors/SQLServerDB.pm
@@ -160,7 +160,9 @@ sub _dbd_connect {
     if ($^O eq 'MSWin32') {
         $connection_string = 'DBI:ODBC:Driver={SQL Server};Server=' . $self->{host} . ',' . $self->{port};
     } else {
-        $connection_string = 'dbi:ODBC:driver=SQL Server Native Client 11.0;server=tcp:' . $self->{host} . ',' . $self->{port}; # . ';database=DB_TOWNE;MARS_Connection=yes;
+        #$connection_string = 'dbi:ODBC:driver=SQL Server Native Client 11.0;server=tcp:' . $self->{host} . ',' . $self->{port};
+        #$connection_string = 'dbi:ODBC:driver=ODBC Driver 17 for SQL Server;server=tcp:' . $self->{host} . ',' . $self->{port};
+        $connection_string = 'dbi:ODBC:driver={FreeTDS};server=' . $self->{host} . ',' . $self->{port};
     }
     if (length($databasename) > 0) {
         $connection_string .= ';database=' . $databasename;