#!/usr/bin/perl
#
# $Id: help.pl,v 1.6 2006/05/23 14:31:00 psims Exp $
#
# Source File: help.pl
# Get config
require 'sitecfg.pl';
require 'testlib.pl';
&app_initialize;
print "Content-Type: text/html\n\n";
if (&get_session($FORM{'tid'})) {
&LanguageSupportInit();
&log_entry($SESSION{'clid'}, $SESSION{'uid'}, "3", "Help $FORM{'id'}");
if ($SESSION{'uac'} eq 'gadmin') {
# Site administration
$CLIENT{'active'} = "X";
$CLIENT{'logo'} = "![](\"$PATHS{'graphroot'}/logo.gif\")
\n";
$CLIENT{'clorg'} = "ACTS Corporation";
} else {
# Client Test Administration
&get_client_profile($SESSION{'clid'});
}
# Tue May 23 09:52:26 EDT 2006
#
# Paul - removed this conditional because it's deprecated
# if ($FORM{'id'} eq 40 ) {
# &show_specs($FORM{'show'});
# } else {
$trailer = $SESSION{'uac'};
$trailer =~ s/([mgac])(.*)/$1/ ;
if ($FORM{id} eq '0') {
$helptmplt = join('', "$trailer", "help", "$FORM{'id'}");
} else {
$helptmplt = join('', "help", "$FORM{'id'}");
}
&show_help($helptmplt);
#}
}
sub show_help {
$helpfile = join($pathsep, $secroot, "help", "$_[0].htt");
open (TMPFILE, "<$helpfile");
@lines = ;
close TMPFILE;
foreach $line (@lines) {
$line = &xlatline($line);
}
@lines = ();
}
sub show_specs {
print "\n\n";
$helpfile = join($pathsep, $secroot, "specs", "$_[0].txt");
open (TMPFILE, "<$helpfile");
@lines = ;
close TMPFILE;
foreach $line (@lines) {
print "$line
";
}
print "\n\n";
@lines = ();
}