#! /opt/ActivePerl-5.8/bin/perl
#
# test the SQL Server database
#

use DBI ;
$user = 'CORETEC\genesis' ;
$passwd = 'genesis' ;


#$dbh = DBI->connect('DBI:Sybase:server=Tor-sql',$user,$passwd);

$dbh = DBI->connect('DBI:Sybase:server=Tor-Sql',$user,$passwd);
$dbh->do("use FEE");

$action = $dbh->prepare("sp_help") ;
$action->execute ;
$rows = $action->rows ;
print "rows is $rows\n";

while ( @first = $action->fetchrow_array ) {
        foreach $field ( @first ) {
        print "$field\t";
        }
        print "\n";
}

exit(0);


##</code><code>##

install_driver(Sybase) failed: Can't load '/usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi/auto/DBD/Sybase/Sybase.so' for module DBD::Sybase: libct.so.3: cannot open shared object file: No such file or directory at /usr/lib/perl5/5.8.6/i386-linux-thread-multi/DynaLoader.pm line 230.
 at (eval 3) line 3
Compilation failed in require at (eval 3) line 3.
Perhaps a required shared library or dll isn't installed where expected
 at test_sql2.pl line 13