#!/usr/bin/perl -w
use strict;
use DBI;
use CGI qw/:all :html3/;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
use CGI::Session qw();
my $session = CGI::Session->new();
print $cgi->header;
print $session->header;
print "";
print "";
print "";
# here are the values from the HTML form
my $username = param('username');
my $password = param('password');
my $groups;
my $dbh=DBI->connect('DBI:mysql:database=:host=:user=root') || die "Could not connect to database: ". DBI->errstr;
my $query = "select user,password,groups from login_ro where user like '$username' and password like '$password' ";
my $sth=$dbh->prepare($query) or die "Couldnt prepare statement:" .$dbh->errstr;
$sth->execute();
if(($username,$password,$groups)= $sth->fetchrow_array)
{
chomp($username);
chomp($password);
chomp($groups);
print "";
print "";
$session->param("ro", $groups);
$session->param("user", $username);
$session->param(User_id => 'U00002');
my $regional_office = $session->param("ro");
print "$regional_office";
my $tmp=$session->param("User_id");
print "$tmp";
}
else {
print "";
}
# print bottom of page
print <
HTML
####
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
use CGI qw/:all :html3/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI::Session qw();
use sub test();
my $cgi = new CGI;
print "";
my $session = CGI::Session->new((undef, $cgi, {Directory=>"/tmp"}));
$session = CGI::Session->new();
print $session->header;
my $dbh=DBI->connect('DBI:mysql:database=:user=root;host=') || die "Could not connect to database: ". DBI->errstr;
my $group = param('groups');
my $atmcount;
my $regional_office = $session->param('ro'); ///here is am accesing stored session
my $tmp= $session->param('User_id');
print "regional--->$regional_office";
my $user = $session->param('user');