diff --git a/debian/control b/debian/control index dabb434..2f59c0c 100644 --- a/debian/control +++ b/debian/control @@ -65,6 +65,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;