fixed create_sysop so that the it has the correct BEGIN sequence, which will

allow it to use ENV variables for setting the correct root

added instructions to INSTALL to for using create_sysop!

diff --git a/INSTALL b/INSTALL
index 9180e36d190d5ad6328bfb96463cdfbe90163d02..96c47d88115061f11a473bde00d9f9b2f499f108 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -30,7 +30,15 @@ the following modules:-
   ..
   ..
   cpan> install IO::Select
+
+  In order to use IO::Select you will need to 
   
+  # cd /root/.cpan/build/IO-1.20  
+  # make install UNINST=1
+
+  The 'cd' is to the place where CPAN sets up its local cache. The example 
+  shown is for Linux defaults.
+
 3) select a user to run the cluster as UNDER _NO_ CIRCUMSTANCES USE ROOT.
 
    I say again DO NOT USE root.
@@ -115,6 +123,14 @@ the following modules:-
    :x
    
    $ cd ../perl
+
+   now create the basic user file with you as the sysop.
+
+   $ create_sysop.pl
+
+   try and run the cluster program and see whether all the various rivets are
+   flying in approximate formation...
+
    $ cluster.pl
    DXSpider DX Cluster Version x.x
    Copyright (c) 1998 Dirk Koopman G1TLH

diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl
index 3b1196fee93b9205c3babed34d0ddeb2a9967187..1e553209d9045dacc65d7b2712cc0e83e2182428 100755 (executable)
--- a/perl/create_sysop.pl
+++ b/perl/create_sysop.pl
@@ -9,6 +9,16 @@
 # $Id$
 # 
 
+# make sure that modules are searched in the order local then perl
+BEGIN {
+  # root of directory tree for this system
+  $root = "/spider"; 
+  $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+
+  unshift @INC, "$root/perl";  # this IS the right way round!
+  unshift @INC, "$root/local";
+}
+
 use DXVars;
 use DXUser;