|
|
sybperl-l Archive
Up Prev Next
From: michael dot peppler at bnpparibas dot com
Subject: Re: Problems with Sybase environment?
Date: May 23 2005 12:30PM
Setting the SYBASE env. variable will most likely only work at the
beginning of the script (i.e. for the first connect call).
After that you can use the dbsetifile() call to point DB-Library to a
different interfaces file.
Michael
Internet
johan.de.graeve@switch.be@peppler.org - 23/05/2005 09:25
Sent by: owner-sybperl-l@peppler.org
To: sybperl-l
cc:
Subject: Problems with Sybase environment?
Can somebody explain me the results of the code fragment below please.
Thx,
Johan De Graeve
/apps/sybase-12_0/interfaces contains entry for SYBASE_DS_12_0
/apps/sybase-12_5/interfaces contains entry for SYBASE_DS_12_0 &
SYBASE_DS_12_5
/apps/repsvr-12_5/interfaces contains entry for SYBASE_DS_12_0 &
SYBASE_DS_12_5
test.pl
=====
#!/usr/local/bin/perl -w
use Sybase::Sybperl;
my($dbproc) = "-1";
$ENV{'SYBASE'} = "/apps/sybase-12_0";
print "SYBASE_DS_12_0\n";
$dbproc = dblogin("sa", "password", "SYBASE_DS_12_0");
print "$dbproc\n";
dbclose($dbproc) if ($dbproc != -1);
$ENV{'SYBASE'} = "/apps/repsvr-12_5";
print "SYBASE_DS_12_5\n";
$dbproc = dblogin("sa", "password", "SYBASE_DS_12_5") or die "Cannot
connect to SYBASE_DS_12_5\n";
print "$dbproc\n";
dbclose($dbproc) if ($dbproc != -1);
Hippix[sybase] /apps/sybase-12_5/adm > test.pl
SYBASE_DS_12_0
Sybase::DBlib=HASH(0x38cd8)
SYBASE_DS_12_5
DB-Library error:
Server name not found in interface file.
-1
test.pl: same program as above with first dblogin commented out
=====
#!/usr/local/bin/perl -w
use Sybase::Sybperl;
my($dbproc) = "-1";
$ENV{'SYBASE'} = "/apps/sybase-12_0";
print "SYBASE_DS_12_0\n";
#$dbproc = dblogin("sa", "password", "SYBASE_DS_12_0");
print "$dbproc\n";
dbclose($dbproc) if ($dbproc != -1);
$ENV{'SYBASE'} = "/apps/repsvr-12_5";
print "SYBASE_DS_12_5\n";
$dbproc = dblogin("sa", "password", "SYBASE_DS_12_5") or die "Cannot
connect to SYBASE_DS_12_5\n";
print "$dbproc\n";
dbclose($dbproc) if ($dbproc != -1);
Hippix[sybase] /apps/sybase/adm > test.pl
SYBASE_DS_12_0
SYBASE_DS_12_5
Sybase::DBlib=HASH(0x38c60)
Below you can find the output of building sybperl:
Hippix[root] /data01/installation/perl/sybperl-2.17 > env
_=/usr/bin/env
MANPATH=/usr/man:/usr/perl5/man:/usr/share/man:/usr/local/man:
HZ=
PAGER=less
SYBASE_SYSAM=SYSAM-1_0
SYBASE_FTS=EFTS-12_5_2
PATH=/devtools/SUNWspro/bin:/apps/sybase-12_5/EFTS-12_5_2/bin:/apps/sybase-12_5/RPL-12_5/bin:/apps/sybase-12_5/ASEP/bin:/apps/sybase-12_5/JS-12_5/bin:/apps/sybase-12_5/OCS-12_5/bin:/apps/sybase-12_5/ASE-12_5/bin:/apps/sybase-12_5/ASE-12_5/install:/apps/sybase-12_5/$SYBASE_FTS/bin:/usr/local/bin:/usr/sfw/bin:/etc/switch/bin:/usr/bin:/usr/sbin:/usr/ccs/bin:/usr/sbin:/usr/bin:/etc/switch/bin:/etc/switch/adm:/etc/switch/cfg
LM_LICENSE_FILE=/etc/opt/licenses/licenses_combined
SYBASE_JRE=/apps/sybase-12_5/shared-1_0/JRE-1_3
LOGNAME=root
MAIL=/var/mail/root
SYBASE=/apps/sybase-12_5
DSQUERY=AMBI_DS_12_5
CDBHOME=/apps/cdb
DISPLAY=10.206.2.96:0.0
SHELL=/usr/bin/ksh
JAVA_HOME=/usr/jdk/j2sdk1.4.2_05
SWIHOME=/etc/switch
HOME=/
SYBASE_ASE=ASE-12_5
LD_LIBRARY_PATH=/apps/sybase-12_5/EFTS-12_5_2/lib:/apps/sybase-12_5/EFTS-12_5_2/verity/_ssol26/bin:/apps/sybase-12_5/EFTS-12_5_2/verity/_ssol26/filters:/apps/sybase-12_5/OCS-12_5/lib:/apps/sybase-12_5/OCS-12_5/lib3p64:/apps/sybase-12_5/OCS-12_5/lib3p:/apps/sybase-12_5/EFTS-12_5_2/lib:/apps/sybase-12_5/EFTS-12_5_2/verity/_ssol26/bin:/apps/sybase-12_5/EFTS-12_5_2/verity/_ssol26/filters:/apps/sybase-12_5/ASE-12_5/lib:
TERM=vt100
ITHOME=/apps/it
PWD=/data01/installation/perl/sybperl-2.17
SYBASE_WS=WS-12_5
TZ=Europe/Brussels
SYBHOME=/apps/sybase-12_0
SYBASE_OCS=OCS-12_5
http_proxy=http://212.35.104.68:8080/
ftp_proxy=http://212.35.104.68:8080/
Hippix[root] /data01/installation/perl/sybperl-2.17 > perl Makefile.PL
Sybase OpenClient 12.5.1 found.
The sybperl modules need access to a Sybase server to run the tests.
To clear an entry please enter 'undef'
Sybase server to use (default: SYBASE): AMBI_DS_12_5_LOAD
User ID to log in to Sybase (default: sa): sa
Password (default: undef): Sybase database to use on AMBI_DS_12_5_LOAD
(default: undef):
* Writing login information, including password, to file PWD.
Checking if your kit is complete...
Looks good
Sybase OpenClient 12.5.1 found.
Writing Makefile for Sybase::BCP
Writing Makefile for Sybase::BLK
Writing Makefile for Sybase::CTlib
Writing Makefile for Sybase::DBlib
Writing Makefile for Sybase::Sybperl
Writing Makefile for Sybase
Hippix[root] /data01/installation/perl/sybperl-2.17 > make
cp lib/ctutil.pl blib/lib/ctutil.pl
cp lib/sql.pl blib/lib/sql.pl
cp lib/sybutil.pl blib/lib/sybutil.pl
cp lib/sybperl.pl blib/lib/sybperl.pl
cp BCP.pm ../blib/lib/Sybase/BCP.pm
Manifying ../blib/man3/Sybase::BCP.3
cp BLK.pm ../blib/lib/Sybase/BLK.pm
Manifying ../blib/man3/Sybase::BLK.3
cp CTlib.pm ../blib/lib/Sybase/CTlib.pm
AutoSplitting ../blib/lib/Sybase/CTlib.pm (../blib/lib/auto/Sybase/CTlib)
/usr/local/bin/perl /usr/local/lib/perl5/5.8.5/ExtUtils/xsubpp -prototypes
-typemap /usr/local/lib/perl5/5.8.5/ExtUtils/typemap CTlib.xs > CTlib.xsc
&& mv CTlib.xsc CTlib.c
gcc -B/usr/ccs/bin/ -c -I/apps/sybase-12_5/OCS-12_5/include
-fno-strict-aliasing -pipe -I/usr/local/include -I/opt/gnu/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O -DVERSION=\"2.17\"
-DXS_VERSION=\"2.17\" -fPIC "-I/usr/local/lib/perl5/5.8.5/sun4-sol
LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O -DVERSION=\"2.17\"
-DXS_VERSION=\"2.17\" -fPIC "-I/usr/local/lib/perl5/5.8.5
/sun4-solaris/CORE" -DCTLIBVS=100 -DSYBPLVER='"2.17"' -DDO_TIE CTlib.c
Running Mkbootstrap for Sybase::CTlib ()
chmod 644 CTlib.bs
rm -f ../blib/arch/auto/Sybase/CTlib/CTlib.so
LD_RUN_PATH="/apps/sybase-12_5/OCS-12_5/lib" gcc -B/usr/ccs/bin/
-L/apps/sybase-12_5/OCS-12_5/lib -G -L/usr/local/lib -L/opt/gnu/li
LD_RUN_PATH="/apps/sybase-12_5/OCS-12_5/lib" gcc -B/usr/ccs/bin/
-L/apps/sybase-12_5/OCS-12_5/lib -G -L/usr/local/lib -L/opt/gnu/lib
CTlib.o -o ../blib/arch/auto/Sybase/CTlib/CTlib.so
-L/apps/sybase-12_5/OCS-12_5/lib -lct -lcs -ltcl -lcomn -lintl -lblk -lm
chmod 755 ../blib/arch/auto/Sybase/CTlib/CTlib.so
cp CTlib.bs ../blib/arch/auto/Sybase/CTlib/CTlib.bs
chmod 644 ../blib/arch/auto/Sybase/CTlib/CTlib.bs
Manifying ../blib/man3/Sybase::CTlib.3
cp DBlib.pm ../blib/lib/Sybase/DBlib.pm
AutoSplitting ../blib/lib/Sybase/DBlib.pm (../blib/lib/auto/Sybase/DBlib)
/usr/local/bin/perl /usr/local/lib/perl5/5.8.5/ExtUtils/xsubpp -prototypes
-typemap /usr/local/lib/perl5/5.8.5/ExtUtils/typemap DBl
/usr/local/bin/perl /usr/local/lib/perl5/5.8.5/ExtUtils/xsubpp -prototypes
-typemap /usr/local/lib/perl5/5.8.5/ExtUtils/typemap DBlib.xs > DBlib.xsc
&& mv DBlib.xsc DBlib.c
gcc -B/usr/ccs/bin/ -c -I/apps/sybase-12_5/OCS-12_5/include
-fno-strict-aliasing -pipe -I/usr/local/include -I/opt/gnu/include -D_
gcc -B/usr/ccs/bin/ -c -I/apps/sybase-12_5/OCS-12_5/include
-fno-strict-aliasing -pipe -I/usr/local/include -I/opt/gnu/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O -DVERSION=\"2.17\"
-DXS_VERSION=\"2.17\" -fPIC "-I/usr/local/lib/perl5/5.8.5/sun4-sol
LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O -DVERSION=\"2.17\"
-DXS_VERSION=\"2.17\" -fPIC "-I/usr/local/lib/perl5/5.8.5
/sun4-solaris/CORE" -DDBLIBVS=1000 -DSYBPLVER='"2.17"' -DDO_TIE DBlib.c
Running Mkbootstrap for Sybase::DBlib ()
chmod 644 DBlib.bs
rm -f ../blib/arch/auto/Sybase/DBlib/DBlib.so
LD_RUN_PATH="/apps/sybase-12_5/OCS-12_5/lib" gcc -B/usr/ccs/bin/
-L/apps/sybase-12_5/OCS-12_5/lib -G -L/usr/local/lib -L/opt/gnu/li
LD_RUN_PATH="/apps/sybase-12_5/OCS-12_5/lib" gcc -B/usr/ccs/bin/
-L/apps/sybase-12_5/OCS-12_5/lib -G -L/usr/local/lib -L/opt/gnu/lib
DBlib.o -o ../blib/arch/auto/Sybase/DBlib/DBlib.so
-L/apps/sybase-12_5/OCS-12_5/lib -lsybdb -lm
chmod 755 ../blib/arch/auto/Sybase/DBlib/DBlib.so
cp DBlib.bs ../blib/arch/auto/Sybase/DBlib/DBlib.bs
chmod 644 ../blib/arch/auto/Sybase/DBlib/DBlib.bs
Manifying ../blib/man3/Sybase::DBlib.3
cp Sybperl.pm ../blib/lib/Sybase/Sybperl.pm
AutoSplitting ../blib/lib/Sybase/Sybperl.pm
(../blib/lib/auto/Sybase/Sybperl)
Manifying ../blib/man3/Sybase::Sybperl.3
Manifying blib/man3/sybperl.3
Hippix[root] /data01/installation/perl/sybperl-2.17 > make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/1_db_dblib...........ok
t/1_db_money...........ok
t/2_ct_ctlib...........ok
t/2_ct_cursor..........ok
t/2_ct_nsql............ok
t/2_ct_prepare.........ok
t/2_ct_xblk............ok
t/3_bcp................ok
t/4_blk................ok
t/5_sybperl............ok
t/5_sybperl_dbmoney....ok
All tests successful.
Files=11, Tests=215, 3 wallclock secs ( 1.44 cusr + 0.38 csys = 1.82
CPU)
No tests defined for Sybase::BCP extension.
No tests defined for Sybase::BLK extension.
No tests defined for Sybase::CTlib extension.
No tests defined for Sybase::DBlib extension.
No tests defined for Sybase::Sybperl extension.
Hippix[root] /data01/installation/perl/sybperl-2.17 > make install
Installing /usr/local/lib/perl5/site_perl/5.8.5
/sun4-solaris/auto/Sybase/CTlib/CTlib.so
Installing /usr/local/lib/perl5/site_perl/5.8.5
/sun4-solaris/auto/Sybase/DBlib/DBlib.so
Files found in blib/arch: installing files in blib/lib into architecture
dependent library tree
Installing /usr/local/lib/perl5/site_perl/5.8.5/sun4-solaris/sybutil.pl
Installing /usr/local/share/man/man3/Sybase::CTlib.3
Installing /usr/local/share/man/man3/Sybase::DBlib.3
Writing /usr/local/lib/perl5/site_perl/5.8.5
/sun4-solaris/auto/Sybase/.packlist
Appending installation info to /usr/local/lib/perl5/5.8.5
/sun4-solaris/perllocal.pod
This message and any attachments (the "message") is
intended solely for the addressees and is confidential.
If you receive this message in error, please delete it and
immediately notify the sender. Any use not in accord with
its purpose, any dissemination or disclosure, either whole
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message.
BNP PARIBAS (and its subsidiaries) shall (will) not
therefore be liable for the message if modified.
---------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le
"message") sont etablis a l'intention exclusive de ses
destinataires et sont confidentiels. Si vous recevez ce
message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur. Toute utilisation de ce
message non conforme a sa destination, toute diffusion
ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse. L'internet ne permettant pas
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
|
