#!/usr/bin/perl
#
# $Id: tcstmpgframes.pl
#
# Source File: tcstmpgframes.pl

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

&app_initialize;

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

if (&get_session($FORM{'tid'})) {
	&LanguageSupportInit();
	&get_client_profile($SESSION{'clid'});
	&get_test_profile($SESSION{'clid'}, $FORM{'tstid'});
	&show_template("tcstmpgframe");
} else {
	&show_illegal_access_warning;
}