$s= CGI::Session->new();
	$s->expire("+30m");
	$s->param('permissions', $res{'permissions'});	
	$s->param('name', $res{'fname'});
	$s->param('email', $res{'email'});
	$s->param('id', $res{'id'});
	$s->flush();

##</code><code>##

sub check_session {
	my ($obj,$s,$q)= @_;
	if ( !defined $s || $s->is_empty() || $s->is_expired() || defined $s->param("nogood") || !defined $s->param('id')) {
		return 0;
		}
	$s->expire("+30m");
	return 1; # it's active
	return 0; # it's dead
	}