sort out the filtering system

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 3258af44ffb1441b734146b5bee5c7d58a8b4a5c..b919d07660cf9ca95d7abf13bee2fb64b8027659 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -29,12 +29,16 @@ our $foreground;
 our $background;
 our $mycallcolor;
 our @colors;
+our $data;
+our $local_data;
 
 # search local then perl directories
 BEGIN {
        # root of directory tree for this system
        $root = "/spider"; 
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+       $local_data = "$root/local_data";
+       $data = "$root/data";
        
        unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";