# Change to your desired "source" storage directory
cd /usr/src

# Download
fetch http://www.peppler.org/downloads/DBD-Sybase-1.08.tar.gz

# Ungzip and Untar
tar xvf DBD-Sybase-?.??.tar.gz

# Change to the source directory
cd DBD-Sybase-?.??

# Set a few shell variables temporarily
SYBASE=/usr/local/
export SYBASE
LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:$SYBASE/lib
export LD_LIBRARY_PATH

# Add the needed environment variables (so it they survive reboots) to /etc/rc.local
vi /etc/rc.local
# FreeTDS DBD::Sybase support for connecting to Microsoft SQL SYBASE=/usr/local/ export SYBASE LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:$SYBASE/lib export LD_LIBRARY_PATH

# Fix dbdimp.c before compiling or you will get an error:
> dbdimp.c:800: error: 'BLK_VERSION_150' undeclared (first use in this function)
> dbdimp.c:800: error: (Each undeclared identifier is reported only once
> dbdimp.c:800: error: for each function it appears in.)
# This is really a FreeTDS bug - they define the CS_VERSION_1xx symbols, but not the corresponding BLK_VERSION_xxx symbols.

Edit dbdimp.c and add

vi /usr/src/DBD-Sybase-1.08/dbdimp.c
#define BLK_VERSION_150 BLK_VERSION_100
#define BLK_VERSION_125 BLK_VERSION_100
#define BLK_VERSION_120 BLK_VERSION_100

Michael
Michael Peppler - Peppler Consulting SaRL
mpeppler@peppler.org - http://www.peppler.org

# Create the Makefile - press "Enter" on any questions to accept default settings
perl Makefile.PL

# Compile
make
# make test

# Install
make install clean

# Optional test script - safe to ignore / skip this
# Test a connection to a Microsoft SQL Server
# (You should already have a database called "test" a table "authors" a field "Name")

# Create a scripts directory if one does not already exist
cd /opt
mkdir scripts
cd /opt/scripts

# Create a script for testing
vi /opt/scripts/my.pl
#!/usr/bin/perl use DBI; $dbh = DBI->connect('dbi:Sybase:server=SomeServer', 'sa', 'SomePassword') or die 'connect'; $dbh->do("use test"); $sth = $dbh->prepare('select Name from authors') or die 'prepare'; $sth->execute or die 'execute'; while (@data = $sth->fetchrow_array) { print "$data[0]\n"; } $sth->finish; $dbh->disconnect;

# Make the script executable
chmod +x /opt/scripts/my.pl

# Run the script
/opt/scripts/my.pl