#!/usr/bin/perl -wT

use DBI();
use CGI qw(:standard);
use CGI::Session;
use CGI::Session::Driver::mysql;
use HTML::Template;

my $server = "www.ictprovision.com"; my $a; my $addr = '';
my $query = new CGI;
$query->import_names('R');
my $cmd = ($R::act);
my $qs = $ENV{QUERY_STRING};
#my $sid = $query->cookie('CGISESSID') || undef;
my $host = "localhost";
my $db = "supportdb";
my $dbu = "www-data";
my $dpw = "999or666";
my $table1 = "users"; my $table2 = "sessions"; my $table3 = "schools";
my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", "$dbu", "$dpw", {'RaiseError' => 1});

my $session = new CGI::Session("driver:mysql", undef, { Handle => $dbh, TableName => "sessions" } );

if ( $session->param("~logged-in") ) {
	my $Pprofile = $session->param("~Pprofile");
	my $Sprofile = $session->param("~Sprofile");
	
	foreach $a ($Sprofile->{fname}, $Sprofile->{addr1}, $Sprofile->{addr2}, $Sprofile->{addr3}, $Sprofile->{town}, $Sprofile->{county}, $Sprofile->{pcode}) {
		$addr = $addr . $a . "<br />" if (defined $a);
	} 	

	# open the html template
	my $template = HTML::Template->new(filename => 'dashboard.tmpl');

	# fill in some parameters
	$template->param(SNAME => $Sprofile->{sname});
	$template->param(USER => "$Pprofile->{forename} $Pprofile->{surname}");
	$template->param(IMAGE_SRC => "images/$Sprofile->{img}");
	$template->param(ADDR => $addr);
	if ( ( $Pprofile->{role} eq '1' ) or ( $Pprofile->{role} eq '2' ) ) {
		$template->param(HREF => qq^<a href="adduser.cgi?act=form">Add School User</a>^);
	} else {
		$template->param(HREF => "Add School User");
	}
	# send the obligatory Content-Type and print the template output
	print "Content-Type: text/html\n\n", $template->output;

} else {
#	print $query->redirect( -url => "http://$server/login.cgi?act=dash" );
	print $query->redirect( -url => "http://$server/login.cgi?$qs" );
}

sub dummysub {
#	The following lines are solely to suppress 'only used once' warnings
#	$R::type = $R::type; $R::pri = $R::pri; $R::loc = $R::loc; $R::repdate = $R::repdate;
	$R::act = $R::act; 
#	$R::stype = $R::stype; $R::tit2 = $R::tit2; $R::details2 = $R::details2; $R::stat = $R::stat;
}