From 26bfeb772ebcba53b63839eeeef7d1917ecdff9f Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 19 Feb 2010 14:20:34 -0600
Subject: [PATCH] add methods for preloads

---
 lib/WebGUI/Paths.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/lib/WebGUI/Paths.pm b/lib/WebGUI/Paths.pm
index cf015ff79..617d44654 100644
--- a/lib/WebGUI/Paths.pm
+++ b/lib/WebGUI/Paths.pm
@@ -69,6 +69,28 @@ sub siteConfigs {
     return @configs;
 }
 
+sub preloadPaths {
+    my @paths;
+    if (open my $fh, '<', PRELOAD_CUSTOM) {
+        while (my $path = <$fh>) {
+            $path =~ s/#.*//;
+            $path =~ s/^\s+//;
+            $path =~ s/\s+$//;
+            next
+                if !$path;
+            if (! -d $path) {
+                warn "WARNING: Not adding using lib directory '$path' from @{[PRELOAD_CUSTOM]}: Directory does not exist.\n";
+            }
+            else {
+                push @paths, $path;
+            }
+        }
+        close $fh;
+    }
+}
 
+sub includePreloads {
+    unshift @INC, preloadPaths();
+}
 
 1;