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.
35 lines
796 B
35 lines
796 B
4 months ago
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# $Id: madmin.pl,v 1.4 2006/01/23 21:39:30 ddoughty Exp $
|
||
|
|
#
|
||
|
|
# Source File: madmin.pl
|
||
|
|
|
||
|
|
# Get config
|
||
|
|
require 'sitecfg.pl';
|
||
|
|
require 'testlib.pl';
|
||
|
|
|
||
|
|
&app_initialize;
|
||
|
|
|
||
|
|
print "Content-Type: text/html\n\n";
|
||
|
|
|
||
|
|
if (&get_session($FORM{'tid'})) {
|
||
|
|
# Client Test Administration
|
||
|
|
$SESSION{'clid'} = $FORM{'clid'};
|
||
|
|
$SESSION{'mclid'} = $FORM{'mclid'};
|
||
|
|
$SESSION{'lang'} = $FORM{'lang'};
|
||
|
|
&put_session($FORM{'tid'});
|
||
|
|
&get_client_configuration();
|
||
|
|
&setbrowsertype();
|
||
|
|
$FORM{'uid'} = $SESSION{'uid'};
|
||
|
|
$FORM{'home'} = $SESSION{'home'};
|
||
|
|
$FORM{'uac'} = "madmin";
|
||
|
|
&init_session;
|
||
|
|
&LanguageSupportInit();
|
||
|
|
&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "1");
|
||
|
|
$FORM{'notice'} = $SYSTEM{'message'};
|
||
|
|
&get_client_profile($FORM{'clid'});
|
||
|
|
®dusr("frsadmin");
|
||
|
|
} else {
|
||
|
|
show_illegal_access_warning;
|
||
|
|
}
|