ok, thanks
I have probe this, and the result is ok, in web browser I can see all vars
allright,
# Cargamos las variables de entorno del profile del usuario UNIX
$ENV{'ORACLE_HOME'}='/opt/oracle/product/8.0.6';
$ENV{'ORACLE_SID'}='RUMBO';
$ENV{'LD_LIBRARY_PATH'}='/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/D
BI:/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/DBD
:/usr/local/lib/perl5/5.00503:/usr/local/lib/perl5/site_perl/5.005/sun4-sola
ris/auto/DBI:/usr/local/lib/perl5/site_perl/5.005/sun4-s
olaris:/usr/local/lib/perl5/5.00503/sun4-solaris:/var/rw/workspaces/SOLARIS2
6/SUNPRO42/4d/lib:/var/rw/workspaces/SOLARIS26/SUNPRO42/
12d/lib::/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/DBI:/usr/local/li
b/perl5/site_perl/5.005/sun4-solaris/DBD:/usr/local/lib/
perl5/5.00503:/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/DBI:/us
r/local/lib/perl5/site_perl/5.005/sun4-solaris:/usr/loca
l/lib/perl5/5.00503/sun4-solaris:/usr/lib:/usr/ccs/lib:/opt/SUNWspro/lib:/us
r/openwin/lib:/opt/bv1to1/lib:/opt/bv1to1/lib/objects:/o
pt/bv1to1/orbix/corba2/lib:/opt/bv1to1/rogue/lib:/opt/oracle/product/8.0.6/l
ib:/opt/jiat/jiat/lib';
$ENV{'PATH'}='/usr/local/bin:/opt/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/bin:/
usr/bin:/usr/ucb:/etc:/usr/openwin/bin:/opt/bv1to1/bin:/
opt/bv1to1/orbix/bin:/opt/oracle/product/8.0.6/bin:/opt/gnu/bin:/opt/ode/scr
ipts:.:/usr/local/bin:/usr/ccs/bin:/usr/ucb:/usr/local/b
in:/usr/ccs/bin:/usr/ucb:/usr/ccs/bin:/usr/sbin:/bin:/usr/bin:/usr/local/bin
:/usr/ucb:/etc:/usr/openwin/bin:/opt/bv1to1/bin:/opt/bv1
to1/orbix/bin:/opt/oracle/product/8.0.6/bin:/opt/gnu/bin';
$ENV{'SHLIB_PATH'}='/opt/bv1to1/lib:/opt/bv1to1/lib/objects:/opt/bv1to1/orbi
x/original/lib:/opt/bv1to1/rogue/lib:/opt/oracle/product
/8.0.6/lib:.:/opt/bv1to1/orbix/lib:/opt/jiat/jiat/dynobjs';
# Preparamos el modulo de conexion a base de datos
use DBI;
# Definicion de las variables de conexion de la DB
my $base_datos="rumbo"; # Nombre de la base de datos
my $usuario="jiat_Test_jiat_rumbo1_t"; # Usuario de la BD
my $clave="jiat_Test_jiat_rumbo1_t"; # Passwd de la BD
my $driver="Oracle"; # Usamos el driver de oracle
my $tabla_usuarios = "bv_user"; # Nombre de la tabla que vamos
a consultar
my $sql_consulta = "select user_alias from bv_user"; # Creamos la sentencia
SQL
# Escribimos la cabecera de la pagina HTML
print "Content-type: text/html\n\n";
print "<font size=+1>Enviroment</font><p>\n";
foreach (sort keys %ENV)
{
print "$_: $ENV{$_}<br>\n";
}
exit;
----------------------------------------------------------------------------
--------------
but if I execute this perl script , it don't work allright. I can see the
same error
can you help me?
#!/usr/local/bin/perl
# Cargamos las variables de entorno del profile del usuario UNIX
$ENV{'ORACLE_HOME'}='/opt/oracle/product/8.0.6';
$ENV{'ORACLE_SID'}='RUMBO';
$ENV{'LD_LIBRARY_PATH'}='/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/D
BI:/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/DBD
:/usr/local/lib/perl5/5.00503:/usr/local/lib/perl5/site_perl/5.005/sun4-sola
ris/auto/DBI:/usr/local/lib/perl5/site_perl/5.005/sun4-s
olaris:/usr/local/lib/perl5/5.00503/sun4-solaris:/var/rw/workspaces/SOLARIS2
6/SUNPRO42/4d/lib:/var/rw/workspaces/SOLARIS26/SUNPRO42/
12d/lib::/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/DBI:/usr/local/li
b/perl5/site_perl/5.005/sun4-solaris/DBD:/usr/local/lib/
perl5/5.00503:/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/auto/DBI:/us
r/local/lib/perl5/site_perl/5.005/sun4-solaris:/usr/loca
l/lib/perl5/5.00503/sun4-solaris:/usr/lib:/usr/ccs/lib:/opt/SUNWspro/lib:/us
r/openwin/lib:/opt/bv1to1/lib:/opt/bv1to1/lib/objects:/o
pt/bv1to1/orbix/corba2/lib:/opt/bv1to1/rogue/lib:/opt/oracle/product/8.0.6/l
ib:/opt/jiat/jiat/lib';
$ENV{'PATH'}='/usr/local/bin:/opt/SUNWspro/bin:/usr/ccs/bin:/usr/sbin:/bin:/
usr/bin:/usr/ucb:/etc:/usr/openwin/bin:/opt/bv1to1/bin:/
opt/bv1to1/orbix/bin:/opt/oracle/product/8.0.6/bin:/opt/gnu/bin:/opt/ode/scr
ipts:.:/usr/local/bin:/usr/ccs/bin:/usr/ucb:/usr/local/b
in:/usr/ccs/bin:/usr/ucb:/usr/ccs/bin:/usr/sbin:/bin:/usr/bin:/usr/local/bin
:/usr/ucb:/etc:/usr/openwin/bin:/opt/bv1to1/bin:/opt/bv1
to1/orbix/bin:/opt/oracle/product/8.0.6/bin:/opt/gnu/bin';
$ENV{'SHLIB_PATH'}='/opt/bv1to1/lib:/opt/bv1to1/lib/objects:/opt/bv1to1/orbi
x/original/lib:/opt/bv1to1/rogue/lib:/opt/oracle/product
/8.0.6/lib:.:/opt/bv1to1/orbix/lib:/opt/jiat/jiat/dynobjs';
# Preparamos el modulo de conexion a base de datos
use DBI;
# Definicion de las variables de conexion de la DB
my $base_datos="rumbo"; # Nombre de la base de datos
my $usuario="jiat_Test_jiat_rumbo1_t"; # Usuario de la BD
my $clave="jiat_Test_jiat_rumbo1_t"; # Passwd de la BD
my $driver="Oracle"; # Usamos el driver de oracle
my $tabla_usuarios = "bv_user"; # Nombre de la tabla que vamos
a consultar
my $sql_consulta = "select user_alias from bv_user"; # Creamos la sentencia
SQL
# Escribimos la cabecera de la pagina HTML
escribe_inicio_html();
# Conectamos con la BD
my $dbh = DBI->connect("dbi:$driver:$base_datos",$usuario,$clave) || die
"\nError al abrir la base de datos: $DBI::errstr\n";
#Realizamos la etapa de preparaci�n de la sentencia
my $sth = $dbh->prepare($sql_consulta);
#Realizamos la etapa de ejecuci�n de la sentencia
$sth->execute();
# Mostramos los usuarios via Web
while ( $users=$sth->fetchrow_array())
{
muestra_usuario($entorno);
}
#Liberacion de recursos ocpupados por la sentencia
$sth->finish();
#Desconexion de la BD, mostramos mensaje si algo falla
$dbh->disconnect || warn "\nError al desconectar.\nError: $DBI::errstr\n";
escribe_final_html();
exit;
----------
Antonio Hern�ndez
Development Executive, IT Systems
RUMBO
C/Procion, 1-3 - 28023 - Madrid - Spain
Tlf.: (34)913.076.689 (EXT. 31038)
Fax: (34)913.728.550
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
http://www.rumbo.es <http://www.rumbo.es>
-----Mensaje original-----
De: Michael A. Chase [mailto:[EMAIL PROTECTED]]
Enviado el: Monday, April 30, 2001 1:31 PM
Para: Antonio Hern�ndez
CC: [EMAIL PROTECTED]
Asunto: Re: DBD-Oracle
You would be far better off getting it added to the webserver configuration.
That way when a new version of Oracle is installed ORACLE_HOME only has to
change in one place.
To see how to change an environment variable in a script, run 'perldeoc
perlvar' and search for %ENV.
--
Mac :})
** I normally forward private database questions to the DBI mail lists. **
Give a hobbit a fish and he'll eat fish for a day.
Give a hobbit a ring and he'll eat fish for an age.
----- Original Message -----
From: "Antonio Hern�ndez" <[EMAIL PROTECTED]>
To: "'Sikkandar Dulkarnai'" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Monday, April 30, 2001 4:25 AM
Subject: RE: DBD-Oracle
How can I define the ORACLE_HOME in the script?
-----Mensaje original-----
De: Sikkandar Dulkarnai [mailto:[EMAIL PROTECTED]]
Enviado el: Monday, April 30, 2001 12:38 PM
Para: Antonio Hern�ndez; [EMAIL PROTECTED]
Asunto: RE: DBD-Oracle
Define the ORACLE_HOME either in your Web server or in your script. I had
the same problem and it was OK when I define the ORACLE_HOME in httpd.conf
(Apache) ...
