From: djk <djk>
Date: Fri, 16 Oct 1998 13:31:41 +0000 (+0000)
Subject: fixed create_sysop so that the it has the correct BEGIN sequence, which will
X-Git-Tag: SPIDER_1_5~25
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f145290a93b39bf15b50269dd8be585d7b4bc9c;p=spider.git

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 9180e36d..96c47d88 100644
--- 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 3b1196fe..1e553209 100755
--- 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;