I would try setting the $ENV{ORACLE_HOME}, $ENV{LD_LIBRARY_PATH}, ..etc
in the top of the script, i.e.

BEGIN { 
    $ENV{ORACLE_HOME}     =  q[/some/path/to/oracle];
    $ENV{LD_LIBRARY_PATH} = qq[$ENV{ORACLE_HOME}/lib];
}
 
On Tue, 2004-08-03 at 16:04, Robert wrote:
> I am also attaching the test2-cgi script
> #!/usr/bin/perl -w
> #use strict;
> use DBI;
> use HTML::Template;
> use CGI::Carp qw/fatalsToBrowser/;
> 
> my $connect     = "DBI:Oracle:db1";     # Database server path
> my $login       = 'report';                             # Database username
> my $passwd      = 'report';                     # Database password
> #my $cgi  = new CGI_Lite;
> #my %passedinput = $cgi->parse_form_data;       
> my ($dbh, $sth);
> # *********************************************************************************
> &openconnection;
> $sql = "SELECT url,unique_registered,total_hits 
> FROM rptinfo
> WHERE username='munikuntlar'
> AND month='JAN'";
> $sth = $dbh->prepare($sql);
> $sth->execute;
> while (($url,$unique_registered,$total_hits) = $sth->fetchrow()) {
> my %row_data;
> $row_data{url} =$url;
> $row_data{unique_registered} =$unique_registered;
> $row_data{total_hits} =$total_hits;
> push(@unique_list, \%row_data);
>         }
>         $sth->finish;
> &displayresults;
> &closeconnection;
>  
> # *********************************************************************************
> sub displayresults {
>         my $template = HTML::Template->new(filename => '../test/test.tmpl');
>         #$template = HTML::Template->new(filename => '../test/test.tmpl');
>         #$template->param('unique_list',[EMAIL PROTECTED]);         # TMPL LOOP 
> Topics List
>         if ([EMAIL PROTECTED]) {                                                     
>        # TMPL LOOP FAQ List
>                 $template->param('nounique_list','1');
>                 } else {
>                 $template->param('unique_list',[EMAIL PROTECTED]);
>                 }
>         
>         # send the obligatory Content-Type and print the template output
> print "Content-Type: text/html\n\n", $template->output;
>         
>         #print "Content-Type: text/html\n\n";                           # send the 
> obligatory Content-Type
>         #print $template->output;                                                    
>    # print the template
> }
> sub openconnection {
>         $dbh = DBI->connect($connect,$login,$passwd,{RaiseError => 1, AutoCommit => 
> 1}) or die "Cannot connect to database";
> }
> 
> sub closeconnection {
>         $sth->finish;
>         $dbh->disconnect;
> }
> 
> 
> Robert <[EMAIL PROTECTED]> wrote:
> Hi list
> At command line script test2-cgi works fine but when I try from the browser it is 
> giving the following error
> 
> DBI connect('db1','report',...) failed: Error while trying to retrieve text for 
> error ORA-12154 (DBD ERROR: OCIServerAttach) at /home/report/www/cgi-bin/test2-cgi 
> line 72
> 
> I have complete ORACLE environment set, I can connect using sqlplus and also can run 
> tnsping the database without any issues at command prompt. 
> 
> Anyone know how to fix this issue?.
> 
> Thanks in advance
> 
> 
> 
> 

Reply via email to