#!/usr/bin/perl
#
# $Id: regtacl.pl,v 1.4 2006/01/23 21:39:30 ddoughty Exp $
#
# Source File: regtacl.pl

# Get config
require 'sitecfg.pl';
require 'testlib.pl';

&app_initialize;

print "Content-Type: text/html\n\n";

if (&get_session($FORM{'tid'})) {
&opendebug();
	if ($FORM{'lang'} ne $SESSION{'lang'}) { &set_session($FORM{'tid'},'lang',$FORM{'lang'});}
	&get_client_configuration();
	$SESSION{'lang'} = ($SYSTEM{'DEFAULTLANG'} eq '') ? "enu" : $SYSTEM{'DEFAULTLANG'};
	$SESSION{'lang'} = ($FORM{'lang'} eq '') ? $SESSION{'lang'} : $FORM{'lang'};
	&LoadLanguage($SESSION{'lang'});

	$FORM{'respmsg'} = "";
	$usrerror=0;
	$FORM{'uid'} = "$SESSION{'taclid'}";
print DBGFILE "regtacl:$SESSION{'taclid'}:$SESSION{'clid'}:$SESSION{'uid'}:$FORM{'tstid'}\n";
	&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "1", "Wildcard registration $FORM{'cndid'}");
	&prepare_test($SESSION{'clid'}, $SESSION{'uid'}, "$FORM{'tstid'};", $FORM{'usetestform'});
	if ($usrerror) {
		&get_client_profile($SESSION{'clid'});
		&get_tacl_profile();
		&show_template("regtacl");
	} else {
		$TEST{'id'} = $FORM{'tstid'};
		&get_client_profile($SESSION{'clid'});
		&get_tacl_profile();
		&get_test_profile( $SESSION{'clid'}, $TEST{'id'});
		&log_entry($SESSION{'clid'}, $FORM{'uid'}, "1", "Test Ready $TEST{'id'}");
		&show_template("tstframe");
	}
&closedebug();
}