httpd-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Aldo Luis Orsini" <aors...@telecompersonal.com.ar>
Subject Apache + Perl + Oracle
Date Wed, 31 Jan 2001 20:46:09 GMT

Help me please ...
I want connect to DB Oracle by emperl but i don't .

The results ... don´t show me errors, don´t show anything in variable (ej
[ +$campo1+])

My scritp is:

[!
   #Variables de entorno
   use DBI;
!]

[-
   $db_user = 'xxx'; #DB_USER;
   $db_passwd = 'yyy'; #DB_PASSWORD;
   $db_id = 'ECOMM'; #SID;
   $db_driver = "dbi:Oracle:";

   $fields = '*'; #Campos de la tabla para el select;
   $tabla = 'proveed'; #nombre de la tabla;
   $where = ''; #clausula del where para el select;

-]

<html>

<head>
<title>

</title>
[- #Para que EmbPerl no escapee las comillas
    $escmode = 0 -]
<meta HTTP-EQUIV="Expires" CONTENT="">

</head>

<body bgcolor="#FFFFFF" leftmargin="0" link=FF0000 vlink=FF0000>

[-
#Armado de la query

  #connect to database
  $dbh = DBI->connect($db_driver . $db_id,$db_user,$db_passwd,{ AutoCommit => 0 });

  #prepare the sql select
  $sth = $dbh -> prepare ("SELECT $fields FROM $tabla");

  #execute the query
  $sth -> execute;

  ($campo1, $campo2, $campon) = $sth->fetchrow_array;

  $sth->finish;
  $dbh->disconnect();
-]

Corremos con DEBUG
<p>
dbh: [+ $dbh +]<br>
sth: [+ $sth +]<br>
Campo1: [+ $campo1 +]<br>
Campo2: [+  $campo2 +]<br>
Campon: [+ $campon +]<br>

</body>
</html>



My configuration is

Row Var Content
0  SERVER_SOFTWARE  Apache/1.3.12 (Unix) mod_perl/1.22 mod_ssl/2.6.2 OpenSSL/0.9.5
1  DOCUMENT_ROOT  /app/webs/acag/html
2  GATEWAY_INTERFACE  CGI-Perl/1.1
3  ORACLE_PATH  /app/oracle/product/8.1.6/bin:/app/oracle/product/8.1.6/obackup/bin:/opt/bin:/bin:/usr/bin
4  REMOTE_ADDR  10.101.3.147
5  REQUEST_METHOD  GET
6  SESSION_FILE_LOCK  1
7  QUERY_STRING
8  HTTP_ACCEPT  application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint,
image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*

9  ORACLE_BASE  /app/oracle
10  REMOTE_PORT  3459
11  SERVER_ADDR  10.1.4.210
12  HTTP_ACCEPT_LANGUAGE  es
13  MOD_PERL  mod_perl/1.22
14  ORA_NLS32  /app/oracle/product/8.1.6/ocommon/nls/admin/data
15  nokeepalive  1
16  HTTPS  on
17  ORA_NLS33  /app/oracle/product/8.1.6/ocommon/nls/admin/data
18  SCRIPT_FILENAME  /app/webs/acag/html/min/trash/ambiente.epl
19  SERVER_NAME  wwwserver1.telecompersonal.com.ar
20  SERVER_PORT  443
21  PATH_TRANSLATED  /app/webs/acag/html/min/trash/ambiente.epl
22  ORACLE_HOME  /app/oracle/product/8.1.6
23  SERVER_ADMIN  root@server1b.telecompersonal.com.ar
24  SERVER_SIGNATURE  <ADDRESS>Apache/1.3.12 Server at wwwserver1.telecompersonal.com.ar
Port 443</ADDRESS>
25  SERVER_PROTOCOL  HTTP/1.0
26  HTTP_USER_AGENT  Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
27  PATH  /sbin:/usr/sbin:/usr/bin:/usr/ccs/bin:/usr/bin/X11:/usr/local
28  ssl-unclean-shutdown  1
29  HTTP_CONNECTION  Keep-Alive
30  SCRIPT_NAME  /min/trash/ambiente.epl
31  ORACLE_SID  ECOMM
32  SESSION_FILE_DIRECTORY  /app/webs/acag/html/acag/sessions
33  REQUEST_URI  /min/trash/ambiente.epl
34  HTTP_COOKIE  num=banco000; SITESERVER=ID=3fda4ee64dc8ad5c13552b8412dae598; RMID=c82d480a3a6f0fd0
35  HTTP_HOST  wwwserver1.telecompersonal.com.ar

What is wrong ? PLEASE ...

Thanks a lot;

Aldo Luis Orsini...
Buenos Aires
Argentina


Mime
View raw message