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.
48 lines
1.1 KiB
48 lines
1.1 KiB
#!/usr/bin/perl
|
|
#
|
|
# $Id: taccdef.pl
|
|
#
|
|
# Source File: taccdef.pl
|
|
|
|
# Get config
|
|
require 'sitecfg.pl';
|
|
require 'testlib.pl';
|
|
|
|
&app_initialize;
|
|
|
|
print "Content-Type: text/html\n\n";
|
|
|
|
if (&get_session($FORM{'tid'})) {
|
|
my $show_template = undef;
|
|
&LanguageSupportInit();
|
|
$FORM{'respmsg'} = "";
|
|
$TEST{'id'} = $FORM{'tstid'};
|
|
&get_test_profile($SESSION{'clid'}, $TEST{'id'});
|
|
if ($FORM{'frm'} eq '1') {
|
|
#
|
|
# Subject Area Navigation frame
|
|
#
|
|
$show_template = "taccnav";
|
|
} elsif ($FORM{'frm'} eq '2') {
|
|
if ($FORM{'dbop'} eq 's') {
|
|
$FORM{'dbopmessage'}=&put_test_acl_file($SESSION{'clid'},$TEST{'id'}, $FORM{'uidlist'});
|
|
} elsif ($FORM{'dbop'} eq 'd') {
|
|
$FORM{'dbopmessage'}=&drop_test_acl_file($SESSION{'clid'},$TEST{'id'}, $FORM{'uidlist'});
|
|
} else {
|
|
$FORM{'dbopmessage'}="";
|
|
}
|
|
#
|
|
# Test Access Controls Detail frame
|
|
#
|
|
my @vals=&get_test_acl_list($SESSION{'clid'},$TEST{'id'});
|
|
my $wcndid=$vals[0];
|
|
$TEST{'taccpwds'}=$vals[1];
|
|
$TEST{'tacccnds'} = &get_acl_cndlist($SESSION{'clid'},$wcndid);
|
|
$show_template = "taccdtl";
|
|
}
|
|
if ( $show_template ) {
|
|
&show_template($show_template);
|
|
}
|
|
} else {
|
|
&show_illegal_access_warning;
|
|
}
|
|
|