diff --git a/sbin/preload.perl b/sbin/preload.perl index bddc64e7a..26e93f84a 100644 --- a/sbin/preload.perl +++ b/sbin/preload.perl @@ -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 = ) { - 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 = ) { + 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;