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

fix: Error with new 7.4 preload.custom. Added better sanity checking with messages.

Browse source
This commit is contained in:
Doug Bell 2007-07-10 21:25:54 +00:00
parent 8eb48e5464
commit eabffb0342
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
sbin/preload.perl
View file

@ -2,19 +2,23 @@ my $webguiRoot;
my $customLibs;
BEGIN {
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
@{$customLibs} = ();
open(FILE,"<".$webguiRoot."/sbin/preload.custom");
while (my $line = <FILE>) {
next if $line =~ m/^#/;
chomp $line;
push(@{$customLibs}, $line);
}
close(FILE);
foreach my $lib (@customLibs) {
unshift (@INC, $lib);
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
@{$customLibs} = ();
open(FILE,"<".$webguiRoot."/sbin/preload.custom");
while (my $line = <FILE>) {
chomp $line;
next unless $line;
if (!-d $line) {
print "WARNING: Not adding lib directory '$line' from $webguiRoot/sbin/preload.custom: Directory does not exist.\n";
next;
}
push(@{$customLibs}, $line);
}
close(FILE);
foreach my $lib (@{$customLibs}) {
unshift @INC, $lib;
}
}
$|=1;