Re: Problem with perl CGI

apache runs under a username. check if the apache user has permission to read the file
or do a chmod 755 on the file.

regards

Jab
----- Original Message -----
From: Chris Borokowski
To: perl-beginner%40yahoogroups.com">perl-beginneryahoogroups.com
Sent: Friday, June 01, 2007 7:31 PM
Subject: Re: [PBML] Problem with perl CGI

1) Does Apache have rights to read the file?

2) It might be worth including the file flush
configuration, $| = 1;

--- Ramesh Polepalli < ramesh.polepalli%40mformation.com">ramesh.polepallimformation.com>
wrote:

> Hi,
>
> I am new to perl CGI and writing a small web based
> application.
>
>
>
> When I run the script from CLI, my Script is able to
> connect to
> database,
>
> where as when I use the same script on apache I am
> unable to connect to
>
> database.
>
>
>
>
>
> I also noticed one more case,
>
>
>
> I have stored database access details in a file
> which will be read by
> the
>
> script during execution.
>
>
>
> On printing the contents read from file, they are
> printed on command
> line but
>
> on web it is not.
>
>
>
> Can some one help me to understand if I am missing
> something.
>
>
>
>
>
> The script for your reference is as follows.
>
> =====================================
>
>
>
> #!/usr/bin/perl
>
> use DBI;
>
> my $x="&quot;;
>
> my $sql1=&quot;";
>
> my $exe;
>
> my %ConfigValue;
>
> my $returnstring="";
>
>
>
>
>
> # Read the configuration from file to determine
> database credentials.
>
> my $cfgfile=&quot;./dbconnect";;
>
> open (CONFIG,$cfgfile);
>
>
>
> while (<CONFIG>) {
>
> chomp; # no newline
>
> s/#.*//; # no comments
>
> s/^s+//; # no leading white
>
> s/s+$//; # no trailing white
>
> next unless length; # anything left?
>
> my ($var, $value) = split(/s*=s*/, $_, 2);
>
> $value=~ s/r//g;
>
> $ConfigValue{$var} = $value;
>
> }
>
> print "Content-Type: text/htmlnn";
>
>
>
> # connect to database
>
> my
>
$dns=";DBI:mysql:database=$ConfigValue{'DBINSTANCE'};host=$ConfigValue{'D
> BSERVER'};port=$ConfigValue{'DBPORT'}&quot;;
>
> $db = DBI->connect($dns, $ConfigValue{'DBUSER'},
> $ConfigValue{'DBPASSWORD'});
>
>
>
> if($db->;{'mysql_errno'})
>
> {
>
> print ("<;br> Problem while connecting to
> database
> <br>$db->{'mysql_error'}");
>
> }
>
> else
>
> {
>
> print "Connected succesfully <br>";
>
> $sql1=&quot;select * from second_level order
> by aler_id DESC";
>
> print "Query String : $sql1<br>";
>
> $exe=$db-&gt;prepare($sql1);
>
> if(!$exe-&gt;execute())
>
> {
>
> print "Problem while
> fetchingthe rows from
> database&lt;br>$exe->{'mysql_error'}";
>
> }
>
> else
>
> {
>
> print "Succesfully fetched
> rows from
> database&lt;br>&quot;;
>
> #row=
> $exe->fetchrow_array();
>
> }
>
> }
>
>
>
> Output observer on Command Line
>
> ==================
>
> -bash-3.00# perl displayalert.cgi
>
> Content-Type: text/html
>
>
>
> <br>before connecting<br>Connected succesfully
> <br>Query String : select
> * from second_level order by aler_id
> DESC<br>Succesfully fetched rows
> from database&lt;br>
>
>
>
>
>
> Output observer on Web
>
> ===================
>
>
> before connecting
> Connected succesfully
> Query String : select * from second_level order by
> aler_id DESC
> Problem while fetchingthe rows from database
>
>
>
> Thanks in advance for the help.
>
>
>
=== message truncated ===

User Interface design blog
http://user-advocacy.blogspot.com/
Code:esign::UI::Consulting
http://www.dionysius.com/

__________________________________________________________
Luggage? GPS? Comic books?
Check out fitting gifts for grads at Yahoo! Search
http://search.yahoo.com/search?fr=oni_on_mail&p=graduation+gifts&cs=bz

[Non-text portions of this message have been removed]

Messages in this topic (0) Reply (via web post) | Start a new topic

.