#!/usr/local/bin/perl

use strict;
use lib '/var/www/html/sites/www.site.com/admin';
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use DBI;

my $DEBUG = 1;

my $IN = new CGI;

my $s = $IN->param('s');

my $dbh = DBI->connect( "dbi:mysql:dbname;host=localhost",
"user",
"pass",
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made: $DBI::errstr";

my $sql = qq{ SELECT * FROM comm_sessions WHERE sess_id = '$s' };
print STDERR qq{$sql has been run...\n} if $DEBUG > 0;

my $sth = $dbh->prepare( $sql );
$sth->execute();
my $check_sess = $sth->fetchrow_hashref || undef;
print STDERR qq|Command run, grabbed session ID $check_sess->{sess_user_fk}...\n| if $DEBUG > 0;
$dbh->disconnect();

my $cookie;
if ($check_sess->{sess_user_fk}) {
print STDERR qq|Found session: $check_sess->{sess_user_fk}..., writing cookie... \n| if $DEBUG > 0;
$cookie = $IN->cookie( -name => "remotelog", -value => "$check_sess->{sess_user_fk}", -path => '/' );
}

print $IN->header( -cookie => $cookie );
print "a";