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.
68 lines
1.5 KiB
68 lines
1.5 KiB
4 months ago
|
#!/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'} = "<IMG SRC=\"$PATHS{'graphroot'}/logo.gif\" BORDER=0>\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 = <TMPFILE>;
|
||
|
|
close TMPFILE;
|
||
|
|
foreach $line (@lines) {
|
||
|
|
$line = &xlatline($line);
|
||
|
|
}
|
||
|
|
@lines = ();
|
||
|
|
}
|
||
|
|
|
||
|
|
sub show_specs {
|
||
|
|
print "<HTML>\n<BODY>\n";
|
||
|
|
$helpfile = join($pathsep, $secroot, "specs", "$_[0].txt");
|
||
|
|
open (TMPFILE, "<$helpfile");
|
||
|
|
@lines = <TMPFILE>;
|
||
|
|
close TMPFILE;
|
||
|
|
foreach $line (@lines) {
|
||
|
|
print "$line<BR>";
|
||
|
|
}
|
||
|
|
print "</BODY>\n</HTML>\n";
|
||
|
|
@lines = ();
|
||
|
|
}
|