sub getConfig
{
#This is for site/account specific options
my $str = "";
my $xml = xmlFileData("Config",$Session->{'usrSystem'}.".config.xml","getConfig()");
if (!$xml)
{
$xml = xmlFileData
("Config","_default.config.xml","getConfig()");
}
{
$xml =~ /(.*?)<\/system>/s;
$str .= $1;
}
{
$xml =~ /
(.*?)<\/account>/s;
$str .= $1;
}
return $str;
}
####
sub config
{
my $str = "";
my $browser = $Request->ServerVariables("HTTP_USER_AGENT")->item();
SWITCH:
{
if ($browser =~ /MSIE/)
{
$browser = "MSIE";
last SWITCH;
}
if ($browser =~ /Firefox/)
{
$browser = "FireFox";
last SWITCH;
}
}
$str .= "$Session->{'usrSystem'}";
$str .= "$Session->{'usrAccount'}";
$str .= "$Session->{'usrPassword'}";
$str .= "$browser";
$str .= "$Session->{'mode'}";
$str .= "$Session->{'version'}";
$str .= "".$Application->{'currentUserCount'}."";
# if($Session->{'trainingDelegate'})
# {
# $str .= "True";
# }
if ($Session->{'acrobatVersion'} >= $Session->{'minAcrobatVersion'} || $Request->ServerVariables("HTTP_USER_AGENT")->item() =~ /Mac/)
{
$str .= "{'acrobatVersion'}."\"/>\n";
}
else
{
$str .= "";
### chat pulls from here ####
}
if (getConfig() =~ /(/s)
{
$str .= $1." system=\"".$Session->{'usrSystem'}."\"
account=\"".$Session->{'usrAccount'}."\"
username=\"".$Session->{'usrID'}."\" password=\"".$Session->{'usrPassword'}."\"/>";
}
$str .= "";
return $str;
}