Hi
I'm using RedHat6.2 + mod_perl 1.21 + perl 5.005_003 + Apache 1.3.12 (all
instaled with RH6.2) + X (gnome + kde). I instaled Oracle 8.1.6 + modles
Hires + DBI 1.14 + DBD-Oracle 1.06.
I write simple script :

#!/usr/bin/perl
use DBI;
my ( $inst, $user, $pass, $dbh);
print "Content-type: text/html\n\n";
$inst = "" ;
$user = "scott" ;
$pass = "tiger" ;
print "POINT 1 \n<br>";
my $dbh = DBI->connect( "dbi:Oracle:$inst", $user, $pass,
    { AutoCommit => 0, RaiseError => 0, PrintError => 0 } )
   or print "ERROR : $DBI::errstr\n<br>";
print "POINT 2 \n<br>";
$dbh->disconnect;
print "POINT 3 \n<br>";

User Oracle has in .bash_profile:

ORACLE_BASE=/home/u01/app/oracle; export ORACLE_BASE
ORACLE_HOME=/home/u01/app/oracle/product/8.1.6; export ORACLE_HOME
ORACLE_SID=ora1; export ORACLE_SID
PATH=$PATH:/home/u01/app/oracle/product/8.1.6/bin; export PATH
CLASSPATH=.:/home/u01/app/oracle/product/8.1.6/jdbc/lib/classes111.zip;
export CLASSPATH
LD_LIBRARY_PATH=/home/u01/app/oracle/product/8.1.6/lib; export
LD_LIBRARY_PATH
ORA_NLS33=/home/u01/app/oracle/product/8.1.6/ocommon/nls/admin/data; export
ORA_NLS33
NLS_LANG=american; export NLS_LANG

In httpd.conf I have to directories/locations:

ScriptAlias /cgi-bin/ "/home/httpd/cgi-bin/"
<Directory "/home/httpd/cgi-bin">
    SetEnv ORACLE_BASE /home/u01/app/oracle
    SetEnv ORACLE_HOME /home/u01/app/oracle/product/8.1.6
    SetEnv ORACLE_SID ora1
    SetEnv CLASSPATH
.:/home/u01/app/oracle/product/8.1.6/jdbc/lib/classes111.zip
    SetEnv LD_LIBRARY_PATH /home/u01/app/oracle/product/8.1.6/lib
    SetEnv ORA_NLS33
/home/u01/app/oracle/product/8.1.6/ocommon/nls/admin/data
    SetEnv NLS_LANG american
    SetEnv PATH
/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin:/home/u01/app/oracle/product/8.
1.6/bin
    AllowOverride AuthConfig FileInfo Indexes Limit Options
    Options ExecCGI
    Order allow,deny
    Allow from all
</Directory>

Alias /mod-perl/ /home/httpd/mod-perl/
<Location /mod-perl>
    PerlSetEnv ORACLE_BASE /home/u01/app/oracle
    PerlSetEnv ORACLE_HOME /home/u01/app/oracle/product/8.1.6
    PerlSetEnv ORACLE_SID ora1
    PerlSetEnv CLASSPATH
.:/home/u01/app/oracle/product/8.1.6/jdbc/lib/classes111.zip
    PerlSetEnv LD_LIBRARY_PATH /home/u01/app/oracle/product/8.1.6/lib
    PerlSetEnv ORA_NLS33
/home/u01/app/oracle/product/8.1.6/ocommon/nls/admin/data
    PerlSetEnv NLS_LANG american
    PerlSetEnv PATH
/sbin:/usr/sbin:/bin:/usr/bin:/usr/X11R6/bin:/home/u01/app/oracle/product/8.
1.6/bin
    Options ExecCGI
  SetHandler perl-script
  PerlHandler Apache::Registry
  PerlSendHeader On
</Location>

When I started this script in telnet user oracle (perl ora_test.cgi) all is
ok - script writes POINT1, POINT2, POINT3.
When I started this script in httpd in cgi-bin like
http://_adres_/cgi-bin/ora_test.cgi all is ok and script writes POINT1,
POINT2, POINT3
When I started this script in httpd in mod_perl like
http://_adres_/mod-perl/ora_test.cgi script writes only POINT1 !!!!!!

What can I do ?????????????????
PLEASE HELP !!!!!!!!!!!!!!!

Regards
Irek Smaczny

Reply via email to