oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added more extensive logging to file system problems.

Browse source
This commit is contained in:
JT Smith 2002-06-07 01:23:59 +00:00
parent e368224215
commit f9f6bc6497
4 changed files with 44 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Session.pm
View file

@ -106,12 +106,9 @@ sub _getUserInfo {
#-------------------------------------------------------------------
sub _loadMacros {
my ($namespace, $cmd, @files, $file, $dir);
if ($^O =~ /Win/i) {
$dir = "\\lib\\WebGUI\\Macro";
} else {
$dir = "/lib/WebGUI/Macro";
}
my ($slash, $namespace, $cmd, @files, $file, $dir);
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$dir = $slash."lib".$slash."WebGUI".$slash."Macro";
opendir (DIR,$session{config}{webguiRoot}.$dir) or WebGUI::ErrorHandler::fatalError("Can't open macro directory!");
@files = readdir(DIR);
foreach $file (@files) {
@ -128,12 +125,9 @@ sub _loadMacros {
#-------------------------------------------------------------------
sub _loadWobjects {
my ($dir, @files, $file, $cmd, $namespace);
if ($^O =~ /Win/i) {
$dir = "\\lib\\WebGUI\\Wobject";
} else {
$dir = "/lib/WebGUI/Wobject";
}
my ($dir, @files, $slash, $file, $cmd, $namespace);
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$dir = $slash."lib".$slash."WebGUI".$slash."Wobject";
opendir (DIR,$session{config}{webguiRoot}.$dir) or WebGUI::ErrorHandler::fatalError("Can't open wobject directory!");
@files = readdir(DIR);
foreach $file (@files) {