On 07/24/2010 08:53 AM, Owen wrote:
>
>> hi,
>> it got some error while adding data into sqlite through Perl script on
>> Apache ... script can able to read the file but not able to write .. I
>> have set the permissions of sqlite file to 666 ..
>>
>> when i ran the script from local user its working fine .. its able to
>> write the data into db
>> when i rant that script on Apache its not working ..
>> i can't figure it out
>> its is a Apache error or my file permissions?
>> thank you.
>> Kanishka
>>
>
>
>
>
> You actually need to provide a little more information.
>
> Do you have this line in your cgi script? If not, put it in.
>
> use CGI::Carp qw (fatalsToBrowser);
>
> The error message from that will give you some clues.
>
>
> Do you have access to the apache(2) logs? If so, read them and see
> what they say
>
This is the Error .. got from Apache ...
DBD::SQLite::db do failed: unable to open database file at
#!/usr/bin/perl
use strict;
use Net::OAuth;
use LWP::UserAgent;
use CGI;
use DBI;
use XML::LibXML;
use YAML;
my $xpc = XML::LibXML::XPathContext->new();
use Data::Random qw(:all);
my $cgi = CGI->new;
print $cgi->header();
my $id = $cgi->param('id');
my $count = $cgi->param('count');
my $screen = $cgi->param('screen');
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
use HTTP::Request::Common;
my $i;
my $dbh = DBI->connect("dbi:SQLite:dbname=info.sqlite","","",{AutoCommit
=> 1 })||die(print "$DBI::err $DBI::errstr \t $DBI::state 1 ");
$dbh->do("INSERT INTO list VALUES
('$id','$screen','$count')")||die(print "$DBI::err $DBI::errstr
$DBI::state 2");
$dbh->do("CREATE TABLE $screen ( created TEXT, id NUMERIC, source TEXT,
text TEXT )")||die(print "$DBI::err $DBI::errstr 3");
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
