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; }