#!/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'});
	&regdusr("frsadmin");
} else {
	show_illegal_access_warning;
}