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

better error message

Browse source
This commit is contained in:
JT Smith 2007-07-27 14:17:59 +00:00
parent f9f49c3c36
commit f12d1a7252
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Config.pm
View file

@ -330,11 +330,12 @@ sub new {
my $webguiPath = shift;
my $filename = shift;
my $noCache = shift;
my $fullPath = $webguiPath.'/etc/'.$filename;
if (exists $config{$filename}) {
return $config{$filename};
} else {
my $json = "";
if (open(my $FILE,"<",$webguiPath.'/etc/'.$filename)) {
if (open(my $FILE,"<",$fullPath)) {
while (my $line = <$FILE>) {
$json .= $line unless ($line =~ /^\s*#/);
}
@ -347,7 +348,7 @@ sub new {
$config{$filename} = $self unless $noCache;
return $self;
} else {
warn "Cannot open config file: ".$filename;
warn "Cannot open config file: ".$fullPath;
return undef;
}
}