You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.3 KiB
43 lines
1.3 KiB
4 months ago
|
#!/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();
|
||
|
|
}
|