Hi All..
I am facing the following error...
"Use of uninitialized value in concatenation (.) or string at creategroup_check.cgi line 26."
while running the below script...
#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBI;
my $query=new CGI;
my $cgiobj=CGI -> new();
#print "Content-type:text/plain\n\n";
my $username = $cgiobj -> param('username');
my $groupname = $cgiobj -> param('groupname');
#my $db_groupname;
my $session = new CGI::Session(undef,$query, {Directory => '/tmp'});
my $sid = $session->id();
#print $sid;
$session -> param('username',$username);
$ENV{ORACLE_HOME}="/home/oracle/product/10.2.0/db_1";
our $conn = DBI->connect("dbi:Oracle:host=10.0.0.1;sid=dev;","queryeditor","editor");
die($DBI::errstr) unless $conn;
my $user_detail = "select * from qe_group where groupname='$groupname'";
my $user_records = $conn->prepare($user_detail) or die("Error on preparing the sql statement \n");
$user_records->execute() or die("Error on getting the data from QE_GROUP \n");
while(my @user_resultset= $user_records->fetchrow_array)
{
my $db_groupname = $user_resultset[1];
print $db_groupname;
}
Any Idea on this ?
Thanks,
Warm Regards,
Saravanan
I am facing the following error...
"Use of uninitialized value in concatenation (.) or string at creategroup_check.cgi line 26."
while running the below script...
#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBI;
my $query=new CGI;
my $cgiobj=CGI -> new();
#print "Content-type:text/plain\n\n";
my $username = $cgiobj -> param('username');
my $groupname = $cgiobj -> param('groupname');
#my $db_groupname;
my $session = new CGI::Session(undef,$query, {Directory => '/tmp'});
my $sid = $session->id();
#print $sid;
$session -> param('username',$username);
$ENV{ORACLE_HOME}="/home/oracle/product/10.2.0/db_1";
our $conn = DBI->connect("dbi:Oracle:host=10.0.0.1;sid=dev;","queryeditor","editor");
die($DBI::errstr) unless $conn;
my $user_detail = "select * from qe_group where groupname='$groupname'";
my $user_records = $conn->prepare($user_detail) or die("Error on preparing the sql statement \n");
$user_records->execute() or die("Error on getting the data from QE_GROUP \n");
while(my @user_resultset= $user_records->fetchrow_array)
{
my $db_groupname = $user_resultset[1];
print $db_groupname;
}
Any Idea on this ?
Thanks,
Warm Regards,
Saravanan