#!/usr/bin/perl -w
use CGI;
use DBI;
use strict;
my $q = CGI->new;
my ($id,$user,$type) = session();
my $line;
my $file;
print "$id,$user,$type\n";
#use DBI;
#my $message = "Database is down for a scheduled maintenance - it should be back online soon.
\n";
#my $sql = "Can't select from Database with the given parameters.
\n";
#my $dbh = DBI->connect("DBI:mysql:samembers:samembers.db.7054548.hostedresource.com:3306", "samembers","S3h7a5arei") || Error($message);
#my $records_fetch=$dbh->prepare("SELECT id FROM memb WHERE user=? and pass=?") || Error($sql);
#$records_fetch->execute($user,$pass);
#my $id = $records_fetch->fetchrow;
#$records_fetch->finish;
#$dbh->disconnect;
#open(DATA,"templates/header.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s/name="password"/name="password" value="$pass"/i;
#print "$file\n";
#$file="";
#open(DATA,"templates/main.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s/name="password"/name="password" value="$pass"/i;
#print "$file\n";
#$file="";
#open(DATA,"templates/footer.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s/name="password"/name="password" value="$pass"/i;
#print "$file\n";
#$file="";
sub Error
{
my $line;
my $file;
my ($message)=@_;
#open(DATA,"templates/header.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s/name="password"/name="password" value="$pass"/i;
#print "$file\n";
#$file="";
#open(DATA,"templates/main.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s//$message/i;
#print "$file\n";
#$file="";
#open(DATA,"templates/footer.html");
#while($line=)
#{
#$file.=$line;
#}
#close(DATA);
#$file=~s/name="password"/name="password" value="$pass"/i;
#print "$file\n";
#$file="";
exit 1;
}
sub session
{
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );
my $q = CGI->new;
my $s = $q->cookie('CGISESSPID') || undef;
my $session = CGI::Session->load(undef,$s,{Directory=>'/tmp/pub'});
if($session->is_expired)
{
print $q->header(-cache_control=>"no-cache, no-store, must-revalidate",-location=>"http://www.sponsoredads.com/members/signin.cgi?action=expire");
exit 1;
}
elsif($session->is_empty)
{
print $q->header(-cache_control=>"no-cache, no-store, must-revalidate",-location=>"http://www.sponsoredads.com/members/signin.cgi?action=expire");
exit 1;
}
else
{
my $cookie = $q->cookie(-name=>"CGISESSPID",-value=>"$s",-expires=>"+15m",-domain=>"sponsoredads.com");
print $q->header(-cookie=>$cookie,-cache_control=>"no-cache, no-store, must-revalidate");
my $id = $session->param("id");
my $user = $session->param("user");
my $type = $session->param("type");
return ($id,$user,$type);
}
}
exit 1;