sub checkCookies {

my $q = shift;

my $client = $q->cookie("cuser") || '';
my $password = $q->cookie("cpswd") || '';
my $project = $q->cookie("cproj") || '';

if(($client ne '') && ($password ne '') && ($project ne '')){
return "?action=display&uid=$client&pass=$password&ppa=$project";
}
else{ return ''; }
}